summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien <bzg@gnu.org>2020-02-02 17:38:09 +0100
committerBastien <bzg@gnu.org>2020-02-02 17:38:09 +0100
commitefbf96389ad6452bca4c641a064001d28eeb629f (patch)
treedf5727140b081ae250b68911c6a1d4ab73d08bce
parent2a5f879c810e4b4ba2e85ebf2616a32c8501f342 (diff)
downloadorg-mode-efbf96389ad6452bca4c641a064001d28eeb629f.tar.gz
org-agenda.el: Fix display of agenda new time
* lisp/org-agenda.el (org-agenda-show-new-time): Compute the width relatively to the text scale.
-rw-r--r--lisp/org-agenda.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 611afa0..2a2352d 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -9558,7 +9558,8 @@ Called with a universal prefix arg, show the priority instead of setting it."
(while (not (bobp))
(when (equal marker (org-get-at-bol 'org-marker))
(remove-text-properties (point-at-bol) (point-at-eol) '(display nil))
- (org-move-to-column (- (window-width) (length stamp)) t)
+ (org-move-to-column
+ (- (/ (window-width nil t) (window-font-width)) (length stamp)) t)
(add-text-properties
(1- (point)) (point-at-eol)
(list 'display (org-add-props stamp nil