diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-01-21 10:42:03 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-01-21 10:42:03 +0100 |
commit | 3dcd1a345fe2c671cf7490940d0c728b791f5cd3 (patch) | |
tree | bb868d85edb130a91d8d6a7860f24c86d2b591ca | |
parent | 0d53e5f9e85f29a0c0cbdb09283856bfde0b40df (diff) | |
download | org-mode-3dcd1a345fe2c671cf7490940d0c728b791f5cd3.tar.gz |
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>
-rw-r--r-- | lisp/org-agenda.el | 2 | ||||
-rw-r--r-- | lisp/org-clock.el | 4 | ||||
-rwxr-xr-x | lisp/org.el | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 48d3804..0f098c1 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -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) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 8e1fca0..b5b10eb 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -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))) diff --git a/lisp/org.el b/lisp/org.el index 51c4c4a..f1a04ab 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -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." |