mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-22 14:01:47 -07:00
Code Issues Projects Releases Wiki Activity

* lisp/progmodes/etags.el (tags-completion-at-point-function):

Browse source 
Avoid the error when point is inside the pattern.
This commit is contained in:
Sam Steingold 2012-03-21 13:17:23 -04:00
parent 6e5d1d00ca
commit e298b5da3d
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2012-03-21 Sam Steingold <sds@gnu.org>
* progmodes/etags.el (tags-completion-at-point-function):
Avoid the error when point is inside the pattern.
2012-03-21 John Yates <john@yates-sheets.org> (tiny change)
* progmodes/hideshow.el (hs-inside-comment-p): Fix hiding of first

8
lisp/progmodes/etags.el
View file

@ -809,10 +809,10 @@ If no tags table is loaded, do nothing and return nil."
beg)
(when pattern
(save-excursion
(search-backward pattern) ;FIXME: will fail if we're inside pattern.
(setq beg (point))
(forward-char (length pattern))
(list beg (point) (tags-lazy-completion-table) :exclusive 'no))))))
(when (search-backward pattern nil t) ; will fail inside pattern
(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."