Mercurial > emacs
changeset 58460:fbd266022300
(substitute-key-definition-key): Optimize. Don't
call indirect-function for nil defn (always signals error).
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 23 Nov 2004 15:23:57 +0000 |
| parents | d9e5fd89f5cf |
| children | 5049881e14d7 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Tue Nov 23 15:23:35 2004 +0000 +++ b/lisp/subr.el Tue Nov 23 15:23:57 2004 +0000 @@ -422,7 +422,8 @@ (nconc (nreverse skipped) newdef))) ;; Look past a symbol that names a keymap. (setq inner-def - (condition-case nil (indirect-function defn) (error defn))) + (and defn + (condition-case nil (indirect-function defn) (error defn)))) ;; For nested keymaps, we use `inner-def' rather than `defn' so as to ;; avoid autoloading a keymap. This is mostly done to preserve the ;; original non-autoloading behavior of pre-map-keymap times.