Mercurial > emacs

changeset 10523:2303cb9ce523

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(iso-transl-char-map): Add elements for mute-acute, etc.
author Richard M. Stallman <rms@gnu.org>
date Sun, 22 Jan 1995 20:05:48 +0000
parents dd97fd55e095
children 92d4e8fc0942
files lisp/international/iso-transl.el
diffstat 1 files changed, 15 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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))