422 |
(nconc (nreverse skipped) newdef))) |
(nconc (nreverse skipped) newdef))) |
423 |
;; Look past a symbol that names a keymap. |
;; Look past a symbol that names a keymap. |
424 |
(setq inner-def |
(setq inner-def |
425 |
(condition-case nil (indirect-function defn) (error defn))) |
(and defn |
426 |
|
(condition-case nil (indirect-function defn) (error defn)))) |
427 |
;; 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 |
428 |
;; avoid autoloading a keymap. This is mostly done to preserve the |
;; avoid autoloading a keymap. This is mostly done to preserve the |
429 |
;; original non-autoloading behavior of pre-map-keymap times. |
;; original non-autoloading behavior of pre-map-keymap times. |