diff options
| author | Ihor Radchenko <yantar92@posteo.net> | 2023-12-05 16:42:17 +0100 |
|---|---|---|
| committer | Ihor Radchenko <yantar92@posteo.net> | 2023-12-05 16:42:17 +0100 |
| commit | f2cb64579bab27158600c1abea1a46a32d15d34f (patch) | |
| tree | 5fd9e1275a1a06d2ab17e8ce8044fa0acf695425 | |
| parent | 8c2f7635c527a33f718b9319e3b436945a7349ab (diff) | |
| download | org-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.el | 4 |
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)))))) |
