mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix Bug#18016.

Browse source 
menu-bar.el (menu-bar-update-buffers): Update item list format
in `buffers-menu' to confirm with changes to `get_keyelt'
(2014-07-02T01:49:31Z!monnier@iro.umontreal.ca).  (Bug#18016)
This commit is contained in:
Rüdiger Sonderfeld 2014-07-29 16:21:11 +02:00
parent 8e3b4f58f1
commit 6bca885a20
2 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2014-07-29 Rüdiger Sonderfeld <ruediger@c-plusplus.de>
* menu-bar.el (menu-bar-update-buffers): Update item list format
in `buffers-menu' to confirm with changes to `get_keyelt'
(r117463). (Bug#18016)
2014-07-28 Fabián Ezequiel Gallina <fgallina@gnu.org> 2014-07-28 Fabián Ezequiel Gallina <fgallina@gnu.org>
* progmodes/python.el (inferior-python-mode): Make input prompts * progmodes/python.el (inferior-python-mode): Make input prompts

15
lisp/menu-bar.el
View file

@ -1988,11 +1988,10 @@ It must accept a buffer as its only required argument.")
(dolist (pair alist) (dolist (pair alist)
(setq i (1- i)) (setq i (1- i))
(aset buffers-vec i (aset buffers-vec i
(nconc (list (car pair) (cons (car pair)
(cons nil nil)) `(lambda ()
`(lambda () (interactive)
(interactive) (funcall menu-bar-select-buffer-function ,(cdr pair))))))
(funcall menu-bar-select-buffer-function ,(cdr pair))))))
(list buffers-vec)))) (list buffers-vec))))
;; Make a Frames menu if we have more than one frame. ;; Make a Frames menu if we have more than one frame.
@ -2004,10 +2003,8 @@ It must accept a buffer as its only required argument.")
(i 0)) (i 0))
(dolist (frame frames) (dolist (frame frames)
(aset frames-vec i (aset frames-vec i
(nconc (cons
(list (frame-parameter frame 'name)
(frame-parameter frame 'name)
(cons nil nil))
`(lambda () `(lambda ()
(interactive) (menu-bar-select-frame ,frame)))) (interactive) (menu-bar-select-frame ,frame))))
(setq i (1+ i))) (setq i (1+ i)))