diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2009-02-23 11:01:16 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2009-02-23 11:01:16 +0000 |
| commit | 1a8f1c237a0ba9c08bde93e7d7a2934e7168a664 (patch) | |
| tree | 1ae58a74a403e53c9d4e31b487cccad44d372e44 | |
| parent | 0c78f55dc54b5225df2cfda9aefdd8b49553bd45 (diff) | |
| download | emacs-1a8f1c237a0ba9c08bde93e7d7a2934e7168a664.tar.gz | |
* ibuffer.el (ibuffer-redisplay-engine): Avoid "Mark set" message clobbering
the useful message from `ibuffer-toggle-sorting-mode'. (Bug#2439)
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/ibuffer.el | 11 |
2 files changed, 12 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 164c413cf9d..3930b5b36ff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-02-23 Geoff Gole <geoffgole@gmail.com> (tiny change) + + * ibuffer.el (ibuffer-redisplay-engine): Avoid "Mark set" message + clobbering the useful message from `ibuffer-toggle-sorting-mode'. + (Bug#2439) + 2009-02-23 Miles Bader <miles@gnu.org> * proced.el (proced-process-attributes): diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 9454926d896..539e925b6b7 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -54,10 +54,10 @@ (defvar ibuffer-tmp-hide-regexps) (defvar ibuffer-tmp-show-regexps) -(declare-function ibuffer-mark-on-buffer "ibuf-ext" +(declare-function ibuffer-mark-on-buffer "ibuf-ext" (func &optional ibuffer-mark-on-buffer-mark group)) (declare-function ibuffer-format-qualifier "ibuf-ext" (qualifier)) -(declare-function ibuffer-generate-filter-groups "ibuf-ext" +(declare-function ibuffer-generate-filter-groups "ibuf-ext" (bmarklist &optional noempty nodefault)) (declare-function ibuffer-format-filter-group-data "ibuf-ext" (filter)) @@ -1239,7 +1239,7 @@ a new window in the current frame, splitting vertically." (ibuffer-map-on-mark ibuffer-deletion-char func)) (defsubst ibuffer-assert-ibuffer-mode () - (assert (derived-mode-p 'ibuffer-mode))) + (assert (derived-mode-p 'ibuffer-mode))) (defun ibuffer-buffer-file-name () (or buffer-file-name @@ -2066,7 +2066,7 @@ the value of point at the beginning of the line for that buffer." name))) (when hmap (setq - strname + strname (propertize strname 'mouse-face 'highlight 'keymap hmap))) strname))))) (add-text-properties opos (point) `(ibuffer-title-header t)) @@ -2280,7 +2280,8 @@ If optional arg SILENT is non-nil, do not display progress messages." (setq buffer-read-only t) (set-buffer-modified-p ibuffer-did-modification) (setq ibuffer-did-modification nil) - (goto-line (1+ orig))))) + (goto-char 1) + (forward-line orig)))) (defun ibuffer-quit () "Quit this `ibuffer' session. |