Mercurial > emacs
changeset 9667:49eee3cb0ffa
(menu-bar-file-menu): Add item `Make Frame On Display'.
(menu-bar-update-buffers-maxbuf): Declare variable.
(menu-bar-update-buffers-1, menu-bar-update-buffers):
Rename local var maxbuf to menu-bar-update-buffers-maxbuf.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 23 Oct 1994 07:45:25 +0000 |
| parents | d50850d0c8f8 |
| children | 38a4e4386aed |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Sun Oct 23 06:16:43 1994 +0000 +++ b/lisp/menu-bar.el Sun Oct 23 07:45:25 1994 +0000 @@ -64,6 +64,8 @@ (define-key menu-bar-file-menu [delete-frame] '("Delete Frame" . delete-frame)) + (define-key menu-bar-file-menu [make-frame-on-display] + '("Make Frame on Display" . make-frame-on-display)) (define-key menu-bar-file-menu [make-frame] '("Make New Frame" . make-frame)))) @@ -282,6 +284,8 @@ (defvar list-buffers-directory nil) +(defvar menu-bar-update-buffers-maxbuf) + (defun menu-bar-select-buffer () (interactive) (switch-to-buffer last-command-event)) @@ -294,7 +298,7 @@ (defun menu-bar-update-buffers-1 (elt) (cons (format - (format "%%%ds %%s%%s %%s" maxbuf) + (format "%%%ds %%s%%s %%s" menu-bar-update-buffers-maxbuf) (cdr elt) (if (buffer-modified-p (car elt)) "*" " ") @@ -333,7 +337,7 @@ (let* ((buffer-list (mapcar 'list buffers)) tail - (maxbuf 0) + (menu-bar-update-buffers-maxbuf 0) (maxlen 0) alist head) @@ -354,8 +358,8 @@ (setq tail buffer-list) (while tail (or (eq ?\ (aref (cdr (car tail)) 0)) - (setq maxbuf - (max maxbuf + (setq menu-bar-update-buffers-maxbuf + (max menu-bar-update-buffers-maxbuf (length (cdr (car tail)))))) (setq tail (cdr tail))) ;; Set ALIST to an alist of the form