(lisp-complete-symbol): Only jump 2 not 3 levels.

This commit is contained in:
Stefan Monnier 2000-10-01 00:57:13 +00:00
parent 7b8f3241f1
commit f77eca766a

View file

@ -375,7 +375,6 @@ considered."
(or (boundp sym) (fboundp sym)
(symbol-plist sym)))
;; Looks like a funcall position. Let's double check.
(backward-char 1) ;skip paren
(if (condition-case nil
(progn (up-list -2) (forward-char 1)
(eq (char-after) ?\())