* lisp/menu-bar.el: Use function variable instead of switch-to-buffer.

(menu-bar-select-buffer-function): New variable.
(menu-bar-update-buffers): Use it.

diff --git a/etc/NEWS b/etc/NEWS
index f8d6e590835ae29eab8305403a2f5b4b05848faf..7d32cdba0a68609a2ff4eaeb2a1ab921971060aa 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -309,6 +309,11 @@ If you need it, feedmail.el ought to provide a superset of the functionality.
 The elisp implementation sha1.el is removed. Feature sha1 is provided
 by default.
 
+** Menu-bar changes
+
+*** `menu-bar-select-buffer-function' lets you choose another operation
+instead of `switch-to-buffer' when selecting an item in the Buffers menu.
+
 \f
 * Editing Changes in Emacs 24.1
 

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f0039e0b6137958e5d8707973a64c65bd0592fcc..526f22ca67941d3ab2352999ac8808bff64f09ad 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-06-21  Drew Adams <drew.adams@oracle.com>
+
+       * menu-bar.el: Use function variable instead of switch-to-buffer.
+       (menu-bar-select-buffer-function): New variable.
+       (menu-bar-update-buffers): Use it.
+
 2011-06-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/bytecomp.el (add-to-list): Add handler to check the

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 343a9c6dd0c949c60f1fea619b1c14266d524276..437bd52384163c3a060eece15750d074bfe87c70 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1977,6 +1977,10 @@ Buffers menu is regenerated."
 ;; Used to cache the menu entries for commands in the Buffers menu
 (defvar menu-bar-buffers-menu-command-entries nil)
 
+(defvar menu-bar-select-buffer-function 'switch-to-buffer
+  "Function to select the buffer chosen from the `Buffers' menu-bar menu.
+It must accept a buffer as its only required argument.")
+
 (defun menu-bar-update-buffers (&optional force)
   ;; If user discards the Buffers item, play along.
   (and (lookup-key (current-global-map) [menu-bar buffer])
@@ -2022,7 +2026,7 @@ Buffers menu is regenerated."
                                        (cons nil nil))
                                  `(lambda ()
                                      (interactive)
-                                     (switch-to-buffer ,(cdr pair))))))
+                                     (funcall menu-bar-select-buffer-function ,(cdr pair))))))
                    (list buffers-vec))))
 
         ;; Make a Frames menu if we have more than one frame.