Bug: Failure to Tangle Source Block without Header [8.2.5h (8.2.5h-30-gdd810b-elpa @ /Users/sean/Dropbox/.emacs.d/elpa/org-20140303/)]

[Sean Allred <seallred@smcm.edu>]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

With the following file:

#+BEGIN_SRC org
  ,#+BEGIN_SRC sh :tangle "test.sh"
  ./test
  ,#+END_SRC
  ,* header
#+END_SRC

calling `org-babel-tangle` fails with stack trace:

  string-match("..." nil)
  org-store-link(nil)
  org-babel-tangle-single-block(1)
  org-babel-tangle-collect-blocks(nil nil)
  org-babel-tangle(nil)
  call-interactively(org-babel-tangle nil nil)

The problem is fixable by adding a dummy heading that `org-babel-tangle`
can give an ID to.  (Note my `org-id-link-to-org-use-id` is set to `t`.)

I'm unsure on what correct behavior here would be; it seems the variable
must be honored in any case, so perhaps it would be best to give a
better error message along the lines of 'cannot give identification to a
null heading' or somesuch.

All the best,
Sean

Emacs  : GNU Emacs 24.3.1 (x86_64-apple-darwin, NS apple-appkit-1038.36)
 of 2013-03-13 on bob.porkrind.org
Package: Org-mode version 8.2.5h (8.2.5h-30-gdd810b-elpa @ /Users/sean/Dropbox/.emacs.d/elpa/org-20140303/)

current state:
==============
(setq
 org-export-preprocess-final-hook '((lambda nil (replace-string " --\n" " -- \n")))
 org-tab-first-hook '(org-hide-block-toggle-maybe org-src-native-tab-command-maybe
		      org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
 org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook)
 org-occur-hook '(org-first-headline-recenter)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-html-format-drawer-function '(lambda (name contents) contents)
 org-latex-format-inlinetask-function 'ignore
 org-confirm-shell-link-function 'yes-or-no-p
 org-id-link-to-org-use-id t
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-default-notes-file "~/Dropbox/org/notes.org"
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-latex-format-drawer-function '(lambda (name contents) contents)
 org-from-is-user-regexp "\\<Sean Allred\\>"
 org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-mode-hook '(#[nil "\300\301\302\303\304$\207"
		   [org-add-hook change-major-mode-hook org-show-block-all append local] 5]
		 #[nil "\300\301\302\303\304$\207"
		   [org-add-hook change-major-mode-hook org-babel-show-result-all append local] 5]
		 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-ascii-format-drawer-function '(lambda (name contents width) contents)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe)
 org-directory "~/Dropbox/org"
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
		  org-cycle-hide-inline-tasks org-cycle-show-empty-lines
		  org-optimize-window-after-visibility-change)
 org-babel-tangle-lang-exts '(("perl" . "pl") ("ruby" . "rb") ("python" . "py")
			      ("emacs-lisp" . "el"))
 org-confirm-elisp-link-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-html-format-headline-function 'ignore
 org-structure-template-alist '(("nt"
				 "#+name: ?\n#+begin_src emacs-lisp :tangle \"\"\n\n#+end_src")
				("n" "#+name: ?\n#+begin_src \n\n#+end_src")
				("es" "#+begin_src emacs-lisp\n?\n#+end_src")
				("esf" "#+begin_src emacs-lisp :tangle %file\n?\n#+end_src")
				("s" "#+BEGIN_SRC ?\n\n#+END_SRC" "<src lang=\"?\">\n\n</src>")
				("e" "#+BEGIN_EXAMPLE\n?\n#+END_EXAMPLE"
				 "<example>\n?\n</example>")
				("q" "#+BEGIN_QUOTE\n?\n#+END_QUOTE" "<quote>\n?\n</quote>")
				("v" "#+BEGIN_VERSE\n?\n#+END_VERSE" "<verse>\n?\n</verse>")
				("V" "#+BEGIN_VERBATIM\n?\n#+END_VERBATIM"
				 "<verbatim>\n?\n</verbatim>")
				("c" "#+BEGIN_CENTER\n?\n#+END_CENTER" "<center>\n?\n</center>")
				("l" "#+BEGIN_LaTeX\n?\n#+END_LaTeX"
				 "<literal style=\"latex\">\n?\n</literal>")
				("L" "#+LaTeX: " "<literal style=\"latex\">?</literal>")
				("h" "#+BEGIN_HTML\n?\n#+END_HTML"
				 "<literal style=\"html\">\n?\n</literal>")
				("H" "#+HTML: " "<literal style=\"html\">?</literal>")
				("a" "#+BEGIN_ASCII\n?\n#+END_ASCII" "") ("A" "#+ASCII: " "")
				("i" "#+INDEX: ?" "#+INDEX: ?")
				("I" "#+INCLUDE: %file ?" "<include file=%file markup=\"?\">"))
 org-babel-load-languages '((sh . t) (python . t) (R . t) (ruby . t) (perl . t))
 org-html-format-inlinetask-function 'ignore
 org-agenda-files "/Users/sean/Dropbox/.emacs.d/org-agenda-files.list"
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-publish-project-alist '(("blog" :base-directory "~/github/octopress/source/org_posts/"
			      :base-extension "org" :publishing-directory
			      "~/github/octopress/source/_posts/" :sub-superscript "" :recursive
			      t :publishing-function org-html-publish-to-html :headline-levels 4
			      :html-extension "markdown" :body-only t)
			     )
 )