diff options
| author | Richard M. Stallman | 1994-09-01 06:12:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-09-01 06:12:38 +0000 |
| commit | 76e91049faceb4c6c7ffc3f0cd1f8c91f5199ff4 (patch) | |
| tree | abaa2d55e1c44a4a307e4c7fa6f5169d53e4ff6c | |
| parent | ea50c238783960179e52e45fba322e3fe0c37803 (diff) | |
| download | emacs-76e91049faceb4c6c7ffc3f0cd1f8c91f5199ff4.tar.gz emacs-76e91049faceb4c6c7ffc3f0cd1f8c91f5199ff4.zip | |
(completion-before-command): Don't call get on a non-symbol.
| -rw-r--r-- | lisp/completion.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 2540 | (cmpl-statistics-block (record-complete-failed)))) | 2540 | (cmpl-statistics-block (record-complete-failed)))) |
| 2541 | 2541 | ||
| 2542 | (defun completion-before-command () | 2542 | (defun completion-before-command () |
| 2543 | (funcall (or (get this-command 'completion-function) | 2543 | (funcall (or (and (symbolp this-command) |
| 2544 | (get this-command 'completion-function)) | ||
| 2544 | 'use-completion-under-or-before-point))) | 2545 | 'use-completion-under-or-before-point))) |
| 2545 | (add-hook 'pre-command-hook 'completion-before-command) | 2546 | (add-hook 'pre-command-hook 'completion-before-command) |
| 2546 | 2547 | ||