Mercurial > hg > xemacs-beta

comparison lisp/etags.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents 0e522484dd2a
children 4f79e16b1112
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
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 hook 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 argsuments.") 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 ()
563 (or (and (not (memq find-tag-default-hook '(nil find-tag-default))) 563 (or (and (not (memq find-tag-default-hook '(nil find-tag-default)))
564 (condition-case data 564 (condition-case data