[Emacs-diffs] Changes to emacs/lisp/menu-bar.el

[Andreas Schwab]

Index: emacs/lisp/menu-bar.el
diff -c emacs/lisp/menu-bar.el:1.208 emacs/lisp/menu-bar.el:1.209
*** emacs/lisp/menu-bar.el:1.208        Tue Apr 23 04:34:57 2002
--- emacs/lisp/menu-bar.el      Tue Apr 23 10:31:59 2002
***************
*** 68,73 ****
--- 68,77 ----
  
  ;; 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,1286 ****
    (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)))
  
  ;; Used to cache the menu entries for commands in the Buffers menu
  (defvar menu-bar-buffers-menu-command-entries nil)
--- 1264,1286 ----
    (select-frame frame)))
  
  (defun menu-bar-update-buffers-1 (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)