Mercurial > emacs
changeset 12633:c05399b944ab
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 21 Jul 1995 08:30:54 +0000 |
| parents | 81f12c1d0178 |
| children | eec80ea06395 |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Fri Jul 21 07:51:20 1995 +0000 +++ b/lisp/menu-bar.el Fri Jul 21 08:30:54 1995 +0000 @@ -421,9 +421,10 @@ (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 @@ (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.