From c69b4768d6a8ee57ea5358ae91a33431988b7ba3 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Thu, 19 Aug 2021 11:35:41 +0200 Subject: [PATCH] Don't mutate string literal * lisp/obsolete/terminal.el (terminal-escape-map): Rewrite loop in a simpler and more robust way. --- lisp/obsolete/terminal.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/obsolete/terminal.el b/lisp/obsolete/terminal.el index 0167a00066b..fa89b586a0a 100644 --- a/lisp/obsolete/terminal.el +++ b/lisp/obsolete/terminal.el @@ -112,10 +112,9 @@ performance." nil (let ((map (make-sparse-keymap))) (define-key map [t] #'undefined) - (let ((s "0")) - (while (<= (aref s 0) ?9) - (define-key map s #'digit-argument) - (aset s 0 (1+ (aref s 0))))) + (dotimes (i 10) + (let ((s (make-string 1 (+ ?0 i)))) + (define-key map s #'digit-argument))) (define-key map "b" #'switch-to-buffer) (define-key map "o" #'other-window) (define-key map "e" #'te-set-escape-char) -- 2.39.5