From 228ea6881b56a335de11cdf11f26853c33cc8336 Mon Sep 17 00:00:00 2001 From: Yasushi SHOJI Date: Sat, 12 Oct 2013 20:10:06 +0900 Subject: [PATCH] lisp/org.el (org-set-tags): Calculate width of tags with string-width * lisp/org.el (org-set-tags): Width of strings presenting on a buffer should be calculated with `string-width' instead of `length'. This fixes unaligned tags for the languages with multi-width characters. TINYCHANGE --- lisp/org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 610c50628..03c662d15 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14543,7 +14543,7 @@ With prefix ARG, realign all tags in headings in the current buffer." 0) p0 (if (equal (char-before) ?*) (1+ (point)) (point)) tc (+ org-tags-column (if (> org-tags-column 0) (- di) di)) - c1 (max (1+ c0) (if (> tc 0) tc (- (- tc) (length tags)))) + c1 (max (1+ c0) (if (> tc 0) tc (- (- tc) (string-width tags)))) rpl (concat (make-string (max 0 (- c1 c0)) ?\ ) tags))) (replace-match rpl t t) (and (not (featurep 'xemacs)) c0 indent-tabs-mode (tabify p0 (point))) @@ -20403,7 +20403,7 @@ If `org-special-ctrl-o' is nil, just call `open-line' everywhere." (open-line n)) ((org-at-table-p) (org-table-insert-row)) - (t + (t (open-line n)))) (defun org-return (&optional indent)