Mercurial > emacs

comparison lisp/double.el @ 23003:95c97e05a03e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 49e731d1ddb6
children e42d6599cade
comparison
equal deleted inserted replaced
23002:335a2045e2a3 23003:95c97e05a03e
143 (if enable-flag 143 (if enable-flag
144 (progn 144 (progn
145 ;; Set up key-translation-map as indicated by `double-map'. 145 ;; Set up key-translation-map as indicated by `double-map'.
146 (kill-local-variable 'key-translation-map) 146 (kill-local-variable 'key-translation-map)
147 (make-local-variable 'key-translation-map) 147 (make-local-variable 'key-translation-map)
148 (setq key-translation-map (copy-keymap key-translation-map)) 148 (setq key-translation-map (if (keymapp key-translation-map)
149 (copy-keymap key-translation-map)
150 (make-sparse-keymap)))
149 (mapcar (function (lambda (entry) 151 (mapcar (function (lambda (entry)
150 (define-key key-translation-map 152 (define-key key-translation-map
151 (vector (nth 0 entry)) 153 (vector (nth 0 entry))
152 'double-translate-key))) 154 'double-translate-key)))
153 (append double-map '((magic-start) (magic-end))))) 155 (append double-map '((magic-start) (magic-end)))))