Browse Source

Merge branch 'maint'

Nicolas Goaziou 6 years ago
parent
commit
cf13dc58c0
1 changed files with 1 additions and 1 deletions
  1. 1 1
      lisp/org-agenda.el

+ 1 - 1
lisp/org-agenda.el

@@ -9035,7 +9035,7 @@ current line."
 				 (if (memq 'org-tag prop)
 				 (if (memq 'org-tag prop)
 				     prop
 				     prop
 				   (cons 'org-tag prop))))))
 				   (cons 'org-tag prop))))))
-	(setq l (- (match-end 1) (match-beginning 1))
+	(setq l (string-width (match-string 1))
 	      c (if (< org-agenda-tags-column 0)
 	      c (if (< org-agenda-tags-column 0)
 		    (- (abs org-agenda-tags-column) l)
 		    (- (abs org-agenda-tags-column) l)
 		  org-agenda-tags-column))
 		  org-agenda-tags-column))