Fix typo in loop setting x-keysym-table.

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index c3bbb33b1a58b8a79f786fcc60dfb31056fa55a3..4b0c75f6a854c29cd58f07007755799e708ce3de 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1128,6 +1128,9 @@ XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp")
 (put 'return 'ascii-character 13)
 (put 'escape 'ascii-character ?\e)
 
+\f
+;;;; 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 @@ as returned by (x-server-vendor)."
         ;; This is used by DEC's X server.
         '((65280 . remove)))))
 
-\f
-;;;; 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.