summaryrefslogtreecommitdiff
path: root/lisp/ibuffer.el
diff options
context:
space:
mode:
authorTino Calancha <tino.calancha@gmail.com>2016-12-07 21:36:38 +0900
committerTino Calancha <tino.calancha@gmail.com>2016-12-07 21:36:38 +0900
commit0fa281fe2f3f104ec954dde096fd085eba42021f (patch)
treea4fb42c714900ec94491935dd031563db2982f02 /lisp/ibuffer.el
parent05e773a460708e40941d1267054bba23e619e7a0 (diff)
downloademacs-0fa281fe2f3f104ec954dde096fd085eba42021f.tar.gz
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.el8
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)