# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743380116 0
# Node ID 55182207415dc03ed3c1506bfa2e6bef882e36e1
# Parent  19f077831e723bcdda32fb3a9f97e37c6c7b8b90
(keyboard-translate): Properly lengthen existing table.

diff -r 19f077831e72 -r 55182207415d lisp/subr.el
--- a/lisp/subr.el	Thu Jul 22 22:03:25 1993 +0000
+++ b/lisp/subr.el	Thu Jul 22 22:28:36 1993 +0000
@@ -227,7 +227,8 @@
 	  (> to   (length keyboard-translate-table)))
       (progn
 	(let* ((i (length keyboard-translate-table))
-	       (table (make-string (- 256 i) 0)))
+	       (table (concat keyboard-translate-table
+			      (make-string (- 256 i) 0))))
 	  (while (< i 256)
 	    (aset table i i)
 	    (setq i (1+ i)))