From 3f5572980b4b8559e5d0febb726899ca35f87007 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 21 Jul 1995 08:30:54 +0000 Subject: [PATCH] (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. --- lisp/menu-bar.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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. -- 2.39.2