[PATCH] list-buffers

[PATCH] list-buffers

[Nick Roberts]

This patch displays the complete buffer name in the tooltip when it doesn't fit
in the *Buffer List* buffer (C-x C-b).  It replaces the current message 
"mouse-2: select this buffer" but this can usually be found in adjacent items
with shorter names.

Shall I commit it (to the trunk)?

-- 
Nick                                           http://www.inet.net.nz/~nickrob


*** buff-menu.el.~1.111.~	2008-01-09 10:26:01.000000000 +1300
--- buff-menu.el	2008-03-14 16:37:42.000000000 +1300
*************** For more information, see the function `
*** 809,822 ****
  		;; Put the buffer name into a text property
  		;; so we don't have to extract it from the text.
  		;; This way we avoid problems with unusual buffer names.
! 		(Buffer-menu-buffer+size (nth 2 buffer)
! 					 (int-to-string (nth 3 buffer))
! 					 `(buffer-name ,(nth 2 buffer)
! 					   buffer ,(car buffer)
! 					   font-lock-face buffer-menu-buffer
! 					   mouse-face highlight
! 					   help-echo "mouse-2: select this buffer"))
! 		"  "
  		(if (> (length (nth 4 buffer)) Buffer-menu-mode-width)
  		    (substring (nth 4 buffer) 0 Buffer-menu-mode-width)
  		  (nth 4 buffer)))
--- 809,829 ----
  		;; Put the buffer name into a text property
  		;; so we don't have to extract it from the text.
  		;; This way we avoid problems with unusual buffer names.
! 		(let ((name (nth 2 buffer))
! 		      (size (int-to-string (nth 3 buffer))))
! 		      (Buffer-menu-buffer+size name size
! 		         `(buffer-name ,name
! 				       buffer ,(car buffer)
! 				       font-lock-face buffer-menu-buffer
! 				       mouse-face highlight
! 				       help-echo 
! 				       ,(if (>= (length name)
! 						(- Buffer-menu-buffer+size-width
! 						   (max (length size) 3)
! 						   2))
! 					    name
! 					  "mouse-2: select this buffer"))))
! 		  "  "
  		(if (> (length (nth 4 buffer)) Buffer-menu-mode-width)
  		    (substring (nth 4 buffer) 0 Buffer-menu-mode-width)
  		  (nth 4 buffer)))

Re: [PATCH] list-buffers

[Stefan Monnier]

> This patch displays the complete buffer name in the tooltip when it
> doesn't fit in the *Buffer List* buffer (C-x C-b).  It replaces the
> current message  "mouse-2: select this buffer" but this can usually be
> found in adjacent items with shorter names.

> Shall I commit it (to the trunk)?

Fine for me,


        Stefan