* lisp/msb.el (msb--make-keymap-menu, msb-menu-bar-update-buffers):

Don't add outdated key-shortcut cache.

Fixes: debbugs:18482

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9b844bf38cbead1d4bd7b2a7be15a53555e7c1dd..bc514d29b1017be04d05517f23b2a4e5266b6175 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-09-16  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * msb.el (msb--make-keymap-menu, msb-menu-bar-update-buffers):
+       Don't add outdated key-shortcut cache (bug#18482).
+
 2014-09-15  Glenn Morris  <rgm@gnu.org>
 
        * image.el (image-multi-frame-p): Fix thinko - do not force

diff --git a/lisp/msb.el b/lisp/msb.el
index 166c6c61e3066bf9d9d017dcb1a7717c1d7fd9bb..474d76bf6ca94611677a8f776598b292beaef843 100644 (file)
--- a/lisp/msb.el
+++ b/lisp/msb.el
@@ -1064,7 +1064,7 @@ variable `msb-menu-cond'."
     list))
 
 (defun msb--make-keymap-menu (raw-menu)
-  (let ((end (cons '(nil) 'menu-bar-select-buffer))
+  (let ((end 'menu-bar-select-buffer)
        (mcount 0))
     (mapcar
      (lambda (sub-menu)
@@ -1105,13 +1105,12 @@ variable `msb-menu-cond'."
            (setcdr (nthcdr msb-max-menu-items frames) nil))
          (setq frames-menu
                (nconc
-                (list 'frame f-title '(nil) 'keymap f-title)
+                (list 'frame f-title 'keymap f-title)
                 (mapcar
                  (lambda (frame)
                    (nconc
                     (list (frame-parameter frame 'name)
-                          (frame-parameter frame 'name)
-                          (cons nil nil))
+                          (frame-parameter frame 'name))
                      `(lambda ()
                         (interactive) (menu-bar-select-frame ,frame))))
                  frames)))))