/[emacs]/emacs/lisp/menu-bar.el
ViewVC logotype

Diff of /emacs/lisp/menu-bar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.208 by miles, Tue Apr 23 08:34:57 2002 UTC revision 1.209 by miles, Tue Apr 23 14:31:59 2002 UTC
# Line 68  A large number or nil slows down menu re Line 68  A large number or nil slows down menu re
68    
69  ;; This alias is for compatibility with 19.28 and before.  ;; This alias is for compatibility with 19.28 and before.
70  (defvar menu-bar-file-menu menu-bar-files-menu)  (defvar menu-bar-file-menu menu-bar-files-menu)
71    
72    ;; This is referenced by some code below; it is defined in uniquify.el
73    (defvar uniquify-buffer-name-style)
74    
75    
76  ;; The "File" menu items  ;; The "File" menu items
77  (define-key menu-bar-files-menu [exit-emacs]  (define-key menu-bar-files-menu [exit-emacs]
# Line 1260  key (or menu-item)")) Line 1264  key (or menu-item)"))
1264    (select-frame frame)))    (select-frame frame)))
1265    
1266  (defun menu-bar-update-buffers-1 (elt)  (defun menu-bar-update-buffers-1 (elt)
1267    (cons (format    ;; (format "%%%ds  %%s%%s  %%s" menu-bar-update-buffers-maxbuf)
1268           ;; (format "%%%ds  %%s%%s  %%s" menu-bar-update-buffers-maxbuf)    (let* ((buf (car elt))
1269           "%s  %s%s  --  %s"           (file
1270           (cdr elt)            (and (null uniquify-buffer-name-style)
1271           (if (buffer-modified-p (car elt))                 (or (buffer-file-name buf)
1272               "*" " ")                     (buffer-local-value 'list-buffers-directory buf))))
1273           (save-excursion           (mod (if (buffer-modified-p buf) "*" ""))
1274             (set-buffer (car elt))           (ro (if (buffer-local-value 'buffer-read-only buf) "%" "")))
1275             (if buffer-read-only "%" " "))      (when file
1276           (let ((file        (setq file (file-name-directory file)))
1277                  (or (buffer-file-name (car elt))      (when (and file (> (length file) 20))
1278                      (save-excursion        (setq file (concat "..." (substring file -17))))
1279                        (set-buffer (car elt))      (cons (if file
1280                        list-buffers-directory)                (format "%s  %s%s  --  %s" (cdr elt) mod ro file)
1281                      "")))              (format "%s  %s%s" (cdr elt) mod ro))
1282             (setq file (or (file-name-directory file)            buf)))
1283                            ""))  
            (if (> (length file) 20)  
                (setq file (concat "..." (substring file -17))))  
            file))  
         (car elt)))  
1284    
1285  ;; Used to cache the menu entries for commands in the Buffers menu  ;; Used to cache the menu entries for commands in the Buffers menu
1286  (defvar menu-bar-buffers-menu-command-entries nil)  (defvar menu-bar-buffers-menu-command-entries nil)

Legend:
Removed from v.1.208  
changed lines
  Added in v.1.209

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26