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

Make string-pixel-width about 40% faster

Browse source 
* lisp/emacs-lisp/subr-x.el (string-pixel-width): Speed up.
This commit is contained in:
Lars Ingebrigtsen 2022-02-20 15:24:47 +01:00
parent 277b49d7a3
commit d710b84225
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/subr-x.el
View file

@ -446,7 +446,10 @@ is inserted before adjusting the number of empty lines."
"Return the width of STRING in pixels."
(if (zerop (length string))
0
(with-temp-buffer
;; Keeping a work buffer around is more efficient than creating a
;; new temporary buffer.
(with-current-buffer (get-buffer-create " *string-pixel-width*")
(delete-region (point-min) (point-max))
(insert string)
(car (buffer-text-pixel-size nil nil t)))))