Mercurial > emacs

changeset 23794:7348b1c771c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Karl Heuer <kwzh@gnu.org>
date Wed, 02 Dec 1998 18:14:27 +0000
parents 3f48dda0547a
children a4dd6e536bc1
files lisp/international/iso-transl.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/iso-transl.el	Wed Dec 02 18:06:37 1998 +0000
+++ b/lisp/international/iso-transl.el	Wed Dec 02 18:14:27 1998 +0000
@@ -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 @@
 (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)