Mercurial > emacs
comparison lisp/mouse.el @ 10790:7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Tue, 21 Feb 1995 12:47:18 +0000 |
| parents | 806b3e3fd93c |
| children | 6c0dc7a8a07a |
comparison
equal
deleted
inserted
replaced
| 10789:af7c0bb1059f | 10790:7d1a9faaf158 |
|---|---|
| 1032 (setq tail (buffer-list)) | 1032 (setq tail (buffer-list)) |
| 1033 (while tail | 1033 (while tail |
| 1034 (let ((elt (car tail))) | 1034 (let ((elt (car tail))) |
| 1035 (if (not (string-match "^ " | 1035 (if (not (string-match "^ " |
| 1036 (buffer-name elt))) | 1036 (buffer-name elt))) |
| 1037 (setq head (cons | 1037 (setq head |
| 1038 (cons | 1038 (cons |
| 1039 (format | 1039 (cons |
| 1040 (format "%%%ds %%s%%s %%s" | 1040 (format |
| 1041 maxbuf) | 1041 (format "%%%ds %%s%%s %%s" maxbuf) |
| 1042 (buffer-name elt) | 1042 (buffer-name elt) |
| 1043 (if (buffer-modified-p elt) | 1043 (if (buffer-modified-p elt) "*" " ") |
| 1044 "*" " ") | 1044 (save-excursion |
| 1045 (save-excursion | 1045 (set-buffer elt) |
| 1046 (set-buffer elt) | 1046 (if buffer-read-only "%" " ")) |
| 1047 (if buffer-read-only "%" " ")) | 1047 (or (buffer-file-name elt) |
| 1048 (or (buffer-file-name elt) "")) | 1048 (save-excursion |
| 1049 elt) | 1049 (set-buffer elt) |
| 1050 head)))) | 1050 (if list-buffers-directory |
| 1051 (expand-file-name | |
| 1052 list-buffers-directory))) | |
| 1053 "")) | |
| 1054 elt) | |
| 1055 head)))) | |
| 1051 (setq tail (cdr tail))) | 1056 (setq tail (cdr tail))) |
| 1052 (reverse head)))))) | 1057 (reverse head)))))) |
| 1053 (let ((buf (x-popup-menu event menu)) | 1058 (let ((buf (x-popup-menu event menu)) |
| 1054 (window (posn-window (event-start event)))) | 1059 (window (posn-window (event-start event)))) |
| 1055 (if buf | 1060 (if buf |