# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782898325 0
# Node ID 49eee3cb0ffa6b1d41872be911767bd6a0bc7a29
# Parent  d50850d0c8f8c21cc949ef4c4a9150a52c1599b7
(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 -r d50850d0c8f8 -r 49eee3cb0ffa lisp/menu-bar.el
--- 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