diff options
author | Bastien <bzg@gnu.org> | 2020-02-02 17:38:09 +0100 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2020-02-02 17:38:09 +0100 |
commit | efbf96389ad6452bca4c641a064001d28eeb629f (patch) | |
tree | df5727140b081ae250b68911c6a1d4ab73d08bce | |
parent | 2a5f879c810e4b4ba2e85ebf2616a32c8501f342 (diff) | |
download | org-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.el | 3 |
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 |