mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(substitute-key-definition-key): Pass t for NOERROR to

Browse Source 
indirect-function instead of using condition-case.
This commit is contained in:
Kim F. Storm 2006-02-10 00:02:47 +00:00
parent a7f96a358b
commit cf25c64767
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/subr.el
View File

@ -607,8 +607,7 @@ For most uses, it is simpler and safer to use command remappping like this:
(nconc (nreverse skipped) newdef))) (nconc (nreverse skipped) newdef)))
;; Look past a symbol that names a keymap. ;; Look past a symbol that names a keymap.
(setq inner-def (setq inner-def
(and defn (or (indirect-function defn t) defn))
(condition-case nil (indirect-function defn) (error defn))))
;; For nested keymaps, we use `inner-def' rather than `defn' so as to ;; For nested keymaps, we use `inner-def' rather than `defn' so as to
;; avoid autoloading a keymap. This is mostly done to preserve the ;; avoid autoloading a keymap. This is mostly done to preserve the
;; original non-autoloading behavior of pre-map-keymap times. ;; original non-autoloading behavior of pre-map-keymap times.