From: Nick Roberts <nickrob@snap.net.nz>
Date: Fri, 14 Mar 2008 21:32:47 +0000 (+0000)
Subject: (list-buffers-noselect): Display buffer name in
X-Git-Tag: emacs-pretest-23.0.90~7139
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=392640c4376b43617eaba89e3fde3c2a5d99a237;p=emacs.git

(list-buffers-noselect): Display buffer name in
tooltip instead of mouse binding when it doesn't fit in the list.
---

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index f90cf884c1d..f98179c3ba6 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -809,14 +809,21 @@ For more information, see the function `buffer-menu'."
 		;; 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"))
-		"  "
+		(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)))