Remove just input mark

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

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)