Mercurial > emacs
comparison lisp/buff-menu.el @ 90182:f042e7c0fe20
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-53
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 302-319)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 69)
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 20 May 2005 04:22:05 +0000 |
| parents | 02f1dbc4a199 a463c8c59947 |
| children | 5b029ff3b08d |
comparison
equal
deleted
inserted
replaced
| 90181:0c828e2b0b6f | 90182:f042e7c0fe20 |
|---|---|
| 75 :group 'Buffer-menu) | 75 :group 'Buffer-menu) |
| 76 | 76 |
| 77 (defface Buffer-menu-buffer-face | 77 (defface Buffer-menu-buffer-face |
| 78 '((t (:weight bold))) | 78 '((t (:weight bold))) |
| 79 "Face used to highlight buffer name." | 79 "Face used to highlight buffer name." |
| 80 :group 'Buffer-menu | |
| 80 :group 'font-lock-highlighting-faces) | 81 :group 'font-lock-highlighting-faces) |
| 81 | 82 |
| 82 (defcustom Buffer-menu-buffer+size-width 26 | 83 (defcustom Buffer-menu-buffer+size-width 26 |
| 83 "*How wide to jointly make the buffer name and size columns." | 84 "*How wide to jointly make the buffer name and size columns." |
| 84 :type 'number | 85 :type 'number |
| 752 ;; This way we avoid problems with unusual buffer names. | 753 ;; This way we avoid problems with unusual buffer names. |
| 753 (Buffer-menu-buffer+size (nth 2 buffer) | 754 (Buffer-menu-buffer+size (nth 2 buffer) |
| 754 (int-to-string (nth 3 buffer)) | 755 (int-to-string (nth 3 buffer)) |
| 755 `(buffer-name ,(nth 2 buffer) | 756 `(buffer-name ,(nth 2 buffer) |
| 756 buffer ,(car buffer) | 757 buffer ,(car buffer) |
| 757 face Buffer-menu-buffer-face | 758 font-lock-face Buffer-menu-buffer-face |
| 758 mouse-face highlight | 759 mouse-face highlight |
| 759 help-echo "mouse-2: select this buffer")) | 760 help-echo "mouse-2: select this buffer")) |
| 760 " " | 761 " " |
| 761 (if (> (length (nth 4 buffer)) Buffer-menu-mode-width) | 762 (if (> (length (nth 4 buffer)) Buffer-menu-mode-width) |
| 762 (substring (nth 4 buffer) 0 Buffer-menu-mode-width) | 763 (substring (nth 4 buffer) 0 Buffer-menu-mode-width) |