[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)))