diff options
| author | Tino Calancha | 2016-12-07 21:36:38 +0900 |
|---|---|---|
| committer | Tino Calancha | 2016-12-07 21:36:38 +0900 |
| commit | 0fa281fe2f3f104ec954dde096fd085eba42021f (patch) | |
| tree | a4fb42c714900ec94491935dd031563db2982f02 | |
| parent | 05e773a460708e40941d1267054bba23e619e7a0 (diff) | |
| download | emacs-0fa281fe2f3f104ec954dde096fd085eba42021f.tar.gz 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).
| -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." | |||
| 1431 | (interactive (ibuffer-get-region-and-prefix)) | 1431 | (interactive (ibuffer-get-region-and-prefix)) |
| 1432 | (ibuffer-mark-region-or-n-with-char start end arg ?\s)) | 1432 | (ibuffer-mark-region-or-n-with-char start end arg ?\s)) |
| 1433 | 1433 | ||
| 1434 | (defun ibuffer-unmark-backward (arg) | 1434 | (defun ibuffer-unmark-backward (start end arg) |
| 1435 | "Unmark the ARG previous buffers. | 1435 | "Unmark the buffers in the region, or previous ARG buffers. |
| 1436 | If point is on a group name, this function operates on that group." | 1436 | If point is on a group name, this function operates on that group." |
| 1437 | (interactive "p") | 1437 | (interactive (ibuffer-get-region-and-prefix)) |
| 1438 | (ibuffer-unmark-forward nil nil (- arg))) | 1438 | (ibuffer-unmark-forward start end (- arg))) |
| 1439 | 1439 | ||
| 1440 | (defun ibuffer-mark-region-or-n-with-char (start end arg mark-char) | 1440 | (defun ibuffer-mark-region-or-n-with-char (start end arg mark-char) |
| 1441 | (if (use-region-p) | 1441 | (if (use-region-p) |