Re: Bug: Failure in `org-store-link'

[Eric Schulte <schulte.eric@gmail.com>]

This is not a tangling bug, this is actually a bug in org-store-link,
which throws an error when called in an Org-mode file outside of any
heading.

Thanks for pointing this out.

Best,

Sean Allred <seallred@smcm.edu> writes:

> 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)
> 			     )
>  )
>

-- 
Eric Schulte
https://cs.unm.edu/~eschulte
PGP: 0x614CA05D