/[emacs]/emacs/lisp/buff-menu.el
ViewVC logotype

Diff of /emacs/lisp/buff-menu.el

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

revision 1.54.4.5 by miles, Fri Jul 23 04:42:20 2004 UTC revision 1.54.4.6 by miles, Thu Sep 16 00:12:21 2004 UTC
# Line 638  For more information, see the function ` Line 638  For more information, see the function `
638                    (mapcar                    (mapcar
639                     (lambda (buffer)                     (lambda (buffer)
640                       (with-current-buffer buffer                       (with-current-buffer buffer
641                         (save-window-excursion                         (setq name (buffer-name)
642                           (setq name (buffer-name)                               mode (concat (format-mode-line mode-name nil nil buffer)
643                                 mode (progn                                            (if mode-line-process
644                                        (set-window-buffer (selected-window) buffer)                                                (format-mode-line mode-line-process nil nil buffer)))
645                                        (concat (format-mode-line mode-name)                               file (buffer-file-name))
                                               (if mode-line-process  
                                                   (format-mode-line mode-line-process))))  
                                file (buffer-file-name)))  
646                         (cond                         (cond
647                          ;; Don't mention internal buffers.                          ;; Don't mention internal buffers.
648                          ((and (string= (substring name 0 1) " ") (null file)))                          ((and (string= (substring name 0 1) " ") (null file)))

Legend:
Removed from v.1.54.4.5  
changed lines
  Added in v.1.54.4.6

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