Mercurial > emacs

comparison lisp/subr.el @ 4235:55182207415d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(keyboard-translate): Properly lengthen existing table.
author Richard M. Stallman <rms@gnu.org>
date Thu, 22 Jul 1993 22:28:36 +0000
parents 10fd517cb2e9
children 3356419b94c1
comparison
equal deleted inserted replaced
4234:19f077831e72 4235:55182207415d
225 (setq keyboard-translate-table "")) 225 (setq keyboard-translate-table ""))
226 (if (or (> from (length keyboard-translate-table)) 226 (if (or (> from (length keyboard-translate-table))
227 (> to (length keyboard-translate-table))) 227 (> to (length keyboard-translate-table)))
228 (progn 228 (progn
229 (let* ((i (length keyboard-translate-table)) 229 (let* ((i (length keyboard-translate-table))
230 (table (make-string (- 256 i) 0))) 230 (table (concat keyboard-translate-table
231 (make-string (- 256 i) 0))))
231 (while (< i 256) 232 (while (< i 256)
232 (aset table i i) 233 (aset table i i)
233 (setq i (1+ i))) 234 (setq i (1+ i)))
234 (setq keyboard-translate-table table)))) 235 (setq keyboard-translate-table table))))
235 (aset keyboard-translate-table from to)) 236 (aset keyboard-translate-table from to))