Mercurial > emacs
changeset 23003:95c97e05a03e
(double-setup): Only copy `key-translation-map' if it is a keymap.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 12 Aug 1998 19:45:38 +0000 |
| parents | 335a2045e2a3 |
| children | 334beda46c29 |
| files | lisp/double.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/double.el Wed Aug 12 14:22:14 1998 +0000 +++ b/lisp/double.el Wed Aug 12 19:45:38 1998 +0000 @@ -145,7 +145,9 @@ ;; Set up key-translation-map as indicated by `double-map'. (kill-local-variable 'key-translation-map) (make-local-variable 'key-translation-map) - (setq key-translation-map (copy-keymap key-translation-map)) + (setq key-translation-map (if (keymapp key-translation-map) + (copy-keymap key-translation-map) + (make-sparse-keymap))) (mapcar (function (lambda (entry) (define-key key-translation-map (vector (nth 0 entry))