all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* [PATCH] list-buffers
@ 2008-03-14  3:43 Nick Roberts
  2008-03-14 19:40 ` Stefan Monnier
  0 siblings, 1 reply; 2+ messages in thread
From: Nick Roberts @ 2008-03-14  3:43 UTC (permalink / raw)
  To: emacs-devel


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




^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2008-03-14 19:40 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2008-03-14  3:43 [PATCH] list-buffers Nick Roberts
2008-03-14 19:40 ` Stefan Monnier

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.