Mercurial > emacs

comparison lisp/ibuffer.el @ 43873:2ce5d75bd538

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ibuffer-redisplay-current): Don't move point when redisplaying a line.
author Colin Walters <walters@gnu.org>
date Wed, 13 Mar 2002 02:31:26 +0000
parents 643faa52276e
children b2462b8e1cf2
comparison
equal deleted inserted replaced
43872:0b8a842490f9 43873:2ce5d75bd538
1583 (ibuffer-current-format t)))) 1583 (ibuffer-current-format t))))
1584 (ibuffer-clear-summary-columns curformat) 1584 (ibuffer-clear-summary-columns curformat)
1585 (let ((buf (ibuffer-current-buffer))) 1585 (let ((buf (ibuffer-current-buffer)))
1586 (when buf 1586 (when buf
1587 (let ((mark (ibuffer-current-mark))) 1587 (let ((mark (ibuffer-current-mark)))
1588 (delete-region (point) (1+ (line-end-position))) 1588 (save-excursion
1589 (ibuffer-insert-buffer-line 1589 (delete-region (point) (1+ (line-end-position)))
1590 buf mark 1590 (ibuffer-insert-buffer-line
1591 (ibuffer-current-format)) 1591 buf mark
1592 (ibuffer-current-format)))
1592 (when ibuffer-shrink-to-minimum-size 1593 (when ibuffer-shrink-to-minimum-size
1593 (ibuffer-shrink-to-fit))))))) 1594 (ibuffer-shrink-to-fit)))))))
1594 1595
1595 (defun ibuffer-map-on-mark (mark func) 1596 (defun ibuffer-map-on-mark (mark func)
1596 (ibuffer-map-lines 1597 (ibuffer-map-lines