summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIhor Radchenko <yantar92@posteo.net>2023-12-05 16:42:17 +0100
committerIhor Radchenko <yantar92@posteo.net>2023-12-05 16:42:17 +0100
commitf2cb64579bab27158600c1abea1a46a32d15d34f (patch)
tree5fd9e1275a1a06d2ab17e8ce8044fa0acf695425
parent8c2f7635c527a33f718b9319e3b436945a7349ab (diff)
downloadorg-mode-f2cb64579.tar.gz
org-buffer-text-pixel-width: Fix measuring lines beyond window width
* lisp/org-compat.el (org-buffer-text-pixel-width): Pass non-nil X-LIMIT argument to `window-text-pixel-size' to not limit the maximum width to window pixel width. Reported-by: Raffael Stocker <r.stocker@mnet-mail.de> Link: https://orgmode.org/list/yplmr0k4bv9d.fsf@mnet-mail.de
-rw-r--r--lisp/org-compat.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index d4c3d53..57327a9 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -145,7 +145,7 @@ back to `window-text-pixel-size' otherwise."
(car (buffer-text-pixel-size nil nil t))
(if (get-buffer-window (current-buffer))
(car (window-text-pixel-size
- nil (point-min) (point-max)))
+ nil (point-min) (point-max) t))
(let ((dedicatedp (window-dedicated-p))
(oldbuffer (window-buffer)))
(unwind-protect
@@ -154,7 +154,7 @@ back to `window-text-pixel-size' otherwise."
(set-window-dedicated-p nil nil)
(set-window-buffer nil (current-buffer))
(car (window-text-pixel-size
- nil (point-min) (point-max))))
+ nil (point-min) (point-max) t)))
(set-window-buffer nil oldbuffer)
(set-window-dedicated-p nil dedicatedp))))))