[Emacs-diffs] Changes to emacs/lisp/buff-menu.el,v

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Nick Roberts <nickrob>  08/03/14 21:32:48

Index: buff-menu.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/buff-menu.el,v
retrieving revision 1.111
retrieving revision 1.112
diff -u -b -r1.111 -r1.112
--- buff-menu.el        8 Jan 2008 20:44:59 -0000       1.111
+++ buff-menu.el        14 Mar 2008 21:32:47 -0000      1.112
@@ -809,13 +809,20 @@
                ;; 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)
+               (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 "mouse-2: select this 
buffer"))
+                                      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)