]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix etags completion near eob
authorDmitry Gutov <dgutov@yandex.ru>
Sun, 15 Nov 2015 22:30:12 +0000 (00:30 +0200)
committerDmitry Gutov <dgutov@yandex.ru>
Sun, 15 Nov 2015 22:30:30 +0000 (00:30 +0200)
* lisp/progmodes/etags.el (tags-completion-at-point-function):
Use `goto-char', to avoid the end-of-buffer error (bug#20061).

lisp/progmodes/etags.el

index 651c824275d3ebccc24c337f3293b4df8a25412a..dd84754f38927a17637e7f2062bfc6d680e01c0d 100644 (file)
@@ -805,7 +805,8 @@ If no tags table is loaded, do nothing and return nil."
          beg)
       (when pattern
        (save-excursion
-          (forward-char (1- (length pattern)))
+          ;; Avoid end-of-buffer error.
+          (goto-char (+ (point) (length pattern) -1))
           ;; The find-tag function might be overly optimistic.
           (when (search-backward pattern nil t)
             (setq beg (point))