mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

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

Browse Source 
Don't add outdated key-shortcut cache.

Fixes: debbugs:18482
This commit is contained in:
Stefan Monnier 2014-09-15 20:28:28 -04:00
parent a7fc3ab8f1
commit 3a41eb66c1
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

7
lisp/msb.el
View File

@ -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)))))