Hi Seb,
The `org-babel-named-data-regexp-for-name' function is called by
ob-ref.el which *does* require ob.el. I'm not sure why this require
isn't being run on your system.
Could you try a make clean and then restarting Emacs and see if the
problem was caused by old inconsistent .elc files?
Thanks,
"Sebastien Vauban" <wxhgmqzgw...@spammotel.com> writes:
> Hello,
>
> When exporting a document containing calls to code blocks located in my LOB
> (here: `vc-indicator'), I have -- with latest Org version -- a new problem (I
> mean, it wasn't there a couple of days ago):
>
> Debugger entered--Lisp error: (void-function
> org-babel-named-data-regexp-for-name)
>
> It seems to me that there is a missing (require 'ob) in org-export (?).
>
> Loading manually `ob.el' does solve that particular problem.
>
> Best regards,
> Seb
>
> #+begin_src text
> Debugger entered--Lisp error: (void-function
> org-babel-named-data-regexp-for-name)
> (org-babel-named-data-regexp-for-name ref)
> (let ((src-rx (org-babel-named-src-block-regexp-for-name ref)) (res-rx
> (org-babel-named-data-regexp-for-name ref))) (or (re-search-forward src-rx
> nil t) (re-search-forward res-rx nil t) (setq id
> (org-babel-ref-goto-headline-id ref)) (setq lob-info (cdr (assoc (intern ref)
> org-babel-library-of-babel)))))
> (if (let ((src-rx (org-babel-named-src-block-regexp-for-name ref)) (res-rx
> (org-babel-named-data-regexp-for-name ref))) (or (re-search-forward src-rx
> nil t) (re-search-forward res-rx nil t) (setq id
> (org-babel-ref-goto-headline-id ref)) (setq lob-info (cdr (assoc (intern ref)
> org-babel-library-of-babel))))) (unless (or lob-info id) (goto-char
> (match-beginning 0))) (error "reference '%s' not found in this buffer" ref))
> (save-restriction (widen) (goto-char (point-min)) (if (let ((src-rx
> (org-babel-named-src-block-regexp-for-name ref)) (res-rx
> (org-babel-named-data-regexp-for-name ref))) (or (re-search-forward src-rx
> nil t) (re-search-forward res-rx nil t) (setq id
> (org-babel-ref-goto-headline-id ref)) (setq lob-info (cdr (assoc (intern ref)
> org-babel-library-of-babel))))) (unless (or lob-info id) (goto-char
> (match-beginning 0))) (error "reference '%s' not found in this buffer" ref))
> (cond (lob-info (setq type (quote lob))) (id (setq type (quote id))) ((and
> (looking-at org-babel-src-name-regexp) (save-excursion (forward-line 1) (or
> (looking-at org-babel-src-block-regexp) (looking-at
> org-babel-multi-line-header-regexp)))) (setq type (quote source-block))) (t
> (while (not (setq type (org-babel-ref-at-ref-p))) (forward-line 1)
> (beginning-of-line) (if (or (= (point) (point-min)) (= (point) (point-max)))
> (error "reference not found"))))) (let ((params (append args (quote
> ((:results . "silent")))))) (setq result (case type (results-line
> (org-babel-read-result)) (table (org-babel-read-table)) (list
> (org-babel-read-list)) (file (org-babel-read-link)) (source-block
> (org-babel-execute-src-block nil nil (if org-babel-update-intermediate nil
> params))) (lob (org-babel-execute-src-block nil lob-info params)) (id
> (org-babel-ref-headline-body))))) (if (symbolp result) (format "%S" result)
> (if (and index (listp result)) (org-babel-ref-index-list index result)
> result)))
> (let ((case-fold-search t) type args new-refere new-header-args
> new-referent result lob-info split-file split-ref index index-row index-col
> id) (when (and (string-match "\\[\\([^\\[]+\\)\\]$" ref) (let ((str
> (substring ref 0 (match-beginning 0)))) (= (org-count 40 str) (org-count 41
> str)))) (setq index (match-string 1 ref)) (setq ref (substring ref 0
> (match-beginning 0)))) (when (string-match
> "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" ref) (setq new-refere
> (match-string 1 ref)) (setq new-header-args (match-string 3 ref)) (setq
> new-referent (match-string 5 ref)) (when (> (length new-refere) 0) (when (>
> (length new-referent) 0) (setq args (mapcar (lambda (ref) (cons :var ref))
> (org-babel-ref-split-args new-referent)))) (when (> (length new-header-args)
> 0) (setq args (append (org-babel-parse-header-arguments new-header-args)
> args))) (setq ref new-refere))) (when (string-match "^\\(.+\\):\\(.+\\)$"
> ref) (setq split-file (match-string 1 ref)) (setq split-ref (match-string 2
> ref)) (find-file split-file) (setq ref split-ref)) (save-restriction (widen)
> (goto-char (point-min)) (if (let ((src-rx
> (org-babel-named-src-block-regexp-for-name ref)) (res-rx
> (org-babel-named-data-regexp-for-name ref))) (or (re-search-forward src-rx
> nil t) (re-search-forward res-rx nil t) (setq id
> (org-babel-ref-goto-headline-id ref)) (setq lob-info (cdr (assoc ...
> org-babel-library-of-babel))))) (unless (or lob-info id) (goto-char
> (match-beginning 0))) (error "reference '%s' not found in this buffer" ref))
> (cond (lob-info (setq type (quote lob))) (id (setq type (quote id))) ((and
> (looking-at org-babel-src-name-regexp) (save-excursion (forward-line 1) (or
> (looking-at org-babel-src-block-regexp) (looking-at
> org-babel-multi-line-header-regexp)))) (setq type (quote source-block))) (t
> (while (not (setq type (org-babel-ref-at-ref-p))) (forward-line 1)
> (beginning-of-line) (if (or (= ... ...) (= ... ...)) (error "reference not
> found"))))) (let ((params (append args (quote (...))))) (setq result (case
> type (results-line (org-babel-read-result)) (table (org-babel-read-table))
> (list (org-babel-read-list)) (file (org-babel-read-link)) (source-block
> (org-babel-execute-src-block nil nil (if org-babel-update-intermediate nil
> params))) (lob (org-babel-execute-src-block nil lob-info params)) (id
> (org-babel-ref-headline-body))))) (if (symbolp result) (format "%S" result)
> (if (and index (listp result)) (org-babel-ref-index-list index result)
> result))))
> (save-excursion (let ((case-fold-search t) type args new-refere
> new-header-args new-referent result lob-info split-file split-ref index
> index-row index-col id) (when (and (string-match "\\[\\([^\\[]+\\)\\]$" ref)
> (let ((str (substring ref 0 ...))) (= (org-count 40 str) (org-count 41
> str)))) (setq index (match-string 1 ref)) (setq ref (substring ref 0
> (match-beginning 0)))) (when (string-match
> "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" ref) (setq new-refere
> (match-string 1 ref)) (setq new-header-args (match-string 3 ref)) (setq
> new-referent (match-string 5 ref)) (when (> (length new-refere) 0) (when (>
> (length new-referent) 0) (setq args (mapcar (lambda ... ...)
> (org-babel-ref-split-args new-referent)))) (when (> (length new-header-args)
> 0) (setq args (append (org-babel-parse-header-arguments new-header-args)
> args))) (setq ref new-refere))) (when (string-match "^\\(.+\\):\\(.+\\)$"
> ref) (setq split-file (match-string 1 ref)) (setq split-ref (match-string 2
> ref)) (find-file split-file) (setq ref split-ref)) (save-restriction (widen)
> (goto-char (point-min)) (if (let ((src-rx
> (org-babel-named-src-block-regexp-for-name ref)) (res-rx
> (org-babel-named-data-regexp-for-name ref))) (or (re-search-forward src-rx
> nil t) (re-search-forward res-rx nil t) (setq id
> (org-babel-ref-goto-headline-id ref)) (setq lob-info (cdr ...)))) (unless (or
> lob-info id) (goto-char (match-beginning 0))) (error "reference '%s' not
> found in this buffer" ref)) (cond (lob-info (setq type (quote lob))) (id
> (setq type (quote id))) ((and (looking-at org-babel-src-name-regexp)
> (save-excursion (forward-line 1) (or ... ...))) (setq type (quote
> source-block))) (t (while (not (setq type ...)) (forward-line 1)
> (beginning-of-line) (if (or ... ...) (error "reference not found"))))) (let
> ((params (append args (quote ...)))) (setq result (case type (results-line
> (org-babel-read-result)) (table (org-babel-read-table)) (list
> (org-babel-read-list)) (file (org-babel-read-link)) (source-block
> (org-babel-execute-src-block nil nil ...)) (lob (org-babel-execute-src-block
> nil lob-info params)) (id (org-babel-ref-headline-body))))) (if (symbolp
> result) (format "%S" result) (if (and index (listp result))
> (org-babel-ref-index-list index result) result)))))
> (progn (save-excursion (let ((case-fold-search t) type args new-refere
> new-header-args new-referent result lob-info split-file split-ref index
> index-row index-col id) (when (and (string-match "\\[\\([^\\[]+\\)\\]$" ref)
> (let ((str ...)) (= (org-count 40 str) (org-count 41 str)))) (setq index
> (match-string 1 ref)) (setq ref (substring ref 0 (match-beginning 0)))) (when
> (string-match "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" ref) (setq
> new-refere (match-string 1 ref)) (setq new-header-args (match-string 3 ref))
> (setq new-referent (match-string 5 ref)) (when (> (length new-refere) 0)
> (when (> (length new-referent) 0) (setq args (mapcar ... ...))) (when (>
> (length new-header-args) 0) (setq args (append ... args))) (setq ref
> new-refere))) (when (string-match "^\\(.+\\):\\(.+\\)$" ref) (setq split-file
> (match-string 1 ref)) (setq split-ref (match-string 2 ref)) (find-file
> split-file) (setq ref split-ref)) (save-restriction (widen) (goto-char
> (point-min)) (if (let ((src-rx ...) (res-rx ...)) (or (re-search-forward
> src-rx nil t) (re-search-forward res-rx nil t) (setq id ...) (setq lob-info
> ...))) (unless (or lob-info id) (goto-char (match-beginning 0))) (error
> "reference '%s' not found in this buffer" ref)) (cond (lob-info (setq type
> (quote lob))) (id (setq type (quote id))) ((and (looking-at
> org-babel-src-name-regexp) (save-excursion ... ...)) (setq type (quote
> source-block))) (t (while (not ...) (forward-line 1) (beginning-of-line) (if
> ... ...)))) (let ((params (append args ...))) (setq result (case type
> (results-line ...) (table ...) (list ...) (file ...) (source-block ...) (lob
> ...) (id ...)))) (if (symbolp result) (format "%S" result) (if (and index
> (listp result)) (org-babel-ref-index-list index result) result))))))
> (unwind-protect (progn (save-excursion (let ((case-fold-search t) type args
> new-refere new-header-args new-referent result lob-info split-file split-ref
> index index-row index-col id) (when (and (string-match "\\[\\([^\\[]+\\)\\]$"
> ref) (let (...) (= ... ...))) (setq index (match-string 1 ref)) (setq ref
> (substring ref 0 (match-beginning 0)))) (when (string-match
> "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" ref) (setq new-refere
> (match-string 1 ref)) (setq new-header-args (match-string 3 ref)) (setq
> new-referent (match-string 5 ref)) (when (> (length new-refere) 0) (when (>
> ... 0) (setq args ...)) (when (> ... 0) (setq args ...)) (setq ref
> new-refere))) (when (string-match "^\\(.+\\):\\(.+\\)$" ref) (setq split-file
> (match-string 1 ref)) (setq split-ref (match-string 2 ref)) (find-file
> split-file) (setq ref split-ref)) (save-restriction (widen) (goto-char
> (point-min)) (if (let (... ...) (or ... ... ... ...)) (unless (or lob-info
> id) (goto-char ...)) (error "reference '%s' not found in this buffer" ref))
> (cond (lob-info (setq type ...)) (id (setq type ...)) ((and ... ...) (setq
> type ...)) (t (while ... ... ... ...))) (let ((params ...)) (setq result
> (case type ... ... ... ... ... ... ...))) (if (symbolp result) (format "%S"
> result) (if (and index ...) (org-babel-ref-index-list index result)
> result)))))) (set-window-configuration wconfig))
> (let ((wconfig (current-window-configuration))) (unwind-protect (progn
> (save-excursion (let ((case-fold-search t) type args new-refere
> new-header-args new-referent result lob-info split-file split-ref index
> index-row index-col id) (when (and (string-match "\\[\\([^\\[]+\\)\\]$" ref)
> (let ... ...)) (setq index (match-string 1 ref)) (setq ref (substring ref 0
> ...))) (when (string-match
> "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" ref) (setq new-refere
> (match-string 1 ref)) (setq new-header-args (match-string 3 ref)) (setq
> new-referent (match-string 5 ref)) (when (> ... 0) (when ... ...) (when ...
> ...) (setq ref new-refere))) (when (string-match "^\\(.+\\):\\(.+\\)$" ref)
> (setq split-file (match-string 1 ref)) (setq split-ref (match-string 2 ref))
> (find-file split-file) (setq ref split-ref)) (save-restriction (widen)
> (goto-char (point-min)) (if (let ... ...) (unless ... ...) (error "reference
> '%s' not found in this buffer" ref)) (cond (lob-info ...) (id ...) (... ...)
> (t ...)) (let (...) (setq result ...)) (if (symbolp result) (format "%S"
> result) (if ... ... result)))))) (set-window-configuration wconfig)))
> (save-window-excursion (save-excursion (let ((case-fold-search t) type args
> new-refere new-header-args new-referent result lob-info split-file split-ref
> index index-row index-col id) (when (and (string-match "\\[\\([^\\[]+\\)\\]$"
> ref) (let ((str ...)) (= (org-count 40 str) (org-count 41 str)))) (setq index
> (match-string 1 ref)) (setq ref (substring ref 0 (match-beginning 0)))) (when
> (string-match "^\\(.+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\(.*\\))$" ref) (setq
> new-refere (match-string 1 ref)) (setq new-header-args (match-string 3 ref))
> (setq new-referent (match-string 5 ref)) (when (> (length new-refere) 0)
> (when (> (length new-referent) 0) (setq args (mapcar ... ...))) (when (>
> (length new-header-args) 0) (setq args (append ... args))) (setq ref
> new-refere))) (when (string-match "^\\(.+\\):\\(.+\\)$" ref) (setq split-file
> (match-string 1 ref)) (setq split-ref (match-string 2 ref)) (find-file
> split-file) (setq ref split-ref)) (save-restriction (widen) (goto-char
> (point-min)) (if (let ((src-rx ...) (res-rx ...)) (or (re-search-forward
> src-rx nil t) (re-search-forward res-rx nil t) (setq id ...) (setq lob-info
> ...))) (unless (or lob-info id) (goto-char (match-beginning 0))) (error
> "reference '%s' not found in this buffer" ref)) (cond (lob-info (setq type
> (quote lob))) (id (setq type (quote id))) ((and (looking-at
> org-babel-src-name-regexp) (save-excursion ... ...)) (setq type (quote
> source-block))) (t (while (not ...) (forward-line 1) (beginning-of-line) (if
> ... ...)))) (let ((params (append args ...))) (setq result (case type
> (results-line ...) (table ...) (list ...) (file ...) (source-block ...) (lob
> ...) (id ...)))) (if (symbolp result) (format "%S" result) (if (and index
> (listp result)) (org-babel-ref-index-list index result) result))))))
> org-babel-ref-resolve("vc-indicator()")
> #+end_src
--
Eric Schulte
http://cs.unm.edu/~eschulte/
