]> git.eshelyaron.com Git - emacs.git/commitdiff
(iso-transl-char-map): Add elements for mute-acute, etc.
authorRichard M. Stallman <rms@gnu.org>
Sun, 22 Jan 1995 20:05:48 +0000 (20:05 +0000)
committerRichard M. Stallman <rms@gnu.org>
Sun, 22 Jan 1995 20:05:48 +0000 (20:05 +0000)
lisp/international/iso-transl.el

index 1008dbd7a7ff8d28cbbbb1e34b2dd2270020d0c5..f76111e6326af490b12ab114f038e25bd23800f5 100644 (file)
@@ -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))