bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#17659: 24.3.90; C-x 8 ? displays help instead of inserting INVERTED


From: Leo Liu
Subject: bug#17659: 24.3.90; C-x 8 ? displays help instead of inserting INVERTED QUESTION MARK
Date: Wed, 04 Jun 2014 08:02:41 +0800
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4.50 (CentOS 6.5)

On 2014-06-03 10:58 +0800, Leo Liu wrote:
> I can not verify if this breaks something else (I am using an apple
> keyboard) but it fixes the bug.

How about something along these lines?

=== modified file 'lisp/international/iso-transl.el'
--- lisp/international/iso-transl.el    2014-02-10 01:34:22 +0000
+++ lisp/international/iso-transl.el    2014-06-03 16:18:51 +0000
@@ -39,8 +39,10 @@
 ;;; Code:
 
 ;;; Provide some binding for startup:
-;;;###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)
+;;;###autoload
+(define-prefix-command 'iso-transl-ctl-x-8-map)
+;;;###autoload
+(define-key ctl-x-map "8" 'iso-transl-ctl-x-8-map)
 
 (defvar iso-transl-dead-key-alist
   '((?\' . mute-acute)
@@ -237,15 +239,6 @@
      ("N"  . [?Ñ])
      ("n"  . [?ñ]))))
 
-(defvar iso-transl-ctl-x-8-map nil
-  "Keymap for C-x 8 prefix.")
-(or iso-transl-ctl-x-8-map
-    (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)
-
 ;; For each entry in the alist, we'll make up to three ways to generate
 ;; the character in question: the prefix `C-x 8'; the ALT modifier on
 ;; the first key of the sequence; and (if applicable) replacing the first






reply via email to

[Prev in Thread] Current Thread [Next in Thread]