Mercurial > hg > xemacs-beta

comparison lisp/etags.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
596 (completing-read 596 (completing-read
597 (if default 597 (if default
598 (format "%s(default %s) " prompt default) 598 (format "%s(default %s) " prompt default)
599 prompt) 599 prompt)
600 tag-completion-table 'tag-completion-predicate nil nil 600 tag-completion-table 'tag-completion-predicate nil nil
601 'find-tag-history)) 601 'find-tag-history default))
602 (if (string-equal tag-name "") 602 tag-name))
603 ;; #### - This is a really LAME way of doing it! --Stig
604 default ;indicate exact symbol match
605 tag-name)))
606 603
607 (defvar last-tag-data nil 604 (defvar last-tag-data nil
608 "Information for continuing a tag search. 605 "Information for continuing a tag search.
609 Is of the form (TAG POINT MATCHING-EXACT TAG-TABLE TAG-TABLE ...).") 606 Is of the form (TAG POINT MATCHING-EXACT TAG-TABLE TAG-TABLE ...).")
610 607