diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-01-22 20:05:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-01-22 20:05:48 +0000 |
| commit | a9c8ab9da0ef25ab92a20ffa27ac0795d82bd9a8 (patch) | |
| tree | 130205cfb6ad100ad1a72a510ae1ecdb8191c39d | |
| parent | 500d7daefd89a219e1801da671a42703112eadc8 (diff) | |
| download | emacs-a9c8ab9da0ef25ab92a20ffa27ac0795d82bd9a8.tar.gz | |
(iso-transl-char-map): Add elements for mute-acute, etc.
| -rw-r--r-- | lisp/international/iso-transl.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el index 1008dbd7a7f..f76111e6326 100644 --- a/lisp/international/iso-transl.el +++ b/lisp/international/iso-transl.el @@ -176,6 +176,21 @@ sequence VECTOR. (VECTOR is normally one character long.)") (define-key key-translation-map string (cdr (car table)))) (setq table (cdr table))) + ;; Enter the individual sequences, this time with + ;; certain special function keys replacing the punctuation characters. + (setq table iso-transl-char-map) + (while table + (let ((mapping + (assq (aref (car (car table)) 0) '((?\' . mute-acute) + (?\` . mute-grave) + (?\" . mute-diaeresis) + (?\^ . mute-asciicircum) + (?\~ . mute-asciitilde))))) + (if mapping + (let ((string (vector (cdr mapping) (aref (car (car table)) 1)))) + (define-key key-translation-map string (cdr (car table)))))) + (setq table (cdr table))) + (define-key isearch-mode-map "\C-x" nil) (define-key isearch-mode-map [?\C-x t] 'isearch-other-control-char) (define-key isearch-mode-map "\C-x8" nil)) |