(keyboard-translate): Properly lengthen existing table.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index 5279cf0ea20..031c7ff4421 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -227,7 +227,8 @@ and then modifies one entry in it."
           (> 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)))