Mercurial > emacs
changeset 11437:84e419a90298
(derived-mode-merge-keymaps): Recursively merge prefix key submaps also.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 14 Apr 1995 05:56:31 +0000 |
| parents | 9829d3c035f2 |
| children | 2adcef6a9a29 |
| files | lisp/derived.el |
| diffstat | 1 files changed, 23 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/derived.el Fri Apr 14 03:58:51 1995 +0000 +++ b/lisp/derived.el Fri Apr 14 05:56:31 1995 +0000 @@ -297,8 +297,30 @@ (defun derived-mode-merge-keymaps (old new) "Merge an old keymap into a new one. -The old keymap is set to be the cdr of the new one, so that there will +The old keymap is set to be the last cdr of the new one, so that there will be automatic inheritance." + (let ((tail new)) + ;; Scan the NEW map for prefix keys. + (while (consp tail) + (and (consp (car tail)) + (let* ((key (vector (car (car tail)))) + (subnew (lookup-key new key)) + (subold (lookup-key old key))) + ;; If KEY is a prefix key in both OLD and NEW, merge them. + (and (keymapp subnew) (keymapp subold) + (derived-mode-merge-keymaps subold subnew)))) + (and (vectorp (car tail)) + ;; Search a vector of ASCII char bindings for prefix keys. + (let ((i (1- (length (car tail))))) + (while (>= i 0) + (let* ((key (vector i)) + (subnew (lookup-key new key)) + (subold (lookup-key old key))) + ;; If KEY is a prefix key in both OLD and NEW, merge them. + (and (keymapp subnew) (keymapp subold) + (derived-mode-merge-keymaps subold subnew))) + (setq i (1- i))))) + (setq tail (cdr tail)))) (setcdr (nthcdr (1- (length new)) new) old)) (defun derived-mode-merge-syntax-tables (old new)