Mercurial > emacs

comparison lisp/buff-menu.el @ 89971:cce1c0ee76ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-36 Merge from emacs--cvs-trunk--0, emacs--gnus--5.10, gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523 Merge from emacs--gnus--5.10, gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-524 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-534 Update from CVS * miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0 tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1 Import from CVS branch gnus-5_10-branch * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2 Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19 Remove autoconf-generated files from archive * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20 Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 09 Sep 2004 09:36:36 +0000
parents 97905c4f1a42 ed12a363c849
children f3ec05478165
comparison
equal deleted inserted replaced
89970:a849e5779b8c 89971:cce1c0ee76ee
636 (setq list 636 (setq list
637 (delq t 637 (delq t
638 (mapcar 638 (mapcar
639 (lambda (buffer) 639 (lambda (buffer)
640 (with-current-buffer buffer 640 (with-current-buffer buffer
641 (save-window-excursion 641 (setq name (buffer-name)
642 (setq name (buffer-name) 642 mode (concat (format-mode-line mode-name nil nil buffer)
643 mode (progn 643 (if mode-line-process
644 (set-window-buffer (selected-window) buffer) 644 (format-mode-line mode-line-process nil nil buffer)))
645 (concat (format-mode-line mode-name) 645 file (buffer-file-name))
646 (if mode-line-process
647 (format-mode-line mode-line-process))))
648 file (buffer-file-name)))
649 (cond 646 (cond
650 ;; Don't mention internal buffers. 647 ;; Don't mention internal buffers.
651 ((and (string= (substring name 0 1) " ") (null file))) 648 ((and (string= (substring name 0 1) " ") (null file)))
652 ;; Maybe don't mention buffers without files. 649 ;; Maybe don't mention buffers without files.
653 ((and files-only (not file))) 650 ((and files-only (not file)))