From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 22 Jul 1993 22:28:36 +0000 (+0000)
Subject: (keyboard-translate): Properly lengthen existing table.
X-Git-Tag: emacs-19.34~11616
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f4ebbdbe78a86ff69519e99001904d7d8e8224b6;p=emacs.git

(keyboard-translate): Properly lengthen existing table.
---

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)))