Browse Source

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.
Bastien 5 năm trước cách đây
mục cha
commit
efbf96389a
1 tập tin đã thay đổi với 2 bổ sung1 xóa
  1. 2 1
      lisp/org-agenda.el

+ 2 - 1
lisp/org-agenda.el

@@ -9558,7 +9558,8 @@ Called with a universal prefix arg, show the priority instead of setting it."
       (while (not (bobp))
       (while (not (bobp))
 	(when (equal marker (org-get-at-bol 'org-marker))
 	(when (equal marker (org-get-at-bol 'org-marker))
           (remove-text-properties (point-at-bol) (point-at-eol) '(display nil))
           (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
           (add-text-properties
 	   (1- (point)) (point-at-eol)
 	   (1- (point)) (point-at-eol)
 	   (list 'display (org-add-props stamp nil
 	   (list 'display (org-add-props stamp nil