[Emacs-diffs] emacs-26 a5b0a4e: * lisp/net/shr.el (shr-string-pixel-width): Return pixel-width,

[Katsumi Yamaoka]

branch: emacs-26
commit a5b0a4e29243d3cf91e2b5cd365ae9ce0ae48726
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>

    * lisp/net/shr.el (shr-string-pixel-width): Return pixel-width,
    not position (bug#29734).
---
 lisp/net/shr.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index c505f25..23f2ff7 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -595,10 +595,11 @@ size, and full-buffer size."
     ;; shr-pixel-column uses save-window-excursion, which can reset
     ;; point to 1.
     (let ((pt (point)))
-      (with-temp-buffer
-        (insert string)
-        (shr-pixel-column))
-      (goto-char pt))))
+      (prog1
+         (with-temp-buffer
+           (insert string)
+           (shr-pixel-column))
+       (goto-char pt)))))
 
 (defsubst shr--translate-insertion-chars ()
   ;; Remove soft hyphens.