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:
parent
30c17da5df
commit
3907574bb8
2 changed files with 6 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue