Merge branch 'maint'

2015-08-21 13:59:10 +02:00 · 2015-08-21 13:59:10 +02:00 · 5f217e6fd5
parent fa0876fe2e daa8e23175
commit 5f217e6fd5
1 changed files with 2 additions and 0 deletions
--- a/lisp/org.el
+++ b/lisp/org.el
@ -4751,6 +4751,8 @@ Otherwise, these types are allowed:
   (let ((case-fold-search nil)
 	 (re (concat org-outline-regexp-bol ".*:" org-archive-tag ":")))
     (goto-char beg)
+     ;; Include headline point is currently on.
+     (beginning-of-line)
     (while (and (< (point) end) (re-search-forward re end t))
       (when (member org-archive-tag (org-get-tags))
 	 (org-flag-subtree t)