[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el
From: |
Colin Walters |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el |
Date: |
Sun, 14 Apr 2002 01:48:09 -0400 |
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*")
- [Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el,
Colin Walters <=
- [Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el, Colin Walters, 2002/04/23
- [Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el, Colin Walters, 2002/04/24
- [Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el, Colin Walters, 2002/04/25
- [Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el, Colin Walters, 2002/04/25
- [Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el, Colin Walters, 2002/04/28
- [Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el, Colin Walters, 2002/04/29