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

time-stamp: optimize resource use

Browse source 
* lisp/time-stamp.el (time-stamp-string-preprocess): Replace
n-squared string 'concat' with linear list 'push'.
This commit is contained in:
Stephen Gildea 2025-03-12 07:02:44 -07:00
parent 1bfbaacc05
commit 6ab65281c5
1 changed files with 7 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/time-stamp.el
View file

@ -535,7 +535,7 @@ and all `time-stamp-format' compatibility."
((fmt-len (length format))
(ind 0)
cur-char
(result "")
(result nil)
(handle-one-conversion
(lambda ()
(let ((prev-char nil)
@ -779,17 +779,13 @@ and all `time-stamp-format' compatibility."
;; iterate over the format string
(while (< ind fmt-len)
(setq cur-char (aref format ind))
(setq
result
(concat
result
(cond
((eq cur-char ?%)
(funcall handle-one-conversion))
(t
(char-to-string cur-char)))))
(push (cond ((eq cur-char ?%)
(funcall handle-one-conversion))
(t
(char-to-string cur-char)))
result)
(setq ind (1+ ind)))
result))
(apply #'concat (nreverse result))))
(defun time-stamp-do-letter-case (change-is-downcase
upcase title-case change-case text)