From f4ebbdbe78a86ff69519e99001904d7d8e8224b6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 22 Jul 1993 22:28:36 +0000 Subject: [PATCH] (keyboard-translate): Properly lengthen existing table. --- lisp/subr.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.39.5