Mercurial > emacs
comparison lisp/buff-menu.el @ 68240:3caf8426fa72
(list-buffers-noselect): Use `buffer-menu-buffer' instead of `Buffer-menu-buffer'.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Tue, 17 Jan 2006 21:41:48 +0000 |
parents | badae83666f6 |
children | 3bd95f4f2941 d88caeac70d7 |
comparison
equal
deleted
inserted
replaced
68239:e08826f8b714 | 68240:3caf8426fa72 |
---|---|
794 ;; This way we avoid problems with unusual buffer names. | 794 ;; This way we avoid problems with unusual buffer names. |
795 (Buffer-menu-buffer+size (nth 2 buffer) | 795 (Buffer-menu-buffer+size (nth 2 buffer) |
796 (int-to-string (nth 3 buffer)) | 796 (int-to-string (nth 3 buffer)) |
797 `(buffer-name ,(nth 2 buffer) | 797 `(buffer-name ,(nth 2 buffer) |
798 buffer ,(car buffer) | 798 buffer ,(car buffer) |
799 font-lock-face Buffer-menu-buffer | 799 font-lock-face buffer-menu-buffer |
800 mouse-face highlight | 800 mouse-face highlight |
801 help-echo "mouse-2: select this buffer")) | 801 help-echo "mouse-2: select this buffer")) |
802 " " | 802 " " |
803 (if (> (length (nth 4 buffer)) Buffer-menu-mode-width) | 803 (if (> (length (nth 4 buffer)) Buffer-menu-mode-width) |
804 (substring (nth 4 buffer) 0 Buffer-menu-mode-width) | 804 (substring (nth 4 buffer) 0 Buffer-menu-mode-width) |