Mercurial > emacs
changeset 4235:55182207415d
(keyboard-translate): Properly lengthen existing table.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 22 Jul 1993 22:28:36 +0000 |
| parents | 19f077831e72 |
| children | 8e14db210975 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)))