Mercurial > emacs
changeset 44573:3e16ea61b8c4
Update callers of `ibuffer-map-lines'.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Sun, 14 Apr 2002 05:48:09 +0000 |
| parents | 9e404d7dbe1d |
| children | f9b633c7d323 |
| files | lisp/ibuf-ext.el lisp/ibuf-macs.el |
| diffstat | 2 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ibuf-ext.el Sun Apr 14 01:51:15 2002 +0000 +++ b/lisp/ibuf-ext.el Sun Apr 14 05:48:09 2002 +0000 @@ -815,7 +815,7 @@ (message "No buffers marked; use 'm' to mark a buffer") (let ((count (ibuffer-map-marked-lines - #'(lambda (buf mark beg end) + #'(lambda (buf mark) 'kill)))) (message "Killed %s lines" count)))) @@ -899,7 +899,7 @@ (t 'name)))) (ibuffer-map-marked-lines - #'(lambda (buf mark beg end) + #'(lambda (buf mark) (setq ibuffer-copy-filename-as-kill-result (concat ibuffer-copy-filename-as-kill-result (let ((name (buffer-file-name buf))) @@ -916,7 +916,7 @@ (defun ibuffer-mark-on-buffer (func) (let ((count (ibuffer-map-lines - #'(lambda (buf mark beg end) + #'(lambda (buf mark) (when (funcall func buf) (ibuffer-set-mark-1 ibuffer-marked-char) t))))) @@ -1155,7 +1155,7 @@ (let ((ibuffer-do-occur-bufs nil)) ;; Accumulate a list of marked buffers (ibuffer-map-marked-lines - #'(lambda (buf mark beg end) + #'(lambda (buf mark) (push buf ibuffer-do-occur-bufs))) (ibuffer-do-occur-1 regexp ibuffer-do-occur-bufs (get-buffer-create "*Ibuffer-occur*")
--- a/lisp/ibuf-macs.el Sun Apr 14 01:51:15 2002 +0000 +++ b/lisp/ibuf-macs.el Sun Apr 14 05:48:09 2002 +0000 @@ -227,7 +227,7 @@ 'ibuffer-map-deletion-lines) (t 'ibuffer-map-marked-lines)) - #'(lambda (buf mark beg end) + #'(lambda (buf mark) ,(if (eq modifier-p :maybe) `(let ((ibuffer-tmp-previous-buffer-modification (buffer-modified-p buf)))