From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 22 Jan 1995 20:05:48 +0000 (+0000)
Subject: (iso-transl-char-map): Add elements for mute-acute, etc.
X-Git-Tag: emacs-19.34~5335
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66a11df92592fa1380ed957ba2296c308c7dc452;p=emacs.git

(iso-transl-char-map): Add elements for mute-acute, etc.
---

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))