[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
bug#17659: 24.3.90; C-x 8 ? displays help instead of inserting INVERTED QUESTION MARK, Stefan Monnier, 2014/06/18