projects
/
chise
/
xemacs-chise.git.1
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
XEmacs 21.2.29 "Hestia".
[chise/xemacs-chise.git.1]
/
lisp
/
etags.el
diff --git
a/lisp/etags.el
b/lisp/etags.el
index
f727c19
..
cba03e0
100644
(file)
--- a/
lisp/etags.el
+++ b/
lisp/etags.el
@@
-598,11
+598,8
@@
Make it buffer-local in a mode hook. The function is called with no
(format "%s(default %s) " prompt default)
prompt)
tag-completion-table 'tag-completion-predicate nil nil
(format "%s(default %s) " prompt default)
prompt)
tag-completion-table 'tag-completion-predicate nil nil
- 'find-tag-history))
- (if (string-equal tag-name "")
- ;; #### - This is a really LAME way of doing it! --Stig
- default ;indicate exact symbol match
- tag-name)))
+ 'find-tag-history default))
+ tag-name))
(defvar last-tag-data nil
"Information for continuing a tag search.
(defvar last-tag-data nil
"Information for continuing a tag search.
@@
-641,7
+638,7
@@
If it returns non-nil, this file needs processing by evalling
(t
(setq tag-table-currently-matching-exact t)))
;; \_ in the tagname is used to indicate a symbol boundary.
(t
(setq tag-table-currently-matching-exact t)))
;; \_ in the tagname is used to indicate a symbol boundary.
- (setq exact-tagname (concat "\\_" tagname "\\_"))
+ (setq exact-tagname (format "\C-?\\_%s\\_\C-a\\|\\_%s\\_" tagname tagname))
(while (string-match "\\\\_" exact-tagname)
(aset exact-tagname (1- (match-end 0)) ?b))
(save-excursion
(while (string-match "\\\\_" exact-tagname)
(aset exact-tagname (1- (match-end 0)) ?b))
(save-excursion
@@
-674,7
+671,9
@@
If it returns non-nil, this file needs processing by evalling
;; tag searches?
(while (re-search-forward tag-target nil t)
(and (save-match-data
;; tag searches?
(while (re-search-forward tag-target nil t)
(and (save-match-data
- (looking-at "[^\n\C-?]*\C-?"))
+ (save-excursion
+ (goto-char (match-beginning 0))
+ (looking-at "[^\n\C-?]*\C-?")))
;; If we're looking for inexact matches, skip
;; exact matches since we've visited them
;; already.
;; If we're looking for inexact matches, skip
;; exact matches since we've visited them
;; already.
@@
-693,6
+692,7
@@
If it returns non-nil, this file needs processing by evalling
(if next "more " "")
(if exact "matching" "containing")
tagname))
(if next "more " "")
(if exact "matching" "containing")
tagname))
+ (beginning-of-line)
(search-forward "\C-?")
(setq file (expand-file-name (file-of-tag)
;; In XEmacs, this needs to be
(search-forward "\C-?")
(setq file (expand-file-name (file-of-tag)
;; In XEmacs, this needs to be