# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 769326866 0
# Node ID 9c6abdf5541afae33a7409fb3139d890ebb31fe5
# Parent  ccb8b7f8dce7343c7c7e12f72bd1b8a024ed3f43
(menu-bar-update-buffers): Record buffers' mod and
read-only flags, and recompute if they change.

diff -r ccb8b7f8dce7 -r 9c6abdf5541a lisp/menu-bar.el
--- a/lisp/menu-bar.el	Thu May 19 05:20:27 1994 +0000
+++ b/lisp/menu-bar.el	Thu May 19 05:54:26 1994 +0000
@@ -264,11 +264,19 @@
 (defun menu-bar-update-buffers ()
   (let ((buffers (buffer-list))
 	(frames (frame-list))
+	buffers-info
 	buffers-menu frames-menu)
-    (if (and (equal buffers menu-bar-update-buffers-last-buffers)
+    (setq buffers-info
+	  (mapcar (function (lambda (buffer)
+			      (list buffer (buffer-modified-p buffer)
+				    (save-excursion
+				      (set-buffer buffer)
+				      buffer-read-only))))
+		  buffers))
+    (if (and (equal buffers-info menu-bar-update-buffers-last-buffers)
 	     (equal frames menu-bar-update-buffers-last-frames))
 	nil
-      (setq menu-bar-update-buffers-last-buffers buffers)
+      (setq menu-bar-update-buffers-last-buffers buffers-info)
       (setq menu-bar-update-buffers-last-frames frames)
       ;; If requested, list only the N most recently selected buffers.
       (if (and (integerp buffers-menu-max-size)