From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 20 Feb 2022 14:24:47 +0000 (+0100)
Subject: Make string-pixel-width about 40% faster
X-Git-Tag: emacs-29.0.90~2203
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d710b8422547cf7c0e222408a2ca660cd6ce40b6;p=emacs.git

Make string-pixel-width about 40% faster

* lisp/emacs-lisp/subr-x.el (string-pixel-width): Speed up.
---

diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el
index 647397e7f7b..7ad4e9ba2ab 100644
--- a/lisp/emacs-lisp/subr-x.el
+++ b/lisp/emacs-lisp/subr-x.el
@@ -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)))))