procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(iso-transl-dead-key-alist): Add dead-...

Browse source 
and S-dead-... key names to this list.
(key-translation-map): Don't define dead-... and S-dead... here.
(iso-transl-define-keys): Handle multiple matches
in iso-transl-dead-key-alist for one accent character.
This commit is contained in:
Richard M. Stallman 1996-09-09 22:19:42 +00:00
parent 4ad679f96d
commit 9796652389
1 changed files with 37 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

69
lisp/international/iso-transl.el
View file

@ -37,26 +37,28 @@
'((?\' . mute-acute)
(?\` . mute-grave)
(?\" . mute-diaeresis)
(?^ . mute-asciicircum) ;; Don't use \, since \^ is special.
(?\~ . mute-asciitilde))
(?^ . mute-asciicircum)
(?\~ . mute-asciitilde)
(?\' . dead-acute)
(?\` . dead-grave)
(?\" . dead-diaeresis)
(?^ . dead-asciicircum)
(?\~ . dead-asciitilde)
(?^ . dead-circum)
(?^ . dead-circumflex)
(?\~ . dead-tilde)
;; Someone reports that these keys don't work if shifted.
;; This might fix it--no word yet.
(?\' . S-dead-acute)
(?\` . S-dead-grave)
(?\" . S-dead-diaeresis)
(?^ . S-dead-asciicircum)
(?\~ . S-dead-asciitilde)
(?^ . S-dead-circum)
(?^ . S-dead-circumflex)
(?\~ . S-dead-tilde))
"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.
@ -213,20 +215,23 @@ sequence VECTOR. (VECTOR is normally one character long.)")
;; character associated with the string "~n" can be input with `C-x 8 ~ n'
;; or `Alt-~ n' or `mute-asciitilde n'.
(defun iso-transl-define-keys (alist)
(while alist
(define-key iso-transl-ctl-x-8-map (car (car alist)) (cdr (car alist)))
(let ((vec (vconcat (car (car alist))))
(deadpair (assq (aref (car (car alist)) 0)
iso-transl-dead-key-alist)))
(aset vec 0 (logior (aref vec 0) ?\A-\^@))
(define-key key-translation-map vec (cdr (car alist)))
(define-key isearch-mode-map (vector (aref vec 0)) nil)
(if deadpair
(let ((deadvec (copy-sequence vec)))
(aset deadvec 0 (cdr deadpair))
(define-key isearch-mode-map (vector (aref deadvec 0)) nil)
(define-key key-translation-map deadvec (cdr (car alist))))))
(setq alist (cdr alist))))
(while alist
(define-key iso-transl-ctl-x-8-map (car (car alist)) (cdr (car alist)))
(let ((inchar (aref (car (car alist)) 0))
(vec (vconcat (car (car alist))))
(tail iso-transl-dead-key-alist))
(aset vec 0 (logior (aref vec 0) ?\A-\^@))
(define-key key-translation-map vec (cdr (car alist)))
(define-key isearch-mode-map (vector (aref vec 0)) nil)
(while tail
(if (eq (car (car tail)) inchar)
(let ((deadvec (copy-sequence vec))
(deadkey (cdr (car tail))))
(aset deadvec 0 deadkey)
(define-key isearch-mode-map (vector deadkey) nil)
(define-key key-translation-map deadvec (cdr (car alist)))))
(setq tail (cdr tail)))))
(setq alist (cdr alist)))
(defun iso-transl-set-language (lang)
(interactive (list (let ((completion-ignore-case t))