Mercurial > hg > xemacs-beta

comparison lisp/etags.el @ 377:d883f39b8495 r21-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b4
author cvs
date Mon, 13 Aug 2007 11:05:42 +0200
parents a300bb07d72d
children 8626e4521993
comparison
equal deleted inserted replaced
376:e2295b4d9f2e 377:d883f39b8495
552 "Function to call to create a default tag. 552 "Function to call to create a default tag.
553 Make it buffer-local in a mode hook. The function is called with no 553 Make it buffer-local in a mode hook. The function is called with no
554 arguments.") 554 arguments.")
555 555
556 (defvar find-tag-hook nil 556 (defvar find-tag-hook nil
557 "Function to call after a tag is found. 557 "*Function to call after a tag is found.
558 Make it buffer-local in a mode hook. The function is called with no 558 Make it buffer-local in a mode hook. The function is called with no
559 arguments.") 559 arguments.")
560 560
561 ;; Return a default tag to search for, based on the text at point. 561 ;; Return a default tag to search for, based on the text at point.
562 (defun find-tag-default () 562 (defun find-tag-default ()
775 (switch-to-buffer tag-buf)) 775 (switch-to-buffer tag-buf))
776 (widen) 776 (widen)
777 (push-mark) 777 (push-mark)
778 (goto-char tag-point) 778 (goto-char tag-point)
779 (if find-tag-hook 779 (if find-tag-hook
780 (funcall find-tag-hook) 780 (run-hooks 'find-tag-hook)
781 (if local-find-tag-hook 781 (if local-find-tag-hook
782 (funcall local-find-tag-hook)))) 782 (run-hooks 'local-find-tag-hook))))
783 (setq tags-loop-scan (list 'find-tag nil nil) 783 (setq tags-loop-scan (list 'find-tag nil nil)
784 tags-loop-operate nil) 784 tags-loop-operate nil)
785 ;; Return t in case used as the tags-loop-scan. 785 ;; Return t in case used as the tags-loop-scan.
786 t) 786 t)
787 787
788 ;;;###autoload 788 ;;;###autoload
789 (defun find-tag-other-window (tagname &optional next) 789 (defun find-tag-other-window (tagname &optional next)