From: Tino Calancha <tino.calancha@gmail.com>
Date: Fri, 8 Jul 2016 02:22:34 +0000 (+0900)
Subject: Remove just input mark
X-Git-Tag: emacs-26.0.90~1840^2~97
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e6fa2ddf76a1d702d836db3786ec1e34f7dcf54;p=emacs.git

Remove just input mark

* lisp/ibuffer.el (ibuffer-unmark-all): When MARK is not ?\r remove
just MARK.
---

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)