Mercurial > emacs
diff lisp/menu-bar.el @ 17665:b11021ca3525
Use defcustom.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 05 May 1997 15:06:25 +0000 |
parents | 32f90c43d1d2 |
children | a30300999b49 |
line wrap: on
line diff
--- a/lisp/menu-bar.el Mon May 05 15:00:53 1997 +0000 +++ b/lisp/menu-bar.el Mon May 05 15:06:25 1997 +0000 @@ -28,11 +28,14 @@ ;;; User options: -(defvar buffers-menu-max-size 10 +(defcustom buffers-menu-max-size 10 "*Maximum number of entries which may appear on the Buffers menu. If this is 10, then only the ten most-recently-selected buffers are shown. If this is nil, then all buffers are shown. -A large number or nil slows down menu responsiveness.") +A large number or nil slows down menu responsiveness." + :type '(choice integer + (const :tag "All" nil)) + :group 'mouse) ;; Don't clobber an existing menu-bar keymap, to preserve any menu-bar key ;; definitions made in loaddefs.el. @@ -422,8 +425,10 @@ pending-undo-list) buffer-undo-list))) -(defvar yank-menu-length 20 - "*Maximum length to display in the yank-menu.") +(defcustom yank-menu-length 20 + "*Maximum length to display in the yank-menu." + :type 'integer + :group 'mouse) (defun menu-bar-update-yank-menu (string old) (let ((front (car (cdr yank-menu)))