Mercurial > emacs
comparison lisp/menu-bar.el @ 74236:5dd4d25de38f
(menu-bar-update-buffers): "?\ " -> "?\s".
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 27 Nov 2006 13:59:39 +0000 |
| parents | ba1ce5288c8c |
| children | 8b12ae69293f |
comparison
equal
deleted
inserted
replaced
| 74235:1807458bff39 | 74236:5dd4d25de38f |
|---|---|
| 1594 "..." | 1594 "..." |
| 1595 (substring name -12)) | 1595 (substring name -12)) |
| 1596 name)))) | 1596 name)))) |
| 1597 ;; Compute the maximum length of any name. | 1597 ;; Compute the maximum length of any name. |
| 1598 (dolist (buf buffer-list) | 1598 (dolist (buf buffer-list) |
| 1599 (unless (eq ?\ (aref (cdr buf) 0)) | 1599 (unless (eq ?\s (aref (cdr buf) 0)) |
| 1600 (setq menu-bar-update-buffers-maxbuf | 1600 (setq menu-bar-update-buffers-maxbuf |
| 1601 (max menu-bar-update-buffers-maxbuf | 1601 (max menu-bar-update-buffers-maxbuf |
| 1602 (length (cdr buf)))))) | 1602 (length (cdr buf)))))) |
| 1603 ;; Set ALIST to an alist of the form | 1603 ;; Set ALIST to an alist of the form |
| 1604 ;; ITEM-STRING . BUFFER | 1604 ;; ITEM-STRING . BUFFER |
| 1605 (dolist (buf buffer-list) | 1605 (dolist (buf buffer-list) |
| 1606 (unless (eq ?\ (aref (cdr buf) 0)) | 1606 (unless (eq ?\s (aref (cdr buf) 0)) |
| 1607 (push (menu-bar-update-buffers-1 buf) alist))) | 1607 (push (menu-bar-update-buffers-1 buf) alist))) |
| 1608 ;; Now make the actual list of items, and add | 1608 ;; Now make the actual list of items, and add |
| 1609 ;; some miscellaneous buffer commands to the end. | 1609 ;; some miscellaneous buffer commands to the end. |
| 1610 (mapcar (lambda (pair) | 1610 (mapcar (lambda (pair) |
| 1611 ;; This is somewhat risque, to use | 1611 ;; This is somewhat risque, to use |