From 7aadf4fe8c80638718ba5ee8477fb884d81a0d52 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 28 Apr 2018 23:41:11 +0200 Subject: [PATCH] Improve `org-fix-tags-on-the-fly' * lisp/org.el (org-fix-tags-on-the-fly): Improve docstring. Skip more cases. --- lisp/org.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index d17b1a3a5..e7dc3dd27 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -19360,10 +19360,10 @@ The detailed reaction depends on the user option `org-catch-invisible-edits'." (defun org-fix-tags-on-the-fly () "Align tags in headline at point. -Unlike to `org-align-tags', this function does nothing if point -is not currently on a headline." - (when (and (eq (char-after (line-beginning-position)) ?*) ;short-circuit - (org-at-heading-p)) +Unlike `org-align-tags', this function does nothing if point is +either not currently on a tagged headline or on a tag." + (when (and (org-match-line org-tag-line-re) + (< (point) (match-beginning 1))) (org-align-tags))) (defun org-delete-backward-char (N) -- 2.11.4.GIT