Simplify (org-auto-tangle-tangle-if-needed):

Simplify (org-auto-tangle-tangle-if-needed): and make it work in Org-mode derivatives. Patch sent by Stefan Monnier <[email protected]> on 2022-07-13
yilkalargaw · Jul 15, 2022 · 5a991c0 · 5a991c0
1 parent c32e28c
commit 5a991c0
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/org-auto-tangle.el b/org-auto-tangle.el
@@ -104,11 +104,10 @@ Tangle will happen depending on the value of
 `#+auto_tangle' keyword in the current buffer. If present,
 `#+auto_tangle' always overrides `org-auto-tangle-default'."
   (let ((auto-tangle-kw (org-auto-tangle-find-value (current-buffer))))
-    (when (and (eq major-mode 'org-mode)
-               (or (and auto-tangle-kw
-                        (not (string= auto-tangle-kw "nil")))
-                   (and (not auto-tangle-kw)
-                        org-auto-tangle-default)))
+    (when (and (derived-mode-p 'org-mode)
+               (if auto-tangle-kw
+                   (not (string= auto-tangle-kw "nil"))
+                 org-auto-tangle-default))
       (org-auto-tangle-async (buffer-file-name)))))
 
 ;;;###autoload