diff options
| author | Tino Calancha <tino.calancha@gmail.com> | 2016-07-08 11:22:34 +0900 |
|---|---|---|
| committer | Tino Calancha <tino.calancha@gmail.com> | 2016-07-08 11:22:34 +0900 |
| commit | 0e6fa2ddf76a1d702d836db3786ec1e34f7dcf54 (patch) | |
| tree | 2233b72056a058637488780c03153d6659b4c4f8 /lisp/ibuffer.el | |
| parent | 9bf31d1d3f35880c652f76509d1e27d33e454121 (diff) | |
| download | emacs-0e6fa2ddf76a1d702d836db3786ec1e34f7dcf54.tar.gz | |
Remove just input mark
* lisp/ibuffer.el (ibuffer-unmark-all): When MARK is not ?\r remove
just MARK.
Diffstat (limited to 'lisp/ibuffer.el')
| -rw-r--r-- | lisp/ibuffer.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 4f266d909e4..fde17573dd7 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -1345,6 +1345,12 @@ With optional ARG, make read-only only if ARG is not negative." (lambda (_buf _mark) (ibuffer-set-mark-1 ?\s) t))) + ((not (char-equal mark ?\r)) + (ibuffer-map-lines + (lambda (_buf _mark) + (when (char-equal _mark mark) + (ibuffer-set-mark-1 ?\s)) + t))) (t (ibuffer-map-lines (lambda (_buf mark) |