From 15e88ab6e31f4e9c65ef56aca00cb535e4157ad7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 18:46:07 +0300 Subject: [PATCH 31/76] Deprecate org-find-exact-headline-in-buffer. --- lisp/org-compat.el | 2 ++ lisp/org.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 4de2f4de6..c9b4511f5 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -368,6 +368,8 @@ Counting starts at 1." 'org-export-heading-levels "9.5") (define-obsolete-function-alias 'org-export-numbered-headline-p 'org-export-numbered-heading-p "9.5") +(define-obsolete-function-alias 'org-find-exact-headline-in-buffer + 'org-find-exact-heading-in-buffer "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/org.el b/lisp/org.el index 6b488c629..8a70013cb 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -13738,7 +13738,7 @@ only headings." (when (org-at-heading-p) (point-marker)))))) -(defun org-find-exact-headline-in-buffer (heading &optional buffer pos-only) +(defun org-find-exact-heading-in-buffer (heading &optional buffer pos-only) "Find node HEADING in BUFFER. Return a marker to the heading if it was found, or nil if not. If POS-ONLY is set, return just the position instead of a marker. @@ -13767,7 +13767,7 @@ When the target heading is found, return a marker to this location." (message "trying %s" file) (setq visiting (org-find-base-buffer-visiting file)) (setq buffer (or visiting (find-file-noselect file))) - (setq m (org-find-exact-headline-in-buffer + (setq m (org-find-exact-heading-in-buffer heading buffer)) (when (and (not m) (not visiting)) (kill-buffer buffer)) (and m (throw 'found m)))))) -- 2.33.0