Remove just input mark

[gnu-emacs] / lisp / ibuffer.el

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 4f266d909e458316e33322b77219aea548d4a943..fde17573dd7ccc114eab87ca2ffca741f40a5f60 100644 (file)
--- 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)