/[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.66 by teirllm, Thu Apr 1 01:23:36 2004 UTC revision 1.67 by eliz, Fri Jul 16 13:14:01 2004 UTC
# Line 613  For more information, see the function ` Line 613  For more information, see the function `
613                           "  "                           "  "
614                           (Buffer-menu-make-sort-button "Mode" 4) mode-end                           (Buffer-menu-make-sort-button "Mode" 4) mode-end
615                           (Buffer-menu-make-sort-button "File" 5) "\n"))                           (Buffer-menu-make-sort-button "File" 5) "\n"))
616           list desired-point name file)           list desired-point name mode file)
617      (when Buffer-menu-use-header-line      (when Buffer-menu-use-header-line
618        (let ((pos 0))        (let ((pos 0))
619          ;; Turn spaces in the header into stretch specs so they work          ;; Turn spaces in the header into stretch specs so they work
# 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                         (setq name (buffer-name)                         (save-window-excursion
642                               file (buffer-file-name))                           (setq name (buffer-name)
643                                   mode (progn
644                                          (set-window-buffer (selected-window) buffer)
645                                          (concat (format-mode-line mode-name)
646                                                  (if mode-line-process
647                                                      (format-mode-line mode-line-process))))
648                                   file (buffer-file-name)))
649                         (cond                         (cond
650                          ;; Don't mention internal buffers.                          ;; Don't mention internal buffers.
651                          ((and (string= (substring name 0 1) " ") (null file)))                          ((and (string= (substring name 0 1) " ") (null file)))
# Line 665  For more information, see the function ` Line 671  For more information, see the function `
671                                             ?% ? )                                             ?% ? )
672                                         ;; Identify modified buffers.                                         ;; Identify modified buffers.
673                                         (if (buffer-modified-p) ?* ? ))                                         (if (buffer-modified-p) ?* ? ))
674                                 name (buffer-size) mode-name file)))))                                 name (buffer-size) mode file)))))
675                     (buffer-list))))                     (buffer-list))))
676        (dolist (buffer        (dolist (buffer
677                 (if Buffer-menu-sort-column                 (if Buffer-menu-sort-column

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

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