diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2016-04-05 13:58:57 -0700 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2016-04-05 14:09:17 -0700 |
commit | 1e4aa42aa50fe4429f0a8d147af5254d5ec960a5 (patch) | |
tree | 152e0a9ecac68e6e4ad02b4158d08d7c715e5fc8 /lisp | |
parent | a05fb21d73d2ca84dd7e5e7ee931931048ecddba (diff) | |
download | emacs-1e4aa42aa50fe4429f0a8d147af5254d5ec960a5.tar.gz |
Avoid describe-key error with lambdas
Problem reported by Sho Takemori (Bug#22716).
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(xref-mode-local-overload): Use function-overload-p instead
of assuming the argument is a symbol.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/cedet/mode-local.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el index c7e6615e0df..4f424313ab7 100644 --- a/lisp/cedet/mode-local.el +++ b/lisp/cedet/mode-local.el @@ -638,7 +638,7 @@ SYMBOL is a function that can be overridden." (defun describe-mode-local-overload (symbol) "For `help-fns-describe-function-functions'; add overloads for SYMBOL." - (when (get symbol 'mode-local-overload) + (when (function-overload-p symbol) (let ((default (or (intern-soft (format "%s-default" (symbol-name symbol))) symbol)) (override (with-current-buffer describe-function-orig-buffer @@ -684,7 +684,7 @@ SYMBOL is a function that can be overridden." (defun xref-mode-local-overload (symbol) "For `elisp-xref-find-def-functions'; add overloads for SYMBOL." ;; Current buffer is the buffer where xref-find-definitions was invoked. - (when (get symbol 'mode-local-overload) + (when (function-overload-p symbol) (let* ((symbol-file (find-lisp-object-file-name symbol (symbol-function symbol))) (default (intern-soft (format "%s-default" (symbol-name symbol)))) (default-file (when default (find-lisp-object-file-name default (symbol-function default)))) |