tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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.
This commit is contained in:
Bastien 2020-02-02 17:38:09 +01:00
parent 2a5f879c81
commit efbf96389a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org-agenda.el
View File

@ -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