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 | 66a11df92592fa1380ed957ba2296c308c7dc452 (patch) | |
| tree | 7f68eb90ab1a5a7604f78415ab130a455203e39b | |
| parent | aae60c215985bd0365810dece2f776c8962fad7f (diff) | |
| download | emacs-66a11df92592fa1380ed957ba2296c308c7dc452.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)) |