Mercurial > hg > xemacs-beta

comparison lisp/buff-menu.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 576fb035e263
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
354 (other-window 1) ;back to the beginning! 354 (other-window 1) ;back to the beginning!
355 ))) 355 )))
356 356
357 357
358 358
359 (eval-when-compile (autoload 'visit-tags-table "etags"))
360
359 (defun Buffer-menu-visit-tags-table () 361 (defun Buffer-menu-visit-tags-table ()
360 "Visit the tags table in the buffer on this line. See `visit-tags-table'." 362 "Visit the tags table in the buffer on this line. See `visit-tags-table'."
361 (interactive) 363 (interactive)
362 (let ((file (buffer-file-name (Buffer-menu-buffer t)))) 364 (let ((file (buffer-file-name (Buffer-menu-buffer t))))
363 (if file 365 (if file
632 (t 634 (t
633 t)))) 635 t))))
634 files-only)) 636 files-only))
635 buffer)) 637 buffer))
636 638
639 (defun buffers-menu-omit-invisible-buffers (buf)
640 "For use as a value of `buffers-menu-omit-function'.
641 Omits normally invisible buffers (those whose name begins with a space)."
642 (not (null (string-match "\\` " (buffer-name buf)))))
643
637 (provide 'buff-menu) 644 (provide 'buff-menu)
638 645
639 ;;; buff-menu.el ends here 646 ;;; buff-menu.el ends here