From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 12 Oct 1995 22:28:07 +0000 (+0000)
Subject: Handle aliases dead-acute,...
X-Git-Tag: emacs-19.34~2657
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=224c62c6b244129c5242a8fa6d2d3b4472826f2c;p=emacs.git

Handle aliases dead-acute,...
---

diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el
index e2fdd9e4eeb..ca674b3e0b6 100644
--- a/lisp/international/iso-transl.el
+++ b/lisp/international/iso-transl.el
@@ -40,6 +40,22 @@
     (?\~ . mute-asciitilde))
   "Mapping of ASCII characters to their corresponding dead-key symbols.")
 
+;; Some X servers use these alternate names.
+(or key-translation-map
+    (setq key-translation-map (make-sparse-keymap)))
+(define-key key-translation-map [dead-acute] [mute-acute])
+(define-key key-translation-map [dead-grave] [mute-grave])
+(define-key key-translation-map [dead-diaeresis] [mute-diaeresis])
+(define-key key-translation-map [dead-asciicircum] [mute-asciicircum])
+(define-key key-translation-map [dead-asciitilde] [mute-asciitilde])
+;; Someone reports that these keys don't work if shifted.
+;; This might fix it--no word yet.
+(define-key key-translation-map [S-dead-acute] [mute-acute])
+(define-key key-translation-map [S-dead-grave] [mute-grave])
+(define-key key-translation-map [S-dead-diaeresis] [mute-diaeresis])
+(define-key key-translation-map [S-dead-asciicircum] [mute-asciicircum])
+(define-key key-translation-map [S-dead-asciitilde] [mute-asciitilde])
+
 ;; The two-character mnemonics are intended to be available in all languages.
 ;; The ones beginning with `*' have one-character synonyms, but a
 ;; language-specific table might override the short form for its own use.