diff --git a/lisp/org-lint.el b/lisp/org-lint.el index 55dab34c4..95cbb8dc2 100644 --- a/lisp/org-lint.el +++ b/lisp/org-lint.el @@ -574,12 +574,13 @@ Use :header-args: instead" (lambda (k) (when (equal (org-element-property :key k) "SETUPFILE") (let ((file (org-unbracket-string - "\"" "\"" - (org-element-property :value k)))) - (and (not (file-remote-p file)) + "\"" "\"" + (org-element-property :value k)))) + (and (not (org-file-url-p file)) + (not (file-remote-p file)) (not (file-exists-p file)) (list (org-element-property :begin k) - (format "Non-existent setup file \"%s\"" file)))))))) + (format "Non-existent setup file %S" file)))))))) (defun org-lint-wrong-include-link-parameter (ast) (org-element-map ast 'keyword diff --git a/testing/lisp/test-org-lint.el b/testing/lisp/test-org-lint.el index b3ebe8c7e..d96808a92 100644 --- a/testing/lisp/test-org-lint.el +++ b/testing/lisp/test-org-lint.el @@ -240,6 +240,9 @@ This is not a node property "Test `org-lint-non-existent-setupfile-parameter' checker." (should (org-test-with-temp-text "#+setupfile: Idonotexist.org" + (org-lint '(non-existent-setupfile-parameter)))) + (should-not + (org-test-with-temp-text "#+setupfile: https://I.do/not.exist.org" (org-lint '(non-existent-setupfile-parameter))))) (ert-deftest test-org-lint/wrong-include-link-parameter ()