diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-09-15 20:28:28 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-09-15 20:28:28 -0400 |
| commit | 3a41eb66c104adbbc9040b817eee76a5aedd5d16 (patch) | |
| tree | 52548fd1e8d4469180cdaa8a185c190254d4009e /lisp/msb.el | |
| parent | a7fc3ab8f1e7061a468eaff0c0b47abd12c99003 (diff) | |
| download | emacs-3a41eb66c104adbbc9040b817eee76a5aedd5d16.tar.gz | |
* lisp/msb.el (msb--make-keymap-menu, msb-menu-bar-update-buffers):
Don't add outdated key-shortcut cache.
Fixes: debbugs:18482
Diffstat (limited to 'lisp/msb.el')
| -rw-r--r-- | lisp/msb.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/msb.el b/lisp/msb.el index 166c6c61e30..474d76bf6ca 100644 --- 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))))) |