mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1994-09-01 06:12:38 +00:00
parent ea50c23878
commit 76e91049fa
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/completion.el
View file

@ -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)