# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1049492802 0
# Node ID 2ca336b1259de25b1611cab0ba9b081a2df527ee
# Parent  dff98b69fed2f14d097ac846524a99556854a486
(ibuffer-insert-filter-group): `help-echo' text property dynamically
respects `tooltip-mode'.
(define-ibuffer-column name): Likewise.

diff -r dff98b69fed2 -r 2ca336b1259d lisp/ibuffer.el
--- a/lisp/ibuffer.el	Fri Apr 04 21:43:12 2003 +0000
+++ b/lisp/ibuffer.el	Fri Apr 04 21:46:42 2003 +0000
@@ -1612,7 +1612,9 @@
 			     :props
 			     ('mouse-face 'highlight 'keymap ibuffer-name-map
 			      'ibuffer-name-column t
-			      'help-echo "mouse-1: mark this buffer\nmouse-2: select this buffer\nmouse-3: operate on this buffer"))
+			      'help-echo '(if tooltip-mode
+					      "mouse-1: mark this buffer\nmouse-2: select this buffer\nmouse-3: operate on this buffer"
+					    "mouse-1: mark buffer   mouse-2: select buffer   mouse-3: operate")))
   (propertize (buffer-name) 'font-lock-face (ibuffer-buffer-name-face buffer mark)))
 
 (define-ibuffer-column size (:inline t)
@@ -2063,7 +2065,12 @@
      font-lock-face ,ibuffer-filter-group-name-face
      keymap ,ibuffer-mode-filter-group-map
      mouse-face highlight
-     help-echo ,(concat filter-string "mouse-1: toggle marks in this group\nmouse-2: hide/show this filtering group ")))
+     help-echo ,(let ((echo '(if tooltip-mode
+				 "mouse-1: toggle marks in this group\nmouse-2: hide/show this filtering group"
+			       " mouse-1: toggle marks  mouse-2: hide/show")))
+		  (if (> (length filter-string) 0)
+		      `(concat ,filter-string (and tooltip-mode "\n") ,echo)
+		    echo))))
   (insert "\n")
   (when bmarklist
     (put-text-property