diff options
| author | Tino Calancha <tino.calancha@gmail.com> | 2016-12-07 21:36:38 +0900 |
|---|---|---|
| committer | Tino Calancha <tino.calancha@gmail.com> | 2016-12-07 21:36:38 +0900 |
| commit | 0fa281fe2f3f104ec954dde096fd085eba42021f (patch) | |
| tree | a4fb42c714900ec94491935dd031563db2982f02 /lisp/ibuffer.el | |
| parent | 05e773a460708e40941d1267054bba23e619e7a0 (diff) | |
| download | emacs-0fa281fe2f3f104ec954dde096fd085eba42021f.tar.gz emacs-0fa281fe2f3f104ec954dde096fd085eba42021f.tar.bz2 emacs-0fa281fe2f3f104ec954dde096fd085eba42021f.zip | |
ibuffer-unmark-backward: Unmark the region when is active
* lisp/ibuffer.el (ibuffer-unmark-backward):
Use 'ibuffer-get-region-and-prefix'; call 'ibuffer-unmark-forward'
with the region boundary as the first 2 arguments (Bug#24987).
Diffstat (limited to 'lisp/ibuffer.el')
| -rw-r--r-- | lisp/ibuffer.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 8898afd4fbf..ef1ef4b8aeb 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -1431,11 +1431,11 @@ If point is on a group name, this function operates on that group." (interactive (ibuffer-get-region-and-prefix)) (ibuffer-mark-region-or-n-with-char start end arg ?\s)) -(defun ibuffer-unmark-backward (arg) - "Unmark the ARG previous buffers. +(defun ibuffer-unmark-backward (start end arg) + "Unmark the buffers in the region, or previous ARG buffers. If point is on a group name, this function operates on that group." - (interactive "p") - (ibuffer-unmark-forward nil nil (- arg))) + (interactive (ibuffer-get-region-and-prefix)) + (ibuffer-unmark-forward start end (- arg))) (defun ibuffer-mark-region-or-n-with-char (start end arg mark-char) (if (use-region-p) |