Fix previous change.

diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el
index 706aac88bc286e557143ff0ce34cf1036f8b357c..7b2deedef709a5d8830883025224ee15a4c60375 100644 (file)
--- 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)