[Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el

[Colin Walters]

Index: emacs/lisp/ibuf-ext.el
diff -c emacs/lisp/ibuf-ext.el:1.12 emacs/lisp/ibuf-ext.el:1.13
*** emacs/lisp/ibuf-ext.el:1.12 Wed Mar 27 17:37:42 2002
--- emacs/lisp/ibuf-ext.el      Sun Apr 14 01:48:09 2002
***************
*** 815,821 ****
        (message "No buffers marked; use 'm' to mark a buffer")
      (let ((count
           (ibuffer-map-marked-lines
!           #'(lambda (buf mark beg end)
                'kill))))
        (message "Killed %s lines" count))))
  
--- 815,821 ----
        (message "No buffers marked; use 'm' to mark a buffer")
      (let ((count
           (ibuffer-map-marked-lines
!           #'(lambda (buf mark)
                'kill))))
        (message "Killed %s lines" count))))
  
***************
*** 899,905 ****
                      (t
                       'name))))
        (ibuffer-map-marked-lines
!        #'(lambda (buf mark beg end)
           (setq ibuffer-copy-filename-as-kill-result
                 (concat ibuffer-copy-filename-as-kill-result
                         (let ((name (buffer-file-name buf)))
--- 899,905 ----
                      (t
                       'name))))
        (ibuffer-map-marked-lines
!        #'(lambda (buf mark)
           (setq ibuffer-copy-filename-as-kill-result
                 (concat ibuffer-copy-filename-as-kill-result
                         (let ((name (buffer-file-name buf)))
***************
*** 916,922 ****
  (defun ibuffer-mark-on-buffer (func)
    (let ((count
         (ibuffer-map-lines
!         #'(lambda (buf mark beg end)
              (when (funcall func buf)
                (ibuffer-set-mark-1 ibuffer-marked-char)
                t)))))
--- 916,922 ----
  (defun ibuffer-mark-on-buffer (func)
    (let ((count
         (ibuffer-map-lines
!         #'(lambda (buf mark)
              (when (funcall func buf)
                (ibuffer-set-mark-1 ibuffer-marked-char)
                t)))))
***************
*** 1155,1161 ****
    (let ((ibuffer-do-occur-bufs nil))
      ;; Accumulate a list of marked buffers
      (ibuffer-map-marked-lines
!      #'(lambda (buf mark beg end)
         (push buf ibuffer-do-occur-bufs)))
      (ibuffer-do-occur-1 regexp ibuffer-do-occur-bufs
                        (get-buffer-create "*Ibuffer-occur*")
--- 1155,1161 ----
    (let ((ibuffer-do-occur-bufs nil))
      ;; Accumulate a list of marked buffers
      (ibuffer-map-marked-lines
!      #'(lambda (buf mark)
         (push buf ibuffer-do-occur-bufs)))
      (ibuffer-do-occur-1 regexp ibuffer-do-occur-bufs
                        (get-buffer-create "*Ibuffer-occur*")