diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2017-12-18 02:53:26 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2017-12-18 02:53:26 +0000 |
| commit | a5b0a4e29243d3cf91e2b5cd365ae9ce0ae48726 (patch) | |
| tree | 003dced04c4862237f097b78ad46df5a2bd75c96 | |
| parent | c51e797bbace83181a3c778ba610560e236ee62b (diff) | |
| download | emacs-a5b0a4e29243d3cf91e2b5cd365ae9ce0ae48726.tar.gz | |
* lisp/net/shr.el (shr-string-pixel-width): Return pixel-width,
not position (bug#29734).
| -rw-r--r-- | lisp/net/shr.el | 9 |
1 files 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. |