Mercurial > emacs

changeset 89246:27eed9fab7f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix typo in loop setting x-keysym-table.
author Dave Love <fx@gnu.org>
date Mon, 28 Oct 2002 14:46:01 +0000
parents b048cce71f64
children 960493ec527a
files lisp/term/x-win.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/x-win.el	Sun Oct 27 21:29:08 2002 +0000
+++ b/lisp/term/x-win.el	Mon Oct 28 14:46:01 2002 +0000
@@ -1128,6 +1128,9 @@
 (put 'return 'ascii-character 13)
 (put 'escape 'ascii-character ?\e)
 
+
+;;;; Keysyms
+
 (defun vendor-specific-keysyms (vendor)
   "Return the appropriate value of system-key-alist for VENDOR.
 VENDOR is a string containing the name of the X Server's vendor,
@@ -1191,13 +1194,11 @@
 	 ;; This is used by DEC's X server.
 	 '((65280 . remove)))))
 
-
-;;;; Keysyms
-
+;; Latin-1
 (let ((i 160))
   (while (< i 256)
     (puthash i i x-keysym-table)
-    (setq i (1- i))))
+    (setq i (1+ i))))
 
 ;; Table from Kuhn's proposed additions to the `KEYSYM Encoding'
 ;; appendix to the X protocol definition.