comparison lisp/buff-menu.el @ 404:2f8bb876ab1d r21-2-32

Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents 558f606b08ae
children de805c49cfc1
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
632 (t 632 (t
633 t)))) 633 t))))
634 files-only)) 634 files-only))
635 buffer)) 635 buffer))
636 636
637 (defun buffers-menu-omit-invisible-buffers (buf)
638 "For use as a value of `buffers-menu-omit-function'.
639 Omits normally invisible buffers (those whose name begins with a space)."
640 (not (null (string-match "\\` " (buffer-name buf)))))
641
637 (provide 'buff-menu) 642 (provide 'buff-menu)
638 643
639 ;;; buff-menu.el ends here 644 ;;; buff-menu.el ends here