Hi Jonathan, Does it help if you change "#+src_name" to "#+source:"?
Tom Jonathan Arkell <jonath...@criticalmass.com> writes: > Hi Everyone > > I am having some problems with using org-babel-tangle. Each time I try to > use it, I get the error '(args-out-of-range "" -1 0)'. I've simplified > the source code chunk I want to tangle to this: > > #+src_name stack-el > #+begin_src emacs-lisp :tangle stack.el > ;;; stack.el -- custom elisp for the stack development > #+end_src > > > I am on org-mode 7.7, on Mac OS 10.6.8, Emacs for Mac Os (23.2.1) > > I am sure I am doing something totally wrong and/or silly. Can someone > help me out? > > Thanks! > > > Here is a full backtrace: > > Debugger entered--Lisp error: (args-out-of-range "" -1 0) > org-babel-parse-src-block-match() > org-babel-get-src-block-info(light) > (let* ((start-line ...) (file ...) (info ...) (src-lang ...)) (unless > (string= ... "no") (unless ... ...))) > (let ((full-block ...) (beg-block ...) (end-block ...) (lang ...) > (beg-lang ...) (end-lang ...) (switches ...) (beg-switches ...) > (end-switches ...) (header-args ...) (beg-header-args ...) > (end-header-args ...) (body ...) (beg-body ...) (end-body ...)) ((lambda > ... ...) (replace-regexp-in-string "[ ]" "-" ...)) (let* (... ... ... > ...) (unless ... ...)) (goto-char end-block)) > (while (re-search-forward org-babel-src-block-regexp nil t) (goto-char > (match-beginning 0)) (let (... ... ... ... ... ... ... ... ... ... ... ... > ... ... ...) (... ...) (let* ... ...) (goto-char end-block))) > (save-window-excursion (when file (find-file file)) (setq to-be-removed > (current-buffer)) (goto-char (point-min)) (while (re-search-forward > org-babel-src-block-regexp nil t) (goto-char ...) (let ... ... ... ...))) > (let* ((file ...) (visited-p ...) (point ...) to-be-removed) > (save-window-excursion (when file ...) (setq to-be-removed ...) (goto-char > ...) (while ... ... ...)) (unless visited-p (kill-buffer to-be-removed)) > (goto-char point)) > (org-babel-map-src-blocks (buffer-file-name) ((lambda ... ...) > (replace-regexp-in-string "[ ]" "-" ...)) (let* (... ... ... ...) (unless > ... ...))) > (let ((block-counter 1) (current-heading "") blocks) > (org-babel-map-src-blocks (buffer-file-name) (... ...) (let* ... ...)) > (setq blocks (mapcar ... blocks)) blocks) > org-babel-tangle-collect-blocks(nil) > (mapc (lambda (by-lang) (let* ... ...)) (org-babel-tangle-collect-blocks > lang)) > (let ((block-counter 0) (org-babel-default-header-args ...) > path-collector) (mapc (lambda ... ...) (org-babel-tangle-collect-blocks > lang)) (message "tangled %d code block%s from %s" block-counter (if ... "" > "s") (file-name-nondirectory ...)) (when org-babel-post-tangle-hook (mapc > ... path-collector)) path-collector) > (save-excursion (let (... ... path-collector) (mapc ... ...) (message > "tangled %d code block%s from %s" block-counter ... ...) (when > org-babel-post-tangle-hook ...) path-collector)) > (save-restriction (when only-this-block (unless ... ...) (unless > target-file ...) (narrow-to-region ... ...)) (save-excursion (let ... ... > ... ... path-collector))) > org-babel-tangle(nil) > call-interactively(org-babel-tangle nil nil) > > > > > > The information contained in this message is confidential. It is intended to > be read only by the individual or entity named above or their designee. If > the reader of this message is not the intended recipient, you are hereby > notified that any distribution of this message, in any form, is strictly > prohibited. If you have received this message in error, please immediately > notify the sender and delete or destroy any copy of this message. > > -- Thomas S. Dye http://www.tsdye.com
