Commit 3f557298 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(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.
parent c0acc112
...@@ -421,9 +421,10 @@ Do the same for the keys of the same name." ...@@ -421,9 +421,10 @@ Do the same for the keys of the same name."
(push-mark (point)) (push-mark (point))
(insert last-command-event)) (insert last-command-event))
(define-key global-map [menu-bar buffer] '("Buffers" . menu-bar-buffers)) ;; This definition is just to show what this looks like.
;; It gets overridden below when menu-bar-update-buffers is called.
(defalias 'menu-bar-buffers (make-sparse-keymap "Buffers")) (define-key global-map [menu-bar buffer]
(cons "Buffers" (make-sparse-keymap "Buffers")))
(defvar buffers-menu-max-size 10 (defvar buffers-menu-max-size 10
"*Maximum number of entries which may appear on the Buffers menu. "*Maximum number of entries which may appear on the Buffers menu.
...@@ -585,6 +586,8 @@ A large number or nil slows down menu responsiveness.") ...@@ -585,6 +586,8 @@ A large number or nil slows down menu responsiveness.")
(add-hook 'menu-bar-update-hook 'menu-bar-update-buffers) (add-hook 'menu-bar-update-hook 'menu-bar-update-buffers)
(menu-bar-update-buffers)
;; this version is too slow ;; this version is too slow
;;;(defun format-buffers-menu-line (buffer) ;;;(defun format-buffers-menu-line (buffer)
;;; "Returns a string to represent the given buffer in the Buffer menu. ;;; "Returns a string to represent the given buffer in the Buffer menu.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment