Mercurial > emacs

changeset 29073:b46c4dc8c51a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-simple-translation-keymap): Map 128..255 to quail-self-insert-command. (quail-keyboard-layout-alist): Add definition for "pc102-de".
author Kenichi Handa <handa@m17n.org>
date Mon, 22 May 2000 04:40:49 +0000
parents 153d3f511546
children 3b4c3f9b9c66
files lisp/international/quail.el
diffstat 1 files changed, 13 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/quail.el	Mon May 22 04:40:00 2000 +0000
+++ b/lisp/international/quail.el	Mon May 22 04:40:49 2000 +0000
@@ -277,6 +277,10 @@
     (while (< i 127)
       (define-key map (char-to-string i) 'quail-self-insert-command)
       (setq i (1+ i)))
+    (setq i 128)
+    (while (< i 256)
+      (define-key map (vector i) 'quail-self-insert-command)
+      (setq i (1+ i)))
     (define-key map "\177" 'quail-delete-last-char)
     (define-key map [delete] 'quail-delete-last-char)
     (define-key map [backspace] 'quail-delete-last-char)
@@ -570,6 +574,15 @@
   aAsSdDfFgGhHjJkKlL\366\326\344\304~|    \
 <>yYxXcCvVbBnNmM,;.:-_        \
                               ")
+
+   '("pc102-de" . "\
+                              \
+^\2601!2\"3\2474$5%6&7/8(9)0=\337?\264`#'  \
+  qQwWeErRtTzZuUiIoOpP\374\334+*    \
+  aAsSdDfFgGhHjJkKlL\366\326\344\304      \
+<>yYxXcCvVbBnNmM,;.:-_        \
+                              ")
+
    (cons "standard" quail-keyboard-layout-standard))
   "Alist of keyboard names and corresponding layout strings.
 See the documentation of `quail-keyboard-layout' for the format of