Mercurial > hg > xemacs-beta

comparison lisp/about.el @ 483:991f80dc633d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-04-24 16:25:15 by hrvojen] Make sure the callbacks in about-finish-buffer work even if the event is nil. Published in <sxs1yqi467q.fsf@florida.arsdigita.de>.
author hrvojen
date Tue, 24 Apr 2001 16:25:18 +0000
parents f4f05bb53234
children 54fa1a5c2d12
comparison
equal deleted inserted replaced
482:f4f05bb53234 483:991f80dc633d
305 (widget-insert "\n") 305 (widget-insert "\n")
306 (if (eq type 'bury) 306 (if (eq type 'bury)
307 (widget-create 'link 307 (widget-create 'link
308 :help-echo "Bury this buffer" 308 :help-echo "Bury this buffer"
309 :action (lambda (widget event) 309 :action (lambda (widget event)
310 ;; For some reason, 310 (if event
311 ;; (bury-buffer (event-buffer event)) 311 ;; For some reason,
312 ;; doesn't work. 312 ;; (bury-buffer (event-buffer event))
313 (with-selected-window (event-window event) 313 ;; doesn't work.
314 (with-selected-window (event-window event)
315 (bury-buffer))
314 (bury-buffer))) 316 (bury-buffer)))
315 :tag "Bury") 317 :tag "Bury")
316 (widget-create 'link 318 (widget-create 'link
317 :help-echo "Kill this buffer" 319 :help-echo "Kill this buffer"
318 :action (lambda (widget event) 320 :action (lambda (widget event)
319 (kill-buffer (event-buffer event))) 321 (if event
322 (kill-buffer (event-buffer event))
323 (kill-buffer (current-buffer))))
320 :tag "Kill")) 324 :tag "Kill"))
321 (widget-insert " this buffer and return to previous.\n") 325 (widget-insert " this buffer and return to previous.\n")
322 (use-local-map (make-sparse-keymap)) 326 (use-local-map (make-sparse-keymap))
323 (set-keymap-parent (current-local-map) widget-keymap) 327 (set-keymap-parent (current-local-map) widget-keymap)
324 (if (eq type 'bury) 328 (if (eq type 'bury)