1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00

(ibuffer-set-mark): Go back to the beginning of the line after setting

the mark.
(ibuffer-insert-buffers-and-marks): Invert the test for
`ibuffer-sorting-reversep'.
This commit is contained in:
Colin Walters 2002-03-18 21:21:57 +00:00
parent 1915493bda
commit 559ac4c15d

View File

@ -1161,7 +1161,8 @@ become unmarked."
(let ((inhibit-read-only t))
(ibuffer-set-mark-1 mark)
(setq ibuffer-did-modification t)
(ibuffer-redisplay-current)))
(ibuffer-redisplay-current)
(beginning-of-line)))
(defun ibuffer-set-mark-1 (mark)
(let ((beg (line-beginning-position))
@ -1951,8 +1952,8 @@ Do not display messages if SILENT is non-nil."
bmarklist)))
;; perhaps reverse the sorted buffer list
(if ibuffer-sorting-reversep
result
(nreverse result))))))
(nreverse result)
result)))))
(dolist (entry entries)
(ibuffer-insert-buffer-line
(car entry)