[O] [BUG] :header-args+:

[Thorsten Jolitz]

Hi List, 

doing C-c C-c on the first src_block

,----
| * A
| ** B
|     :PROPERTIES:
|     :header-args: :var name=dblock-name
|     :header-args+: :var prms=dblock-params
|     :END:
| 
| #+begin_src emacs-lisp 
|   (format "\n#+begin: %s %s\n#+end:\n" name prms)
| #+end_src
| 
| #+name: dblock-params
| #+begin_src emacs-lisp
| foo
| #+end_src
| 
| #+name: dblock-name
| #+begin_src emacs-lisp
| bar
| #+end_src
`----

I get 

,----
| tramp-completion-file-name-handler: Variable binding depth exceeds
| max-specpdl-size
`----


and with Debug on Error enabled globally the following backtrace:

,----
| Debugger entered--Lisp error: (error "Variable binding depth exceeds
| max-specpdl-size")
|   org-entry-get(nil "cache" nil nil)
|   byte-code("\304\305^H\305
|   address@hidden@eb\210^K`\305\223\210\310\311\n\"address@hidden@\310\31\
| 1\305\"address@hidden@" [property literal-nil tmp
| org-entry-property-inherited-from org-entry-get nil (org-back-to-heading
| t) ((error)) throw \
| ex (org-up-heading-safe) ((error))] 5)
|   org-entry-get-with-inheritance("cache" nil)
|   org-entry-get(292 "cache" t)
|   #[(header-arg) "address@hidden    !B\207"
|   [header-arg val org-entry-get t intern ":" org-babel-read] 4]("cach\
| e")
|   mapcar(#[(header-arg) "address@hidden
|   !B\207" [header-arg val org-entry-get t intern ":" org-babel-read] \
| 4] ("cache" "cmdline" "colnames" "comments" "dir" "eval" "exports"
| "epilogue" "file" "file-desc" "hlines" "mkdirp" "no-expand" "noeval"
| "no\
| web" "noweb-ref" "noweb-sep" "padline" "post" "prologue" "results"
| "rownames" "sep" "session" "shebang" "tangle" "tangle-mode" "var"
| "wrap"\
| ))
|   org-babel-params-from-properties("emacs-lisp")
|   org-babel-parse-src-block-match()
|   org-babel-get-src-block-info()
|   org-babel-execute-src-block(nil nil ((:results . "silent")))
|   org-babel-ref-resolve("dblock-name")
|   org-babel-ref-parse("name=dblock-name")
|   #[(el) "^HA:\203      address@hidden" [el org-babel-ref-parse]
|   2]((:var . "name=dblock-name"))
|   mapcar(#[(el) "^HA:\203       address@hidden" [el
|   org-babel-ref-parse] 2] ((:var . "name=dblock-name") (:var
|   . "prms=dblock-params\
| ")))
|   org-babel-process-params(((:comments . "") (:shebang . "") (:cache
|   . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports
|   . "\
| code") (:results . "replace") (:var . "name=dblock-name") (:var
| . "prms=dblock-params") (:hlines . "no") (:session . "none")))
|   org-babel-get-src-block-info()
|   org-babel-execute-src-block(nil nil ((:results . "silent")))
|   org-babel-ref-resolve("dblock-name")
|   org-babel-ref-parse("name=dblock-name")
|   #[(el) "^HA:\203      address@hidden" [el org-babel-ref-parse]
|   2]((:var . "name=dblock-name"))
|   mapcar(#[(el) "^HA:\203       address@hidden" [el
|   org-babel-ref-parse] 2] ((:var . "name=dblock-name") (:var
|   . "prms=dblock-params\
| ")))
|   org-babel-process-params(((:comments . "") (:shebang . "") (:cache
|   . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports
|   . "\
| code") (:results . "replace") (:var . "name=dblock-name") (:var
| . "prms=dblock-params") (:hlines . "no") (:session . "none")))
|   org-babel-get-src-block-info()
|   org-babel-execute-src-block(nil nil ((:results . "silent")))
|   org-babel-ref-resolve("dblock-name")
|   org-babel-ref-parse("name=dblock-name")
|   #[(el) "^HA:\203      address@hidden" [el org-babel-ref-parse]
|   2]((:var . "name=dblock-name"))
|   mapcar(#[(el) "^HA:\203       address@hidden" [el
|   org-babel-ref-parse] 2] ((:var . "name=dblock-name") (:var
|   . "prms=dblock-params\
| ")))
|   org-babel-process-params(((:comments . "") (:shebang . "") (:cache
|   . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports
|   . "\
| code") (:results . "replace") (:var . "name=dblock-name") (:var
| . "prms=dblock-params") (:hlines . "no") (:session . "none")))
|   org-babel-get-src-block-info()
|   org-babel-execute-src-block(nil nil ((:results . "silent")))
`----


PS

#+begin_src emacs-lisp
 (call-interactively 'org-version)
#+end_src

#+results: 
: Org-mode version beta_8.3 (beta_8.3-21-g815c21 @
/usr/share/emacs/24.3/lisp/org/lisp/)

-- 
cheers,
Thorsten