From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 1 Sep 1994 06:12:38 +0000 (+0000)
Subject: (completion-before-command): Don't call get on a non-symbol.
X-Git-Tag: emacs-19.34~7176
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76e91049faceb4c6c7ffc3f0cd1f8c91f5199ff4;p=emacs.git

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

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)