emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org 63ef7b9242 4/5: org-lint-wrong-include-link-paramet


From: ELPA Syncer
Subject: [elpa] externals/org 63ef7b9242 4/5: org-lint-wrong-include-link-parameter: Ignore narrowing when verifying
Date: Fri, 15 Dec 2023 09:58:28 -0500 (EST)

branch: externals/org
commit 63ef7b92426b5636f912b4f53ab4503d106f6c50
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-lint-wrong-include-link-parameter: Ignore narrowing when verifying
    
    It is implied that we ignore narrowing when searching for included
    part .  But `org-link-search' does not.  Widen the included before
    around its call.
---
 lisp/org-lint.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/lisp/org-lint.el b/lisp/org-lint.el
index 3f49ca75f6..37a3dae2ef 100644
--- a/lisp/org-lint.el
+++ b/lisp/org-lint.el
@@ -738,13 +738,14 @@ in description"
                          (org-link-search-must-match-exact-headline t))
                     (unwind-protect
                         (with-current-buffer buffer
-                          (when (and search
-                                     (not (ignore-errors
-                                            (org-link-search search nil t))))
-                            (list (org-element-post-affiliated k)
-                                  (format
-                                   "Invalid search part \"%s\" in INCLUDE 
keyword"
-                                   search))))
+                          (org-with-wide-buffer
+                           (when (and search
+                                      (not (ignore-errors
+                                           (org-link-search search nil t))))
+                             (list (org-element-post-affiliated k)
+                                   (format
+                                    "Invalid search part \"%s\" in INCLUDE 
keyword"
+                                    search)))))
                       (unless visiting (kill-buffer buffer)))))))))))))
 
 (defun org-lint-obsolete-include-markup (ast)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]