74 |
:type 'boolean |
:type 'boolean |
75 |
:group 'Buffer-menu) |
:group 'Buffer-menu) |
76 |
|
|
77 |
(defface Buffer-menu-buffer-face |
(defface Buffer-menu-buffer |
78 |
'((t (:weight bold))) |
'((t (:weight bold))) |
79 |
"Face used to highlight buffer name." |
"Face used to highlight buffer name." |
80 |
:group 'Buffer-menu |
:group 'Buffer-menu |
81 |
:group 'font-lock-highlighting-faces) |
:group 'font-lock-highlighting-faces) |
82 |
|
;; backward-compatibility alias |
83 |
|
(put 'Buffer-menu-buffer-face 'face-alias 'Buffer-menu-buffer) |
84 |
|
|
85 |
(defcustom Buffer-menu-buffer+size-width 26 |
(defcustom Buffer-menu-buffer+size-width 26 |
86 |
"*How wide to jointly make the buffer name and size columns." |
"*How wide to jointly make the buffer name and size columns." |
775 |
(int-to-string (nth 3 buffer)) |
(int-to-string (nth 3 buffer)) |
776 |
`(buffer-name ,(nth 2 buffer) |
`(buffer-name ,(nth 2 buffer) |
777 |
buffer ,(car buffer) |
buffer ,(car buffer) |
778 |
font-lock-face Buffer-menu-buffer-face |
font-lock-face Buffer-menu-buffer |
779 |
mouse-face highlight |
mouse-face highlight |
780 |
help-echo "mouse-2: select this buffer")) |
help-echo "mouse-2: select this buffer")) |
781 |
" " |
" " |