From 76e91049faceb4c6c7ffc3f0cd1f8c91f5199ff4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 1 Sep 1994 06:12:38 +0000 Subject: [PATCH] (completion-before-command): Don't call get on a non-symbol. --- lisp/completion.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.5