Commit 76e91049 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent ea50c238
...@@ -2540,7 +2540,8 @@ TYPE is the type of the wrapper to be added. Can be :before or :under." ...@@ -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)))) (cmpl-statistics-block (record-complete-failed))))
(defun completion-before-command () (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))) 'use-completion-under-or-before-point)))
(add-hook 'pre-command-hook 'completion-before-command) (add-hook 'pre-command-hook 'completion-before-command)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment