Further fix to the property kwd and begin_src :tangle inheritance

Author: kaushalmodi

src/ntangle.nim

@@ -132,6 +132,13 @@ proc parseTangleHeaderProperties(hdrArgs: seq[string], lnum: int, lang: string,
 
   if fileHeaderArgs.hasKey(outfile):
     hArgs = fileHeaderArgs[outfile]
+    # If :tangle is not specified on a begin_src block, inherit that
+    # value if possible.
+    if onBeginSrc and hArgs.tangle.isNone():
+      if headerArgsDefaults.hasKey((orgLevel, lang)):
+        hArgs.tangle = headerArgsDefaults[(orgLevel, lang)].tangle
+      else:
+        hArgs.tangle = headerArgsDefaults[(orgLevel, "")].tangle
     dbg "Line {lnum} - Using fileHeaderArgs[{outfile}], now hArgs = {hArgs}"
   elif headerArgsDefaults.hasKey((orgLevel, lang)):
     hArgs = headerArgsDefaults[(orgLevel, lang)]

tests/global_tangle/header_arg_inheritance2.el

@@ -0,0 +1,3 @@
+(message "hello 1")
+
+(message "hello 2")

tests/global_tangle/header_arg_inheritance2.org

@@ -0,0 +1,9 @@
+#+property: header-args :tangle yes
+
+#+begin_src emacs-lisp
+(message "hello 1")
+#+end_src
+
+#+begin_src emacs-lisp
+(message "hello 2")
+#+end_src