Mercurial > hg > xemacs-beta
diff lisp/about.el @ 483:991f80dc633d
[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 |
line wrap: on
line diff
--- a/lisp/about.el Tue Apr 24 14:40:10 2001 +0000 +++ b/lisp/about.el Tue Apr 24 16:25:18 2001 +0000 @@ -307,16 +307,20 @@ (widget-create 'link :help-echo "Bury this buffer" :action (lambda (widget event) - ;; For some reason, - ;; (bury-buffer (event-buffer event)) - ;; doesn't work. - (with-selected-window (event-window event) + (if event + ;; For some reason, + ;; (bury-buffer (event-buffer event)) + ;; doesn't work. + (with-selected-window (event-window event) + (bury-buffer)) (bury-buffer))) :tag "Bury") (widget-create 'link :help-echo "Kill this buffer" :action (lambda (widget event) - (kill-buffer (event-buffer event))) + (if event + (kill-buffer (event-buffer event)) + (kill-buffer (current-buffer)))) :tag "Kill")) (widget-insert " this buffer and return to previous.\n") (use-local-map (make-sparse-keymap))