On 5/12/22 09:55, Max Nikulin wrote:

+    (unless (file-exists-p file)
+      (error "File to tangle does not exist: %s" file))
+    (when (file-newer-than-file-p file tangled-file)
       (org-babel-tangle-file file ...

file-newer-than-file-p succeeds only if FILE exists, so in that case it'd be a bit more efficient to avoid testing FILE's existence again, e.g.:

   (cond
     ((file-newer-than-file-p file tangled-file)
      (org-bable-tangle-file file ...))
     ((not (file-exists-p file))
      (error "File to tangle does not exist: %s" file)))

Reply via email to