(msb-menu-bar-update-buffers): Fixed frame menu to use

the frame name as the car of a menu entry, rather than the frame.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0fd79e4cebaccbb32cd1b0a865b25133f652351e..3189447fee83542c5f07c87936b4fa0b9dc171e2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2002-05-08  Richard M. Stallman  <rms@gnu.org>
+
+       * mail/smtpmail.el (netrc-machine, netrc-get): Add autoloads.
+
+2002-05-08  Simon Marshall  <simon@gnu.org>
+
+       * msb.el (msb-menu-bar-update-buffers): Fixed frame menu to use
+       the frame name as the car of a menu entry, rather than the frame.
+
 2002-05-08  Juanma Barranquero  <lektu@terra.es>
 
        * rfn-eshadow.el (read-file-name-electric-shadow-mode): Fix typos

diff --git a/lisp/msb.el b/lisp/msb.el
index 907bbbfa07f5f05365b6a9d572fe2f2415209e1a..2e19bb9d6d1d69d7248e7539f812fbe140fe6b2d 100644 (file)
--- a/lisp/msb.el
+++ b/lisp/msb.el
@@ -1114,9 +1114,8 @@ variable `msb-menu-cond'."
                 (mapcar
                  (lambda (frame)
                    (nconc
-                    (list frame
-                          (cdr (assq 'name
-                                     (frame-parameters frame)))
+                    (list (frame-parameter frame 'name)
+                          (frame-parameter frame 'name)
                           (cons nil nil))
                     'menu-bar-select-frame))
                  frames)))))