1161 |
(let ((inhibit-read-only t)) |
(let ((inhibit-read-only t)) |
1162 |
(ibuffer-set-mark-1 mark) |
(ibuffer-set-mark-1 mark) |
1163 |
(setq ibuffer-did-modification t) |
(setq ibuffer-did-modification t) |
1164 |
(ibuffer-redisplay-current))) |
(ibuffer-redisplay-current) |
1165 |
|
(beginning-of-line))) |
1166 |
|
|
1167 |
(defun ibuffer-set-mark-1 (mark) |
(defun ibuffer-set-mark-1 (mark) |
1168 |
(let ((beg (line-beginning-position)) |
(let ((beg (line-beginning-position)) |
1952 |
bmarklist))) |
bmarklist))) |
1953 |
;; perhaps reverse the sorted buffer list |
;; perhaps reverse the sorted buffer list |
1954 |
(if ibuffer-sorting-reversep |
(if ibuffer-sorting-reversep |
1955 |
result |
(nreverse result) |
1956 |
(nreverse result)))))) |
result))))) |
1957 |
(dolist (entry entries) |
(dolist (entry entries) |
1958 |
(ibuffer-insert-buffer-line |
(ibuffer-insert-buffer-line |
1959 |
(car entry) |
(car entry) |