Fix bug#18265

* lisp/emacs-lisp/lisp.el (lisp-completion-at-point): Only calculate
`table-etc' when `end' is non-nil.
(lisp-completion-at-point): Move `end' back if it's after quote.
If in comment or string, only complete when after backquote.
This commit is contained in:
Dmitry Gutov 2014-09-19 07:41:42 +04:00
parent 30c17da5df
commit 3907574bb8
2 changed files with 6 additions and 1 deletions

View file

@ -957,12 +957,14 @@ It can be quoted, or be inside a quoted form."
(save-excursion
(goto-char beg)
(forward-sexp 1)
(skip-chars-backward "'")
(when (>= (point) pos)
(point)))
(scan-error pos))))
;; t if in function position.
(funpos (eq (char-before beg) ?\()))
(when end
(when (and end (or (not (nth 8 (syntax-ppss)))
(eq (char-before beg) ?`)))
(let ((table-etc
(if (not funpos)
;; FIXME: We could look at the first element of the list and