procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tags-completion-at-point-function: Don't trust the find-tag function

Browse source 
* lisp/progmodes/etags.el (tags-completion-at-point-function):
Don't trust the find-tag function.
This commit is contained in:
Stefan Monnier 2015-05-23 12:05:21 -04:00
parent 2219134940
commit 669e01b5f6
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/progmodes/etags.el
View file

@ -805,15 +805,16 @@ If no tags table is loaded, do nothing and return nil."
case-fold-search))
(pattern (funcall (or find-tag-default-function
(get major-mode 'find-tag-default-function)
'find-tag-default)))
#'find-tag-default)))
beg)
(when pattern
(save-excursion
(forward-char (1- (length pattern)))
(search-backward pattern)
(setq beg (point))
(forward-char (length pattern))
(list beg (point) (tags-lazy-completion-table) :exclusive 'no))))))
;; The find-tag function might be overly optimistic.
(when (search-backward pattern nil t)
(setq beg (point))
(forward-char (length pattern))
(list beg (point) (tags-lazy-completion-table) :exclusive 'no)))))))
(defun find-tag-tag (string)
"Read a tag name, with defaulting and completion."