From 0e6fa2ddf76a1d702d836db3786ec1e34f7dcf54 Mon Sep 17 00:00:00 2001 From: Tino Calancha Date: Fri, 8 Jul 2016 11:22:34 +0900 Subject: [PATCH] Remove just input mark * lisp/ibuffer.el (ibuffer-unmark-all): When MARK is not ?\r remove just MARK. --- lisp/ibuffer.el | 6 ++++++ 1 file changed, 6 insertions(+) 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) -- 2.39.5