procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't mutate string literal

Browse source 
* lisp/obsolete/terminal.el (terminal-escape-map): Rewrite loop in a
simpler and more robust way.
This commit is contained in:
Mattias Engdegård 2021-08-19 11:35:41 +02:00
parent f804248b4f
commit c69b4768d6
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/obsolete/terminal.el
View file

@ -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)