[Emacs-diffs] Changes to emacs/lisp/ibuffer.el

[John Paul Wallington]

Index: emacs/lisp/ibuffer.el
diff -c emacs/lisp/ibuffer.el:1.50 emacs/lisp/ibuffer.el:1.51
*** emacs/lisp/ibuffer.el:1.50  Tue Feb 11 10:00:11 2003
--- emacs/lisp/ibuffer.el       Fri Apr  4 16:46:42 2003
***************
*** 1612,1618 ****
                             :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"))
    (propertize (buffer-name) 'font-lock-face (ibuffer-buffer-name-face buffer 
mark)))
  
  (define-ibuffer-column size (:inline t)
--- 1612,1620 ----
                             :props
                             ('mouse-face 'highlight 'keymap ibuffer-name-map
                              'ibuffer-name-column t
!                             '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,2069 ****
       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 ")))
    (insert "\n")
    (when bmarklist
      (put-text-property
--- 2065,2076 ----
       font-lock-face ,ibuffer-filter-group-name-face
       keymap ,ibuffer-mode-filter-group-map
       mouse-face highlight
!      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