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] |
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) |