forked from mirrors/org-mode
Merge branch 'maint'
This commit is contained in:
commit
ac2de241c8
|
@ -8391,13 +8391,13 @@ When called with a prefix argument, include all archive files as well."
|
||||||
(org-show-context 'agenda)
|
(org-show-context 'agenda)
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(and (outline-next-heading)
|
(and (outline-next-heading)
|
||||||
(org-flag-heading nil)))) ; show the next heading
|
(org-flag-heading nil))) ; show the next heading
|
||||||
(when (outline-invisible-p)
|
(when (outline-invisible-p)
|
||||||
(show-entry)) ; display invisible text
|
(show-entry)) ; display invisible text
|
||||||
(recenter (/ (window-height) 2))
|
(recenter (/ (window-height) 2))
|
||||||
(org-back-to-heading t)
|
(org-back-to-heading t)
|
||||||
(if (re-search-forward org-complex-heading-regexp nil t)
|
(if (re-search-forward org-complex-heading-regexp nil t)
|
||||||
(goto-char (match-beginning 4)))
|
(goto-char (match-beginning 4))))
|
||||||
(run-hooks 'org-agenda-after-show-hook)
|
(run-hooks 'org-agenda-after-show-hook)
|
||||||
(and highlight (org-highlight (point-at-bol) (point-at-eol)))))
|
(and highlight (org-highlight (point-at-bol) (point-at-eol)))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue