diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-09-01 06:12:38 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-09-01 06:12:38 +0000 |
commit | 4fce5b335051ea41b044d9b84017aa84c8ae7bb0 (patch) | |
tree | bf80685cf486486736354385456918809588dae1 /lisp/completion.el | |
parent | 1005f8ff6b3be99a8ac7a6914cd799fc0768b157 (diff) | |
download | emacs-4fce5b335051ea41b044d9b84017aa84c8ae7bb0.tar.gz |
(completion-before-command): Don't call get on a non-symbol.
Diffstat (limited to 'lisp/completion.el')
-rw-r--r-- | lisp/completion.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/completion.el b/lisp/completion.el index eabc2f0b850..8964556f04e 100644 --- a/lisp/completion.el +++ b/lisp/completion.el @@ -2540,7 +2540,8 @@ TYPE is the type of the wrapper to be added. Can be :before or :under." (cmpl-statistics-block (record-complete-failed)))) (defun completion-before-command () - (funcall (or (get this-command 'completion-function) + (funcall (or (and (symbolp this-command) + (get this-command 'completion-function)) 'use-completion-under-or-before-point))) (add-hook 'pre-command-hook 'completion-before-command) |