[Emacs-diffs] /srv/bzr/emacs/trunk r107647: * progmodes/etags.el (tags-completion-at-point-function): Improve last fix.

[Stefan Monnier]

------------------------------------------------------------
revno: 107647
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2012-03-21 13:50:28 -0400
message:
  * progmodes/etags.el (tags-completion-at-point-function): Improve last fix.
modified:
  lisp/ChangeLog
  lisp/progmodes/etags.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-03-21 17:44:55 +0000
+++ b/lisp/ChangeLog    2012-03-21 17:50:28 +0000
@@ -1,5 +1,8 @@
 2012-03-21  Stefan Monnier  <address@hidden>
 
+       * progmodes/etags.el (tags-completion-at-point-function):
+       Improve last fix.
+
        * files.el (move-file-to-trash): Files aren't regexps (bug#11055).
 
 2012-03-21  Sam Steingold  <address@hidden>

=== modified file 'lisp/progmodes/etags.el'
--- a/lisp/progmodes/etags.el   2012-03-21 17:17:23 +0000
+++ b/lisp/progmodes/etags.el   2012-03-21 17:50:28 +0000
@@ -809,10 +809,11 @@
          beg)
       (when pattern
        (save-excursion
-         (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)))))))
+          (forward-char (1- (length pattern)))
+          (search-backward 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."