From b4807e7953d16d20948a67ef83245102d5dabc46 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 15:02:00 +0300 Subject: [PATCH 05/76] Deprecate org-add-log-current-headline. --- lisp/org-compat.el | 6 +++++- lisp/org.el | 2 +- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 19ffe244b..800b425a7 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -317,6 +317,10 @@ Counting starts at 1." (define-obsolete-function-alias 'org-file-url-p 'org-url-p "9.5") +;; /s/headline/heading +(define-obsolete-function-alias 'org-add-log-current-headline + 'org-add-log-current-heading "9.5") + (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." (save-match-data @@ -976,7 +980,7 @@ To get rid of the restriction, use `\\[org-agenda-remove-restriction-lock]'." ;;;; Add Log -(defun org-add-log-current-headline () +(defun org-add-log-current-heading () "Return current heading or nil. This function ignores inlinetasks. It is meant to be used as `add-log-current-defun-function' value." diff --git a/lisp/org.el b/lisp/org.el index b7b54dbc2..197fc7e59 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -4890,7 +4890,7 @@ The following commands are available: ;; 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) + (setq-local add-log-current-defun-function #'org-add-log-current-heading) ;; Make sure dependence stuff works reliably, even for users who set it ;; too late :-( (if org-enforce-todo-dependencies -- 2.33.0