mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-11-22 07:09:47 +00:00
Use org-back-to-heading' instead of
outline-back-to-heading'
* lisp/org-agenda.el (org-search-view): * lisp/org-clock.el (org-with-clock): (org-clock-jump-to-current-clock): * lisp/org.el (org-entry-beginning-position): Use `org-back-to-heading' instead of `outline-back-to-heading'. Reported-by: Derek Feichtinger <dfeich@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/104375>
This commit is contained in:
parent
0d53e5f9e8
commit
3dcd1a345f
@ -4615,7 +4615,7 @@ in `org-agenda-text-search-extra-files'."
|
||||
(> (org-reduced-level (org-outline-level))
|
||||
org-agenda-search-view-max-outline-level)
|
||||
(forward-line -1)
|
||||
(outline-back-to-heading t)))
|
||||
(org-back-to-heading t)))
|
||||
(skip-chars-forward "* ")
|
||||
(setq beg (point-at-bol)
|
||||
beg1 (point)
|
||||
|
@ -875,7 +875,7 @@ This macro also protects the current active clock from being altered."
|
||||
(org-clock-effort)
|
||||
(org-clock-marker (car ,clock))
|
||||
(org-clock-hd-marker (save-excursion
|
||||
(outline-back-to-heading t)
|
||||
(org-back-to-heading t)
|
||||
(point-marker))))
|
||||
,@forms)))
|
||||
(def-edebug-spec org-with-clock (form body))
|
||||
@ -960,7 +960,7 @@ If necessary, clock-out of the currently active clock."
|
||||
(org-with-wide-buffer
|
||||
(let ((drawer-re (format "^[ \t]*:%s:[ \t]*$"
|
||||
(regexp-quote (if (stringp drawer) drawer "LOGBOOK"))))
|
||||
(beg (save-excursion (outline-back-to-heading t) (point))))
|
||||
(beg (save-excursion (org-back-to-heading t) (point))))
|
||||
(catch 'exit
|
||||
(while (re-search-backward drawer-re beg t)
|
||||
(let ((element (org-element-at-point)))
|
||||
|
@ -7195,7 +7195,7 @@ open and agenda-wise Org files."
|
||||
|
||||
(defsubst org-entry-beginning-position ()
|
||||
"Return the beginning position of the current entry."
|
||||
(save-excursion (outline-back-to-heading t) (point)))
|
||||
(save-excursion (org-back-to-heading t) (point)))
|
||||
|
||||
(defsubst org-entry-end-position ()
|
||||
"Return the end position of the current entry."
|
||||
|
Loading…
Reference in New Issue
Block a user