/[emacs]/emacs/lisp/ibuffer.el
ViewVC logotype

Diff of /emacs/lisp/ibuffer.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by walters, Wed Mar 13 02:31:26 2002 UTC revision 1.12 by walters, Mon Mar 18 21:21:57 2002 UTC
# Line 1161  become unmarked." Line 1161  become unmarked."
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))
# Line 1951  Do not display messages if SILENT is non Line 1952  Do not display messages if SILENT is non
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)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26