procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(menu-bar-update-buffers-1): Don't display a directory separator if

Browse source 
there's no directory.  Don't display directories at all if uniquify is
active.  Some code cleanup.
(uniquify-buffer-name-style): Declare (but don't initialize).
This commit is contained in:
Miles Bader 2002-04-23 14:33:02 +00:00
parent b3738089df
commit 68703c1156
2 changed files with 26 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,5 +1,10 @@
2002-04-23 Miles Bader <miles@gnu.org>
* menu-bar.el (menu-bar-update-buffers-1): Don't display a
directory separator if there's no directory. Don't display
directories at all if uniquify is active. Some code cleanup.
(uniquify-buffer-name-style): Declare (but don't initialize).
* menu-bar.el (menu-bar-update-buffers): Don't use constant lists
for command menu entries, since the low-level menu code modifies
them. Cache the resulting list.

42
lisp/menu-bar.el
View file

@ -68,6 +68,10 @@ A large number or nil slows down menu responsiveness."
;; This alias is for compatibility with 19.28 and before.
(defvar menu-bar-file-menu menu-bar-files-menu)
;; This is referenced by some code below; it is defined in uniquify.el
(defvar uniquify-buffer-name-style)
;; The "File" menu items
(define-key menu-bar-files-menu [exit-emacs]
@ -1260,27 +1264,23 @@ key (or menu-item)"))
(select-frame frame)))
(defun menu-bar-update-buffers-1 (elt)
(cons (format
;; (format "%%%ds %%s%%s %%s" menu-bar-update-buffers-maxbuf)
"%s %s%s -- %s"
(cdr elt)
(if (buffer-modified-p (car elt))
"*" " ")
(save-excursion
(set-buffer (car elt))
(if buffer-read-only "%" " "))
(let ((file
(or (buffer-file-name (car elt))
(save-excursion
(set-buffer (car elt))
list-buffers-directory)
"")))
(setq file (or (file-name-directory file)
""))
(if (> (length file) 20)
(setq file (concat "..." (substring file -17))))
file))
(car elt)))
;; (format "%%%ds %%s%%s %%s" menu-bar-update-buffers-maxbuf)
(let* ((buf (car elt))
(file
(and (null uniquify-buffer-name-style)
(or (buffer-file-name buf)
(buffer-local-value 'list-buffers-directory buf))))
(mod (if (buffer-modified-p buf) "*" ""))
(ro (if (buffer-local-value 'buffer-read-only buf) "%" "")))
(when file
(setq file (file-name-directory file)))
(when (and file (> (length file) 20))
(setq file (concat "..." (substring file -17))))
(cons (if file
(format "%s %s%s -- %s" (cdr elt) mod ro file)
(format "%s %s%s" (cdr elt) mod ro))
buf)))
;; Used to cache the menu entries for commands in the Buffers menu
(defvar menu-bar-buffers-menu-command-entries nil)