mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(menu-bar-update-buffers): "?\ " -> "?\s".

Browse source
This commit is contained in:
Juanma Barranquero 2006-11-27 13:59:39 +00:00
parent 0c655b900b
commit 15e917e4f3
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/menu-bar.el
View file

@ -1596,14 +1596,14 @@ Buffers menu is regenerated."
name))))
;; Compute the maximum length of any name.
(dolist (buf buffer-list)
(unless (eq ?\ (aref (cdr buf) 0))
(unless (eq ?\s (aref (cdr buf) 0))
(setq menu-bar-update-buffers-maxbuf
(max menu-bar-update-buffers-maxbuf
(length (cdr buf))))))
;; Set ALIST to an alist of the form
;; ITEM-STRING . BUFFER
(dolist (buf buffer-list)
(unless (eq ?\ (aref (cdr buf) 0))
(unless (eq ?\s (aref (cdr buf) 0))
(push (menu-bar-update-buffers-1 buf) alist)))
;; Now make the actual list of items, and add
;; some miscellaneous buffer commands to the end.