summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2018-06-13 22:15:56 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2018-06-13 22:15:56 +0200
commitf50f37338953b6d9978e3edfa57a4299ac860886 (patch)
treebb7d93f1cc4ff75fc04dc6b43a0fca4058e2c76f
parent3f26c9bd2e824d0034f7db0bb9aeb2aa14f22d7a (diff)
downloadorg-mode-f50f37338953b6d9978e3edfa57a4299ac860886.tar.gz
Add facility for commit log messages from Org documents
* lisp/org-compat.el (org-add-log-current-headline): New function. * lisp/org.el (org-mode): Use new function.
-rw-r--r--lisp/org-compat.el8
-rw-r--r--lisp/org.el2
2 files changed, 10 insertions, 0 deletions
diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index 702cd7f..febfba4 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -712,6 +712,14 @@ To get rid of the restriction, use `\\[org-agenda-remove-restriction-lock]'."
(add-hook 'speedbar-visiting-tag-hook
(lambda () (and (derived-mode-p 'org-mode) (org-show-context 'org-goto))))))
+;;;; Add Log
+
+(defun org-add-log-current-headline ()
+ "Return current headline or nil.
+This function ignores inlinetasks. It is meant to be used as
+`add-log-current-defun-function' value."
+ (org-with-limited-levels (org-get-heading t t t t)))
+
;;;; Flyspell
(defun org--flyspell-object-check-p (element)
diff --git a/lisp/org.el b/lisp/org.el
index cee98e5..a9537c9 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5509,6 +5509,8 @@ The following commands are available:
(forward-char -1))))
;; Next error for sparse trees
(setq-local next-error-function 'org-occur-next-match)
+ ;; Make commit log messages from Org documents easier.
+ (setq-local add-log-current-defun-function #'org-add-log-current-headline)
;; Make sure dependence stuff works reliably, even for users who set it
;; too late :-(
(if org-enforce-todo-dependencies