/[emacs]/emacs/lisp/ibuf-macs.el
ViewVC logotype

Diff of /emacs/lisp/ibuf-macs.el

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

revision 1.5 by walters, Sun Apr 14 05:47:55 2002 UTC revision 1.6 by walters, Wed Apr 24 23:27:43 2002 UTC
# Line 6  Line 6 
6  ;; Created: 6 Dec 2001  ;; Created: 6 Dec 2001
7  ;; Keywords: buffer, convenience  ;; Keywords: buffer, convenience
8    
9  ;; This file is not currently part of GNU Emacs.  ;; This file is part of GNU Emacs.
10    
11  ;; This program is free software; you can redistribute it and/or  ;; This program is free software; you can redistribute it and/or
12  ;; modify it under the terms of the GNU General Public License as  ;; modify it under the terms of the GNU General Public License as
# Line 61  During evaluation of body, bind `it' to Line 61  During evaluation of body, bind `it' to
61               (save-excursion               (save-excursion
62                 ,@body))                 ,@body))
63           (with-current-buffer ,bufsym           (with-current-buffer ,bufsym
64             (ibuffer-insert-buffers-and-marks             (ibuffer-redisplay-engine
65              ;; Get rid of dead buffers              ;; Get rid of dead buffers
66              (delq nil              (delq nil
67                    (mapcar #'(lambda (e) (when (buffer-live-p (car e))                    (mapcar #'(lambda (e) (when (buffer-live-p (car e))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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