From 79f8634741bf456fcd2297fe23721942b05062cf Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 2 Dec 1998 18:14:27 +0000 Subject: [PATCH] Fix previous change. --- lisp/international/iso-transl.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el index 706aac88bc2..7b2deedef70 100644 --- a/lisp/international/iso-transl.el +++ b/lisp/international/iso-transl.el @@ -35,7 +35,7 @@ ;;; Provide some binding for startup: ;;;###autoload (or key-translation-map (setq key-translation-map (make-sparse-keymap))) -;;;###autoload (define-key key-translation-map "\C-x8" iso-transl-ctl-x-8-map) +;;;###autoload (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) ;;;###autoload (autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap) (defvar iso-transl-dead-key-alist @@ -213,7 +213,8 @@ sequence VECTOR. (VECTOR is normally one character long.)") (defvar iso-transl-ctl-x-8-map nil "Keymap for C-x 8 prefix.") (or iso-transl-ctl-x-8-map - (setq iso-transl-ctl-x-8-map (make-sparse-keymap))) + (fset 'iso-transl-ctl-x-8-map + (setq iso-transl-ctl-x-8-map (make-sparse-keymap)))) (or key-translation-map (setq key-translation-map (make-sparse-keymap))) (define-key key-translation-map "\C-x8" iso-transl-ctl-x-8-map) -- 2.39.2