From a5b0a4e29243d3cf91e2b5cd365ae9ce0ae48726 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 18 Dec 2017 02:53:26 +0000 Subject: [PATCH] * 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 c505f25a5a9..23f2ff75fab 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. -- 2.39.2