# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 790805148 0
# Node ID 2303cb9ce523a0ba4844af19c21dab94cb43a8b1
# Parent  dd97fd55e0959a86b5aa7f0b3af90fa83b26f36a
(iso-transl-char-map): Add elements for mute-acute, etc.

diff -r dd97fd55e095 -r 2303cb9ce523 lisp/international/iso-transl.el
--- a/lisp/international/iso-transl.el	Sun Jan 22 20:00:44 1995 +0000
+++ b/lisp/international/iso-transl.el	Sun Jan 22 20:05:48 1995 +0000
@@ -176,6 +176,21 @@
       (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))