Mercurial > emacs
comparison lisp/buff-menu.el @ 40489:86b32dd85d89
(list-buffers-noselect): If the buffer's name
starts with a blank, but it visits a file, do show it (for files
whose names start with a blank).
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Tue, 30 Oct 2001 10:41:57 +0000 |
parents | aa310bebddef |
children | d2bfc00496d7 |
comparison
equal
deleted
inserted
replaced
40488:554167b7ed9e | 40489:86b32dd85d89 |
---|---|
513 (when (and (boundp 'list-buffers-directory) | 513 (when (and (boundp 'list-buffers-directory) |
514 list-buffers-directory) | 514 list-buffers-directory) |
515 (setq this-buffer-directory list-buffers-directory)))) | 515 (setq this-buffer-directory list-buffers-directory)))) |
516 (cond | 516 (cond |
517 ;; Don't mention internal buffers. | 517 ;; Don't mention internal buffers. |
518 ((string= (substring name 0 1) " ")) | 518 ((and (string= (substring name 0 1) " ") (null file))) |
519 ;; Maybe don't mention buffers without files. | 519 ;; Maybe don't mention buffers without files. |
520 ((and files-only (not file))) | 520 ((and files-only (not file))) |
521 ((string= name "*Buffer List*")) | 521 ((string= name "*Buffer List*")) |
522 ;; Otherwise output info. | 522 ;; Otherwise output info. |
523 (t | 523 (t |