* [bug] Symbol's function definition is void: when-let
@ 2011-05-19 16:16 Bernd Weiss
2011-05-19 16:34 ` Nick Dokos
0 siblings, 1 reply; 4+ messages in thread
From: Bernd Weiss @ 2011-05-19 16:16 UTC (permalink / raw)
To: emacs-orgmode
Hi all,
after updating to the most recent version of org-mode, I cannot longer
export to LaTeX/PDF. It stops with "Symbol's function definition is
void: when-let", i.e.
Fontifying org-src-fontification:emacs-lisp-mode...
(regexps...............)
Symbol's function definition is void: when-let
Everything works as expected when I go back in time (e.g. three
commits), using Git's checkout HEAD^^^ . My current HEAD refers to
commit 72c154e38e526b5f8bb5f200fb31bc6fec145ba6
Please find below the output of M-x org-submit-bug-report and backtrace
(which I shortend a bit).
Thanks for your help,
Bernd
Emacs : GNU Emacs 23.3.1 (i386-mingw-nt6.1.7600)
of 2011-03-10 on 3249CTO
Package: Org-mode version 7.5 (release_7.5.285.g72c1)
current state:
==============
(setq
org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
org-export-latex-listings t
org-speed-command-hook '(org-speed-command-default-hook
org-babel-speed-command-hook)
org-agenda-custom-commands '(("c" "conferences" ((tags "CONFERENCE"))
((org-tags-match-list-sublevels nil))
((org-columns-default-format "%DATE %LOCATION")))
)
org-agenda-files
'("e:/projects/org/article/p_UnemploymentIntentionChild.org"
"e:/projects/org/lehre/2011springterm.org"
"e:/projects/org/projects/prDAAD-ipd-ma-divorce.org"
"e:/projects/org/projects/prDAAD-ma-simulation.org"
"e:/projects/publicat/book/b2012meta-analyse/doc/b2010meta-analyse.org"
"e:/projects/org/projects/prDFG-Scheidung.org"
"e:/projects/org/article/ar2010dyad.org"
"e:/projects/org/article/ar2010dr.org"
"e:/projects/org/privat.org" "e:/projects/org/work.org")
org-src-fontify-natively t
org-babel-load-languages '((emacs-lisp . t) (R . t) (python . t) (latex
. t) (dot . t) (sh . t))
org-metaup-hook '(org-babel-load-in-session-maybe)
org-after-todo-state-change-hook '(org-clock-out-if-current)
org-babel-tangle-lang-exts '(("latex" . "tex") ("python" . "py")
("emacs-lisp" . "el"))
org-edit-src-content-indentation 0
org-export-blocks-postblock-hook '(org-exp-res/src-name-cleanup)
org-export-latex-format-toc-function 'org-export-latex-format-toc-default
org-tab-first-hook '(org-hide-block-toggle-maybe
org-src-native-tab-command-maybe org-babel-hide-result-toggle-maybe)
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-confirm-shell-link-function 'yes-or-no-p
org-export-first-hook '(org-beamer-initialize-open-trackers)
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-export-latex-packages-alist '(("" "color") ("" "listings"))
org-default-notes-file "e:/projects/org//notes.org"
org-directory "e:/projects/org/"
org-babel-pre-tangle-hook '(save-buffer)
org-cycle-hook '(org-cycle-hide-archived-subtrees
org-cycle-hide-drawers org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-export-latex-classes '(("per-file-class"
"\\documentclass{article}\n [NO-DEFAULT-PACKAGES]\n
[EXTRA]"
("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" .
"\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
("article" "\\documentclass[11pt]{article}" ("\\section{%s}" .
"\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" .
"\\subparagraph*{%s}"))
("report" "\\documentclass[11pt]{report}" ("\\part{%s}" .
"\\part*{%s}")
("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" .
"\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
("book" "\\documentclass[11pt]{book}" ("\\part{%s}" . "\\part*{%s}")
("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" .
"\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
("beamer" "\\documentclass{beamer}" org-beamer-sectioning))
org-export-preprocess-before-normalizing-links-hook
'(org-remove-file-link-modifiers)
org-mode-hook '(org-mode-reftex-setup
(lambda nil
(org-add-hook (quote change-major-mode-hook) (quote
org-show-block-all) (quote append) (quote local)))
(lambda nil
(org-add-hook (quote change-major-mode-hook) (quote
org-babel-show-result-all) (quote append)
(quote local))
)
org-babel-result-hide-spec org-babel-hide-all-hashes
turn-on-org-cdlatex turn-on-auto-fill
turn-on-font-lock turn-on-visual-line-mode)
org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
org-babel-execute-safely-maybe)
org-confirm-elisp-link-function 'yes-or-no-p
org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src
org-babel-exp-inline-src-blocks))
org-occur-hook '(org-first-headline-recenter)
org-from-is-user-regexp nil
org-export-preprocess-before-selecting-backend-code-hook
'(org-beamer-select-beamer-code)
org-confirm-babel-evaluate nil
org-hierarchical-checkbox-statistics nil
org-src-tab-acts-natively t
org-export-latex-final-hook '(org-beamer-amend-header
org-beamer-fix-toc org-beamer-auto-fragile-frames
org-beamer-place-default-actions-for-lists)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-export-blocks '((src org-babel-exp-src-block nil) (comment
org-export-blocks-format-comment t)
(ditaa org-export-blocks-format-ditaa nil) (dot
org-export-blocks-format-dot nil))
)
===================== Debugger output: start =====================
Debugger entered--Lisp error: (void-function when-let)
(when-let (f (nth 3 info)) (concat " " f))
(cons "flags" (when-let (f ...) (concat " " f)))
(list (cons "lang" (nth 0 info)) (cons "flags" (when-let ... ...))
(cons "body" (nth 1 info)))
(\` (("lang" \, ...) ("flags" \, ...) ("body" \, ...)))
(org-fill-template "#+BEGIN_SRC %lang%flags\n%body\n#+END_SRC\n" (\`
(... ... ...)))
org-babel-exp-code(("R" "## make up some wide-formated data\ndfWide <-
data.frame(id = c(1, 2), \n rel.beg.1 = c(0, 0),
rel.end.1 = c(10, 25), \n rel.beg.2 = c(4, 14),
rel.end.2 = c(20, NA))\ndfWide\n" ((:colname-names) (:rowname-names)
(:result-params "replace" "output" "output" "replace") (:result-type .
output) (:comments . "") (:shebang . "") (:cache . "no") (:padline . "")
(:noweb . "no") (:tangle . "no") (:exports . "both") (:results .
"replace output") (:session) (:rowname-names) (:result-type . output)
(:result-params "output" "replace") (:padnewline . "yes") (:hlines .
"no") (:colname-names)) "" nil 0))
(cond ((member* --cl-var-- ...) (silently) (clean) "") ((member*
--cl-var-- ...) (silently) (clean) (org-babel-exp-code info)) ((member*
--cl-var-- ...) (org-babel-exp-results info type nil hash) "") ((member*
--cl-var-- ...) (org-babel-exp-results info type nil hash)
(org-babel-exp-code info)))
(let ((--cl-var-- ...)) (cond (... ... ... "") (... ... ... ...) (...
... "") (... ... ...)))
(case (intern (or ... "code")) ((quote none) (silently) (clean) "")
((quote code) (silently) (clean) (org-babel-exp-code info)) ((quote
results) (org-babel-exp-results info type nil hash) "") ((quote both)
(org-babel-exp-results info type nil hash) (org-babel-exp-code info)))
(progn (fset (quote clean) (function* ...)) (case (intern ...) (...
... ... "") (... ... ... ...) (... ... "") (... ... ...)))
(unwind-protect (progn (fset ... ...) (case ... ... ... ... ...)) (if
--cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
(let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect
(progn ... ...) (if --cl-letf-bound-- ... ...)))
(letf ((... ...)) (case (intern ...) (... ... ... "") (... ... ...
...) (... ... "") (... ... ...)))
(progn (fset (quote silently) (function* ...)) (letf (...) (case ...
... ... ... ...)))
(unwind-protect (progn (fset ... ...) (letf ... ...)) (if
--cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
(let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect
(progn ... ...) (if --cl-letf-bound-- ... ...)))
(letf ((... ...)) (letf (...) (case ... ... ... ... ...)))
(letf* ((... ...) (... ...)) (case (intern ...) (... ... ... "") (...
... ... ...) (... ... "") (... ... ...)))
(flet ((silently nil ...) (clean nil ...)) (case (intern ...) (... ...
... "") (... ... ... ...) (... ... "") (... ... ...)))
org-babel-exp-do-export(("R" "## make up some wide-formated
data\ndfWide <- data.frame(id = c(1, 2), \n
rel.beg.1 = c(0, 0), rel.end.1 = c(10, 25), \n
rel.beg.2 = c(4, 14), rel.end.2 = c(20, NA))\ndfWide\n"
((:colname-names) (:rowname-names) (:result-params "replace" "output"
"output" "replace") (:result-type . output) (:comments . "") (:shebang .
"") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no")
(:exports . "both") (:results . "replace output") (:session)
(:rowname-names) (:result-type . output) (:result-params "output"
"replace") (:padnewline . "yes") (:hlines . "no") (:colname-names)) ""
nil 0) block "d1f6d22138f41daa3dd497ac95a9d5795814d024")
(progn (when (member ... ...) (org-babel-exp-in-export-file lang ...)
(setf hash ...)) (setf (nth 1 info) (if ... ... ...))
(org-babel-exp-do-export info (quote block) hash))
(if info (progn (when ... ... ...) (setf ... ...)
(org-babel-exp-do-export info ... hash)))
(when info (when (member ... ...) (org-babel-exp-in-export-file lang
...) (setf hash ...)) (setf (nth 1 info) (if ... ... ...))
(org-babel-exp-do-export info (quote block) hash))
(let* ((info ...) (lang ...) (raw-params ...) hash) (when info (when
... ... ...) (setf ... ...) (org-babel-exp-do-export info ... hash)))
(save-excursion (goto-char (match-beginning 0)) (let* (... ... ...
hash) (when info ... ... ...)))
org-babel-exp-src-block(#("## make up some wide-formated data\ndfWide
<- data.frame(id = c(1, 2), \n rel.beg.1 = c(0, 0),
rel.end.1 = c(10, 25), \n rel.beg.2 = c(4, 14),
rel.end.2 = c(20, NA))\ndfWide" 0 209 (fontified nil)) #("R" 0 1
(fontified nil)) #(":results" 0 8 (fontified nil)) #("output" 0 6
(fontified nil)) #("replace" 0 7 (fontified nil)) #(":exports" 0 8
(fontified nil)) #("both" 0 4 (fontified nil)) #(":session" 0 8
(fontified nil)))
apply(org-babel-exp-src-block #("## make up some wide-formated
data\ndfWide <- data.frame(id = c(1, 2), \n
rel.beg.1 = c(0, 0), rel.end.1 = c(10, 25), \n
rel.beg.2 = c(4, 14), rel.end.2 = c(20, NA))\ndfWide" 0 209 (fontified
nil)) (#("R" 0 1 (fontified nil)) #(":results" 0 8 (fontified nil))
#("output" 0 6 (fontified nil)) #("replace" 0 7 (fontified nil))
#(":exports" 0 8 (fontified nil)) #("both" 0 4 (fontified nil))
#(":session" 0 8 (fontified nil))))
(if (memq type org-export-blocks-witheld) "" (apply func body headers))
(progn (if (memq type org-export-blocks-witheld) "" (apply func body
headers)))
(unwind-protect (progn (if ... "" ...)) (set-match-data
save-match-data-internal (quote evaporate)))
(let ((save-match-data-internal ...)) (unwind-protect (progn ...)
(set-match-data save-match-data-internal ...)))
(save-match-data (if (memq type org-export-blocks-witheld) "" (apply
func body headers)))
(let ((replacement ...)) (when replacement (replace-match replacement
t t) (unless preserve-indent ...)))
(progn (let (...) (when replacement ... ...)))
(if (setq func (cadr ...)) (progn (let ... ...)))
(when (setq func (cadr ...)) (let (...) (when replacement ... ...)))
(while (re-search-forward org-exp-blocks-block-regexp nil t) (setq
indentation (length ...)) (setq type (intern ...)) (setq headers
(save-match-data ...)) (setq body (match-string 4)) (setq
preserve-indent (or org-src-preserve-indentation ...)) (unless
preserve-indent (setq body ...)) (unless (memq type types) (setq types
...)) (save-match-data (interblock start ...)) (when (setq func ...)
(let ... ...)) (setq start (match-end 0)))
(progn (fset (quote interblock) (function* ...)) (goto-char
(point-min)) (setq start (point)) (while (re-search-forward
org-exp-blocks-block-regexp nil t) (setq indentation ...) (setq type
...) (setq headers ...) (setq body ...) (setq preserve-indent ...)
(unless preserve-indent ...) (unless ... ...) (save-match-data ...)
(when ... ...) (setq start ...)) (interblock start (point-max))
(run-hooks (quote org-export-blocks-postblock-hook)))
(unwind-protect (progn (fset ... ...) (goto-char ...) (setq start ...)
(while ... ... ... ... ... ... ... ... ... ... ...) (interblock start
...) (run-hooks ...)) (if --cl-letf-bound-- (fset ... --cl-letf-save--)
(fmakunbound ...)))
(let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect
(progn ... ... ... ... ... ...) (if --cl-letf-bound-- ... ...)))
(letf ((... ...)) (goto-char (point-min)) (setq start (point)) (while
(re-search-forward org-exp-blocks-block-regexp nil t) (setq indentation
...) (setq type ...) (setq headers ...) (setq body ...) (setq
preserve-indent ...) (unless preserve-indent ...) (unless ... ...)
(save-match-data ...) (when ... ...) (setq start ...)) (interblock start
(point-max)) (run-hooks (quote org-export-blocks-postblock-hook)))
(letf* ((... ...)) (goto-char (point-min)) (setq start (point)) (while
(re-search-forward org-exp-blocks-block-regexp nil t) (setq indentation
...) (setq type ...) (setq headers ...) (setq body ...) (setq
preserve-indent ...) (unless preserve-indent ...) (unless ... ...)
(save-match-data ...) (when ... ...) (setq start ...)) (interblock start
(point-max)) (run-hooks (quote org-export-blocks-postblock-hook)))
(flet ((interblock ... ...)) (goto-char (point-min)) (setq start
(point)) (while (re-search-forward org-exp-blocks-block-regexp nil t)
(setq indentation ...) (setq type ...) (setq headers ...) (setq body
...) (setq preserve-indent ...) (unless preserve-indent ...) (unless ...
...) (save-match-data ...) (when ... ...) (setq start ...)) (interblock
start (point-max)) (run-hooks (quote org-export-blocks-postblock-hook)))
(let ((case-fold-search t) (types ...) indentation type func start
body headers preserve-indent progress-marker) (flet (...) (goto-char
...) (setq start ...) (while ... ... ... ... ... ... ... ... ... ...
...) (interblock start ...) (run-hooks ...)))
(save-window-excursion (let (... ... indentation type func start body
headers preserve-indent progress-marker) (flet ... ... ... ... ... ...)))
org-export-blocks-preprocess()
(save-current-buffer (set-buffer (get-buffer-create " org-mode-tmp"))
(erase-buffer) (insert string) (setq case-fold-search t) (let (...)
(remove-text-properties ... ... ...)) (org-export-kill-licensed-text)
(let (...) (org-mode)) (setq case-fold-search t)
(org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)")
(org-install-letbind) (run-hooks (quote org-export-preprocess-hook))
(untabify (point-min) (point-max))
(org-export-handle-include-files-recurse) (run-hooks (quote
org-export-preprocess-after-include-files-hook))
(org-export-mark-list-end) (org-export-preprocess-apply-macros)
(run-hooks (quote org-export-preprocess-after-macros-hook))
(org-export-remove-archived-trees archived-trees)
(org-export-remove-comment-blocks-and-subtrees)
(org-export-handle-export-tags (plist-get parameters :select-tags)
(plist-get parameters :exclude-tags)) (run-hooks (quote
org-export-preprocess-after-tree-selection-hook))
(org-export-remove-tasks (plist-get parameters :tasks))
(org-export-blocks-preprocess) (org-export-mark-list-properties)
(org-export-replace-src-segments-and-examples)
(org-export-protect-colon-examples)
(org-export-convert-protected-spaces) (when (plist-get parameters
:footnotes) (org-footnote-normalize nil t)) (setq target-alist
(org-export-define-heading-targets target-alist)) (run-hooks (quote
org-export-preprocess-after-headline-targets-hook))
(org-export-remember-html-container-classes)
(org-export-remove-or-extract-drawers drawers (plist-get parameters
:drawers)) (when (plist-get parameters :skip-before-1st-heading)
(goto-char ...) (when ... ... ... ...)) (when (plist-get parameters
:add-text) (goto-char ...) (insert ... "\n"))
(org-export-remove-headline-metadata parameters) (setq target-alist
(org-export-handle-invisible-targets target-alist)) (run-hooks (quote
org-export-preprocess-before-selecting-backend-code-hook))
(org-export-select-backend-specific-text)
(org-export-protect-quoted-subtrees) (org-export-remove-clock-lines)
(org-export-protect-verbatim) (org-export-mark-blockquote-verse-center)
(run-hooks (quote org-export-preprocess-after-blockquote-hook)) (unless
(plist-get parameters :timestamps) (org-export-remove-timestamps)) (setq
target-alist (org-export-attach-captions-and-attributes target-alist))
(org-export-mark-radio-links) (run-hooks (quote
org-export-preprocess-after-radio-targets-hook))
(org-export-concatenate-multiline-links) (run-hooks (quote
org-export-preprocess-before-normalizing-links-hook)) ...)
(with-current-buffer (get-buffer-create " org-mode-tmp")
(erase-buffer) (insert string) (setq case-fold-search t) (let (...)
(remove-text-properties ... ... ...)) (org-export-kill-licensed-text)
(let (...) (org-mode)) (setq case-fold-search t)
(org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)")
(org-install-letbind) (run-hooks (quote org-export-preprocess-hook))
(untabify (point-min) (point-max))
(org-export-handle-include-files-recurse) (run-hooks (quote
org-export-preprocess-after-include-files-hook))
(org-export-mark-list-end) (org-export-preprocess-apply-macros)
(run-hooks (quote org-export-preprocess-after-macros-hook))
(org-export-remove-archived-trees archived-trees)
(org-export-remove-comment-blocks-and-subtrees)
(org-export-handle-export-tags (plist-get parameters :select-tags)
(plist-get parameters :exclude-tags)) (run-hooks (quote
org-export-preprocess-after-tree-selection-hook))
(org-export-remove-tasks (plist-get parameters :tasks))
(org-export-blocks-preprocess) (org-export-mark-list-properties)
(org-export-replace-src-segments-and-examples)
(org-export-protect-colon-examples)
(org-export-convert-protected-spaces) (when (plist-get parameters
:footnotes) (org-footnote-normalize nil t)) (setq target-alist
(org-export-define-heading-targets target-alist)) (run-hooks (quote
org-export-preprocess-after-headline-targets-hook))
(org-export-remember-html-container-classes)
(org-export-remove-or-extract-drawers drawers (plist-get parameters
:drawers)) (when (plist-get parameters :skip-before-1st-heading)
(goto-char ...) (when ... ... ... ...)) (when (plist-get parameters
:add-text) (goto-char ...) (insert ... "\n"))
(org-export-remove-headline-metadata parameters) (setq target-alist
(org-export-handle-invisible-targets target-alist)) (run-hooks (quote
org-export-preprocess-before-selecting-backend-code-hook))
(org-export-select-backend-specific-text)
(org-export-protect-quoted-subtrees) (org-export-remove-clock-lines)
(org-export-protect-verbatim) (org-export-mark-blockquote-verse-center)
(run-hooks (quote org-export-preprocess-after-blockquote-hook)) (unless
(plist-get parameters :timestamps) (org-export-remove-timestamps)) (setq
target-alist (org-export-attach-captions-and-attributes target-alist))
(org-export-mark-radio-links) (run-hooks (quote
org-export-preprocess-after-radio-targets-hook))
(org-export-concatenate-multiline-links) (run-hooks (quote
org-export-preprocess-before-normalizing-links-hook)) ...)
(let* ((org-export-current-backend ...) (archived-trees ...)
(inhibit-read-only t) (drawers org-drawers) (outline-regexp "\\*+ ")
(source-buffer ...) target-alist rtn) (setq org-export-target-aliases
nil org-export-preferred-target-alist nil org-export-id-target-alist nil
org-export-code-refs nil) (with-current-buffer (get-buffer-create "
org-mode-tmp") (erase-buffer) (insert string) (setq case-fold-search t)
(let ... ...) (org-export-kill-licensed-text) (let ... ...) (setq
case-fold-search t) (org-clone-local-variables source-buffer
"^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks ...) (untabify
... ...) (org-export-handle-include-files-recurse) (run-hooks ...)
(org-export-mark-list-end) (org-export-preprocess-apply-macros)
(run-hooks ...) (org-export-remove-archived-trees archived-trees)
(org-export-remove-comment-blocks-and-subtrees)
(org-export-handle-export-tags ... ...) (run-hooks ...)
(org-export-remove-tasks ...) (org-export-blocks-preprocess)
(org-export-mark-list-properties)
(org-export-replace-src-segments-and-examples)
(org-export-protect-colon-examples)
(org-export-convert-protected-spaces) (when ... ...) (setq target-alist
...) (run-hooks ...) (org-export-remember-html-container-classes)
(org-export-remove-or-extract-drawers drawers ...) (when ... ... ...)
(when ... ... ...) (org-export-remove-headline-metadata parameters)
(setq target-alist ...) (run-hooks ...)
(org-export-select-backend-specific-text)
(org-export-protect-quoted-subtrees) (org-export-remove-clock-lines)
(org-export-protect-verbatim) (org-export-mark-blockquote-verse-center)
(run-hooks ...) (unless ... ...) (setq target-alist ...)
(org-export-mark-radio-links) (run-hooks ...)
(org-export-concatenate-multiline-links) (run-hooks ...) ...)
(kill-buffer " org-mode-tmp") rtn)
org-export-preprocess-string(#("#+STARTUP: indent\n\n# IMPORTANT: run
(org-babel-execute-buffer) first!\n\n# see 6 Using Custom Classes at
http://orgmode.org/worg/org-tutorials/org-latex-export.html
\n#+begin_src emacs-lisp :results silent :exports none\n(add-to-list
'org-export-latex-classes\n '(\"per-file-class\"\n
\"\\\\documentclass{article}\n [NO-DEFAULT-PACKAGES]\n
[EXTRA]\"\n (\"\\\\section{%s}\" . \"\\\\section*{%s}\")\n
(\"\\\\subsection{%s}\" . \"\\\\subsection*{%s}\")\n
(\"\\\\subsubsection{%s}\" . \"\\\\subsubsection*{%s}\")\n
(\"\\\\paragraph{%s}\" . \"\\\\paragraph*{%s}\")\n
(\"\\\\subparagraph{%s}\" .
\"\\\\subparagraph*{%s}\")))\n#+end_src\n\n\n#+author: Bernd
[...]
font-lock-fontified t) 861 862 (fontified nil :org-license-to-kill t)
862 902 (fontified nil font-lock-fontified t) 902 903 (fontified nil
font-lock-fontified t) 903 947 (fontified nil font-lock-fontified t) 947
948 (fontified nil font-lock-fontified t) 948 991 (fontified nil
font-lock-fontified t) 991 992 (fontified nil font-lock-fontified t) 992
1030 (fontified nil font-lock-fontified t) 1030 1031 (fontified nil
font-lock-fontified t) 1031 1068 (fontified nil font-lock-fontified t)
1068 1069 (fontified nil font-lock-fontified t) 1069 1105 (fontified nil
font-lock-fontified t) 1105 1106 (fontified nil font-lock-fontified t)
1106 1159 (fontified nil font-lock-fontified t) 1159 1160 (fontified nil
font-lock-fontified t) 1160 1163 (fontified nil :org-license-to-kill t)
1163 1176 (fontified nil font-lock-fontified t) 1176 1177 (fontified nil
font-lock-fontified t) 1177 1196 (fontified nil font-lock-fontified t
:org-license-to-kill t) 1196 1197 (fontified nil font-lock-fontified t
:org-license-to-kill t) 1197 1199 (fontified nil help-echo "Footnote
reference" font-lock-fontified t :org-license-to-kill t) 1199 1200
(fontified nil help-echo "Footnote reference" rear-nonsticky (mouse-face
highlight keymap invisible intangible help-echo org-linked-text)
font-lock-fontified t :org-license-to-kill t) 1200 1598 (fontified nil
font-lock-fontified t :org-license-to-kill t) 1598 1599 (fontified nil
font-lock-fontified t :org-license-to-kill t) 1599 1610 (fontified nil
font-lock-fontified t) 1610 1611 (fontified nil) 1611 1612 (fontified
nil :org-license-to-kill t) 1612 1613 (fontified nil) 1613 1615
(fontified nil) 1615 1619 (fontified nil) 1619 1620 (fontified nil) 1620
1871 (fontified nil) 1871 1872 (fontified nil) 1872 1914 (fontified nil)
1914 7461 (fontified nil) 7461 7477 (fontified nil) 7477 9074 (fontified
nil) 9074 9088 (fontified nil) 9088 17188 (fontified nil) 17188 17204
(fontified nil) 17204 17853 (fontified nil) 17853 17867 (fontified nil)
17867 20693 (fontified nil) 20693 20726 (fontified nil) 20726 27183
(fontified nil) 27183 27185 (fontified nil) 27185 27230 (fontified nil)
27230 27232 (fontified nil) 27232 27277 (fontified nil) 27277 27279
(fontified nil) 27279 27324 (fontified nil) 27324 28106 (fontified nil)
28106 28108 (fontified nil) 28108 28153 (fontified nil) 28153 28155
(fontified nil) 28155 28200 (fontified nil) 28200 28202 (fontified nil)
28202 28247 (fontified nil) 28247 28249 (fontified nil) 28249 28294
(fontified nil) 28294 28296 (fontified nil) 28296 28341 (fontified nil)
28341 29401 (fontified nil) 29401 29403 (fontified nil) 29403 29462
(fontified nil) 29462 29464 (fontified nil) 29464 29523 (fontified nil)
29523 29525 (fontified nil) 29525 29584 (fontified nil) 29584 29586
(fontified nil) 29586 29645 (fontified nil) 29645 29647 (fontified nil)
29647 29706 (fontified nil) 29706 29708 (fontified nil) 29708 29767
(fontified nil) 29767 29769 (fontified nil) 29769 29828 (fontified nil)
29828 31893 (fontified nil) 31893 31909 (fontified nil) 31909 34363
(fontified nil) 34363 34377 (fontified nil) 34377 34593 (fontified nil))
:emph-multiline t :for-backend latex :comments nil :tags not-in-toc
:priority nil :footnotes t :drawers nil :timestamps t :todo-keywords t
:tasks t :add-text nil :skip-before-1st-heading nil :select-tags
("export") :exclude-tags ("noexport") :LaTeX-fragments nil)
(let* ((wcf ...) (opt-plist ...) (region-p ...) (rbeg ...) (rend ...)
(subtree-p ...) (opt-plist ...) (org-export-latex-options-plist ...)
(org-current-export-dir ...) (org-current-export-file buffer-file-name)
(title ...) (filename ...) (filename ...) (buffer ...) (odd
org-odd-levels-only) (header ...) (skip ...) (text ...)
(org-export-preprocess-hook ...) (first-lines ...) (coding-system ...)
(coding-system-for-write ...) (save-buffer-coding-system ...) (region
...) (text ...) (string-for-export ...)) (set-buffer buffer)
(erase-buffer) (org-install-letbind) (and (fboundp ...)
(set-buffer-file-coding-system coding-system-for-write)) (unless (or ...
body-only) (insert header)) (when (and text ...) (insert ... "\n\n"))
(unless (or skip ...) (insert first-lines)) (org-export-latex-global
(with-temp-buffer ... ... ...)) (unless body-only (insert
"\n\\end{document}")) (goto-char (point-min)) (while
(re-search-forward "^[ ]*\\\\item\\([ ]+\\)\\[" nil t) (delete-region
... ...)) (goto-char (point-min)) (when (re-search-forward
"\\[TABLE-OF-CONTENTS\\]" nil t) (goto-char ...) (while ... ...)
(goto-char ...) (and ... ...)) (goto-char (point-min)) (while
(re-search-forward "^[ ]*\\\\item\\>.*\\(\\\\\\\\\\)[
]*\\(\n\\\\label.*\\)*\n\\\\begin" nil t) (delete-region ... ...))
(goto-char (point-min)) (while (re-search-forward "^[
]*\\\\item\\>.*\\(\\\\\\\\\\)[ ]*\\(\n\\\\label.*\\)*" nil t) (if ...
...)) (run-hooks (quote org-export-latex-final-hook)) (if to-buffer
(unless ... ...) (save-buffer)) (org-export-latex-fix-inputenc)
(run-hooks (quote org-export-latex-after-save-hook)) (goto-char
(point-min)) (or (org-export-push-to-kill-ring "LaTeX") (message
"Exporting to LaTeX...done")) (prog1 (if ... ... ...)
(set-window-configuration wcf)))
org-export-as-latex(nil nil nil nil nil nil)
(let* ((wconfig ...) (lbuf ...) (file ...) (base ...) (pdffile ...)
(cmds org-latex-to-pdf-process) (outbuf ...) (bibtex-p ...) cmd
output-dir errors) (with-current-buffer outbuf (erase-buffer)) (message
(concat "Processing LaTeX file " file "...")) (setq output-dir
(file-name-directory file)) (if (and cmds ...) (funcall cmds ...) (while
cmds ... ... ... ... ...)) (message (concat "Processing LaTeX file "
file "...done")) (setq errors (org-export-latex-get-error outbuf)) (if
(not ...) (error ...) (set-window-configuration wconfig) (when
org-export-pdf-remove-logfiles ...) (message ...) pdffile))
org-export-as-pdf(nil)
call-interactively(org-export-as-pdf)
(if (and bg (nth 2 ass) (not ...) (not ...)) (let (...)
(set-process-sentinel p ...) (message "Background process \"%s\":
started" p)) (if subtree-p (progn ... ...)) (call-interactively (nth 1
ass)) (when (and bpos ...) (let ... ... ... ... ...)))
(let* ((bg ...) (subtree-p ...) (help "[t] insert the export option
template\n[v] limit export to visible part of outline tree\n[1]
switch buffer/subtree export\n[SPC] publish enclosing subtree (with
LaTeX_CLASS or EXPORT_FILE_NAME prop)\n\n[a/n/u] export as
ASCII/Latin-1/UTF-8 [A/N/U] to temporary buffer\n\n[h] export as
HTML [H] to temporary buffer [R] export region\n[b] export as
HTML and open in browser\n\n[l] export as LaTeX [L] to temporary
buffer\n[p] export as LaTeX and process to PDF [d] ... and
open PDF file\n\n[D] export as DocBook [V] export as DocBook, process
to PDF, and open\n\n[j] export as TaskJuggler
[J] ... and open\n\n[m] export as Freemind mind map\n[x] export as
XOXO\n[g] export using Wes Hardaker's generic exporter\n\n[i] export
current file as iCalendar file\n[I] export all agenda files as iCalendar
files [c] ...as one combined file\n\n[F] publish current file
[P] publish current project\n[X] publish a project... [E]
publish every projects") (cmds ...) r1 r2 ass (cpos ...) (cbuf ...)
bpos) (save-excursion (save-window-excursion ... ... ... ... ... ...))
(redisplay) (and bpos (goto-char bpos)) (setq r2 (if ... ... r1))
(unless (setq ass ...) (error "No command associated with key %c" r1))
(if (and bg ... ... ...) (let ... ... ...) (if subtree-p ...)
(call-interactively ...) (when ... ...)))
org-export(nil)
call-interactively(org-export nil nil)
===================== Debugger output: end =====================
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: [bug] Symbol's function definition is void: when-let
2011-05-19 16:16 [bug] Symbol's function definition is void: when-let Bernd Weiss
@ 2011-05-19 16:34 ` Nick Dokos
2011-05-19 17:06 ` Eric Schulte
0 siblings, 1 reply; 4+ messages in thread
From: Nick Dokos @ 2011-05-19 16:34 UTC (permalink / raw)
To: Bernd Weiss; +Cc: nicholas.dokos, emacs-orgmode
Bernd Weiss <bernd.weiss@uni-koeln.de> wrote:
> export to LaTeX/PDF. It stops with "Symbol's function definition is
> void: when-let", i.e.
>
> Fontifying org-src-fontification:emacs-lisp-mode...
> (regexps...............)
> Symbol's function definition is void: when-let
>
Yup: Eric S.'s commit (tip when I pulled a few minutes ago) uses when-let,
which is not defined in my emacs either. It's either a typo or an Eric S.
special.
Nick
,----
| commit 72c154e38e526b5f8bb5f200fb31bc6fec145ba6
| Author: Eric Schulte <schulte.eric@gmail.com>
| Date: Thu May 19 07:37:33 2011 -0600
|
| expand noweb refs when ":noweb yes" during export
|
| * lisp/ob-exp.el (org-babel-exp-do-export): Use `org-babel-exp-code'
| to generate code block output.
| (org-babel-exp-code): Re-create the code block body for exporting
| source code.
|
| diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el
| index d700f6d..ce04f13 100644
| --- a/lisp/ob-exp.el
| +++ b/lisp/ob-exp.el
| @@ -238,9 +238,17 @@ The function respects the value of the :exports header argument."
| (clean () (unless (eq type 'inline) (org-babel-remove-result info))))
| (case (intern (or (cdr (assoc :exports (nth 2 info))) "code"))
| ('none (silently) (clean) "")
| - ('code (silently) (clean) nil)
| + ('code (silently) (clean) (org-babel-exp-code info))
| ('results (org-babel-exp-results info type nil hash) "")
| - ('both (org-babel-exp-results info type nil hash) nil))))
| + ('both (org-babel-exp-results info type nil hash)
| + (org-babel-exp-code info)))))
| +
| +(defun org-babel-exp-code (info)
| + "Return the original code block formatted for export."
| + (org-fill-template "#+BEGIN_SRC %lang%flags\n%body\n#+END_SRC\n"
| + `(("lang" . ,(nth 0 info))
| + ("flags" . ,(when-let (f (nth 3 info)) (concat " " f)))
| + ("body" . ,(nth 1 info)))))
|
| (defun org-babel-exp-results (info type &optional silent hash)
| "Evaluate and return the results of the current code block for export.
`----
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: [bug] Symbol's function definition is void: when-let
2011-05-19 16:34 ` Nick Dokos
@ 2011-05-19 17:06 ` Eric Schulte
2011-05-19 17:11 ` Bernd Weiss
0 siblings, 1 reply; 4+ messages in thread
From: Eric Schulte @ 2011-05-19 17:06 UTC (permalink / raw)
To: nicholas.dokos; +Cc: Bernd Weiss, emacs-orgmode
Oh!
My fault, `when-let' is defined locally on my Emacs, but apparently is
not an official Emacs function, careless committing on my part.
I've just pushed up a fix.
Thanks -- Eric
Nick Dokos <nicholas.dokos@hp.com> writes:
> Bernd Weiss <bernd.weiss@uni-koeln.de> wrote:
>
>> export to LaTeX/PDF. It stops with "Symbol's function definition is
>> void: when-let", i.e.
>>
>> Fontifying org-src-fontification:emacs-lisp-mode...
>> (regexps...............)
>> Symbol's function definition is void: when-let
>>
>
> Yup: Eric S.'s commit (tip when I pulled a few minutes ago) uses when-let,
> which is not defined in my emacs either. It's either a typo or an Eric S.
> special.
>
> Nick
>
> ,----
> | commit 72c154e38e526b5f8bb5f200fb31bc6fec145ba6
> | Author: Eric Schulte <schulte.eric@gmail.com>
> | Date: Thu May 19 07:37:33 2011 -0600
> |
> | expand noweb refs when ":noweb yes" during export
> |
> | * lisp/ob-exp.el (org-babel-exp-do-export): Use `org-babel-exp-code'
> | to generate code block output.
> | (org-babel-exp-code): Re-create the code block body for exporting
> | source code.
> |
> | diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el
> | index d700f6d..ce04f13 100644
> | --- a/lisp/ob-exp.el
> | +++ b/lisp/ob-exp.el
> | @@ -238,9 +238,17 @@ The function respects the value of the :exports header argument."
> | (clean () (unless (eq type 'inline) (org-babel-remove-result info))))
> | (case (intern (or (cdr (assoc :exports (nth 2 info))) "code"))
> | ('none (silently) (clean) "")
> | - ('code (silently) (clean) nil)
> | + ('code (silently) (clean) (org-babel-exp-code info))
> | ('results (org-babel-exp-results info type nil hash) "")
> | - ('both (org-babel-exp-results info type nil hash) nil))))
> | + ('both (org-babel-exp-results info type nil hash)
> | + (org-babel-exp-code info)))))
> | +
> | +(defun org-babel-exp-code (info)
> | + "Return the original code block formatted for export."
> | + (org-fill-template "#+BEGIN_SRC %lang%flags\n%body\n#+END_SRC\n"
> | + `(("lang" . ,(nth 0 info))
> | + ("flags" . ,(when-let (f (nth 3 info)) (concat " " f)))
> | + ("body" . ,(nth 1 info)))))
> |
> | (defun org-babel-exp-results (info type &optional silent hash)
> | "Evaluate and return the results of the current code block for export.
> `----
>
--
Eric Schulte
http://cs.unm.edu/~eschulte/
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: [bug] Symbol's function definition is void: when-let
2011-05-19 17:06 ` Eric Schulte
@ 2011-05-19 17:11 ` Bernd Weiss
0 siblings, 0 replies; 4+ messages in thread
From: Bernd Weiss @ 2011-05-19 17:11 UTC (permalink / raw)
To: Eric Schulte; +Cc: emacs-orgmode
Am 19.05.2011 13:06, schrieb Eric Schulte:
> Oh!
>
> My fault, `when-let' is defined locally on my Emacs, but apparently is
> not an official Emacs function, careless committing on my part.
>
> I've just pushed up a fix.
Thanks for fixing that! Everything works fine now!
Bernd
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2011-05-19 17:11 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2011-05-19 16:16 [bug] Symbol's function definition is void: when-let Bernd Weiss
2011-05-19 16:34 ` Nick Dokos
2011-05-19 17:06 ` Eric Schulte
2011-05-19 17:11 ` Bernd Weiss
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.