[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c69b476 1/3: Don't mutate string literal
From: |
Mattias Engdegård |
Subject: |
master c69b476 1/3: Don't mutate string literal |
Date: |
Fri, 20 Aug 2021 07:32:30 -0400 (EDT) |
branch: master
commit c69b4768d6a8ee57ea5358ae91a33431988b7ba3
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
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 0167a00..fa89b58 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)