mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

Handle aliases dead-acute,...

Browse Source
This commit is contained in:
Richard M. Stallman 1995-10-12 22:28:07 +00:00
parent 7f73dc9db3
commit 224c62c6b2
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/international/iso-transl.el
View File

@ -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.