Mercurial > emacs

diff lisp/completion.el @ 8678:0107ce4d48af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(completion-before-command): Don't call get on a non-symbol.
author Richard M. Stallman <rms@gnu.org>
date Thu, 01 Sep 1994 06:12:38 +0000
parents fb7e3b74a18e
children 00e1546cc687
line wrap: on
line diff
--- a/lisp/completion.el	Thu Sep 01 04:47:05 1994 +0000
+++ b/lisp/completion.el	Thu Sep 01 06:12:38 1994 +0000
@@ -2540,7 +2540,8 @@
       (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)