diff options
| -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." | |||
| 1345 | (lambda (_buf _mark) | 1345 | (lambda (_buf _mark) |
| 1346 | (ibuffer-set-mark-1 ?\s) | 1346 | (ibuffer-set-mark-1 ?\s) |
| 1347 | t))) | 1347 | t))) |
| 1348 | ((not (char-equal mark ?\r)) | ||
| 1349 | (ibuffer-map-lines | ||
| 1350 | (lambda (_buf _mark) | ||
| 1351 | (when (char-equal _mark mark) | ||
| 1352 | (ibuffer-set-mark-1 ?\s)) | ||
| 1353 | t))) | ||
| 1348 | (t | 1354 | (t |
| 1349 | (ibuffer-map-lines | 1355 | (ibuffer-map-lines |
| 1350 | (lambda (_buf mark) | 1356 | (lambda (_buf mark) |