From 66a11df92592fa1380ed957ba2296c308c7dc452 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 22 Jan 1995 20:05:48 +0000 Subject: [PATCH] (iso-transl-char-map): Add elements for mute-acute, etc. --- lisp/international/iso-transl.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) 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)) -- 2.39.5