[BUG] org-babel-load-file, org-babel-tangle-use-relative-file-links and :tangle header [9.6.11 (release_9.6.11 @ /opt/emacs/share/emacs/30.0.50/lisp/org/)]

[TAKAHASHI Yoshio]

Hi emacs-orgmode developers,

When org-babel-tangle-use-relative-file-links is t (default),
org-babel-load-file ignores any source block that does not have `:tangle
"yes"' or `:tangle filepath' header.

Even if org-babel-default-header-args is changed like
  (setq org-babel-default-header-args
        (cons '(:tangle . "yes")
              (assq-delete-all :noweb org-babel-default-header-args)))
, the result is same.

When org-babel-tangle-use-relative-file-links is set to nil, it extracts
blocks have not :tangle header, in addition to have `:tangle "yes"' or
`:tangle filepath', and this is what I expect.

It may be too early to remove direcoty part from buffer file name in
org-babel-tangle-single-block.


test org-mode file:
#  --start--
#+begin_src emacs-lisp
  (setq a 1)
#+end_src

#+begin_src emacs-lisp :tangle (if t "yes" "no")
  (setq b 2)
#+end_src

#+begin_src emacs-lisp
  (setq c 3)
#+end_src

#+begin_src emacs-lisp :tangle "yes"
  (setq d 4)
#+end_src

#+begin_src emacs-lisp
  (setq e 5)
#+end_src
#  --end--

When invoke `(org-babel-load-file "ABOVEFILE.org")' with
org-babel-tangle-use-relative-file-links is t, the result .el file is:
#  --start--
(setq b 2)

(setq d 4)
#  --end--

With org-babel-tangle-use-relative-file-links is nil, the result is (as 
expected):
#  --start--
(setq a 1)

(setq b 2)

(setq c 3)

(setq d 4)

(setq e 5)
#  --end--


Emacs  : GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.33, 
cairo version 1.16.0)
 of 2023-11-19
Package: Org mode version 9.6.11 (release_9.6.11 @ 
/opt/emacs/share/emacs/30.0.50/lisp/org/)

-- 
TAKAHASHI Yoshio <yfb02119@nifty.com>