From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 23 Oct 1994 07:45:25 +0000 (+0000)
Subject: (menu-bar-file-menu): Add item `Make Frame On Display'.
X-Git-Tag: emacs-19.34~6188
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08e8171fd0049408c03e7d92c51dc957a5a06a74;p=emacs.git

(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.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 958b67fcfe3..7574d74390c 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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 @@ A large number or nil slows down menu responsiveness.")
 
 (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 @@ A large number or nil slows down menu responsiveness.")
 
 (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 @@ A large number or nil slows down menu responsiveness.")
 		     (let* ((buffer-list
 			     (mapcar 'list buffers))
 			    tail
-			    (maxbuf 0)
+			    (menu-bar-update-buffers-maxbuf 0)
 			    (maxlen 0)
 			    alist
 			    head)
@@ -354,8 +358,8 @@ A large number or nil slows down menu responsiveness.")
 		       (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