Mercurial > hg > xemacs-beta

comparison lisp/buff-menu.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents de805c49cfc1
children
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
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
361 (defun Buffer-menu-visit-tags-table () 359 (defun Buffer-menu-visit-tags-table ()
362 "Visit the tags table in the buffer on this line. See `visit-tags-table'." 360 "Visit the tags table in the buffer on this line. See `visit-tags-table'."
363 (interactive) 361 (interactive)
364 (let ((file (buffer-file-name (Buffer-menu-buffer t)))) 362 (let ((file (buffer-file-name (Buffer-menu-buffer t))))
365 (if file 363 (if file
634 (t 632 (t
635 t)))) 633 t))))
636 files-only)) 634 files-only))
637 buffer)) 635 buffer))
638 636
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
644 (provide 'buff-menu) 637 (provide 'buff-menu)
645 638
646 ;;; buff-menu.el ends here 639 ;;; buff-menu.el ends here