tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Merge branch 'maint'

Browse source
This commit is contained in:
Nicolas Goaziou 2017-12-11 23:21:07 +01:00
parent e8b71b86d2 0dde39ccd3
commit 2390b6302d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/org-archive.el
View file

@ -435,7 +435,7 @@ Archiving time is retained in the ARCHIVE_TIME node property."
(looking-at org-outline-regexp) (looking-at org-outline-regexp)
(setq leader (match-string 0) (setq leader (match-string 0)
level (funcall outline-level)) level (funcall outline-level))
(setq pos (point)) (setq pos (point-marker))
(condition-case nil (condition-case nil
(outline-up-heading 1 t) (outline-up-heading 1 t)
(error (setq e (point-max)) (goto-char (point-min)))) (error (setq e (point-max)) (goto-char (point-min))))