(completion-before-command): Don't call get on a non-symbol.

76e91049 · Richard M. Stallman · ea50c238 · 76e91049
Commit 76e91049 authored Sep 01, 1994 by Richard M. Stallman
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/completion.el lisp/completion.el +2 -1

No files found.
--- 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)