From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 21 Jul 1995 08:30:54 +0000 (+0000)
Subject: (menu-bar-buffer-menu): Function deleted.
X-Git-Tag: emacs-19.34~3226
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f5572980b4b8559e5d0febb726899ca35f87007;p=emacs.git

(menu-bar-buffer-menu): Function deleted.
(global-map): Define [menu-bar buffer] as a keymap with no fcn name.
(menu-bar-update-buffers): After defining it, call it.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 445732b95f6..546def41216 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -421,9 +421,10 @@ Do the same for the keys of the same name."
   (push-mark (point))
   (insert last-command-event))
 
-(define-key global-map [menu-bar buffer] '("Buffers" . menu-bar-buffers))
-
-(defalias 'menu-bar-buffers (make-sparse-keymap "Buffers"))
+;; This definition is just to show what this looks like.
+;; It gets overridden below when menu-bar-update-buffers is called.
+(define-key global-map [menu-bar buffer]
+  (cons "Buffers" (make-sparse-keymap "Buffers")))
 
 (defvar buffers-menu-max-size 10
   "*Maximum number of entries which may appear on the Buffers menu.
@@ -585,6 +586,8 @@ A large number or nil slows down menu responsiveness.")
 
 (add-hook 'menu-bar-update-hook 'menu-bar-update-buffers)
 
+(menu-bar-update-buffers)
+
 ;; this version is too slow
 ;;;(defun format-buffers-menu-line (buffer)
 ;;;  "Returns a string to represent the given buffer in the Buffer menu.