From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sun, 15 Nov 2015 22:30:12 +0000 (+0200)
Subject: Fix etags completion near eob
X-Git-Tag: emacs-25.0.90~778
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f60a3b086cb30e1b794f586fe1da5947869e29fc;p=emacs.git

Fix etags completion near eob

* lisp/progmodes/etags.el (tags-completion-at-point-function):
Use `goto-char', to avoid the end-of-buffer error (bug#20061).
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 651c824275d..dd84754f389 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -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))