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)