Hello,
When publishing a site project, or some file from it, I get the
following error:
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-number-of-arguments #[(&optional force)
"\303 ^X\304\216 ?\205^K^@
^Z\305\306 !+\207" [wconfig force org-publish-use-timestamps-flag
current-window-configuration ((set-window-configuration wconfig))
org-publish-file buffer-file-name] 2 ("c:/Program Files
(x86)/emacs-24.3/lisp/org/org-publish.elc" . 30759) "P"] 2)
org-publish-current-file(nil nil)
(cond ((eql action (quote template)) (org-export-insert-default-template nil
optns)) ((eql action (quote stack)) (org-export-stack)) ((eql action (quote
publish-current-file)) (org-publish-current-file (memq (quote force) optns)
(memq (quote async) optns))) ((eql action (quote publish-current-project))
(org-publish-current-project (memq (quote force) optns) (memq (quote async)
optns))) ((eql action (quote publish-choose-project)) (org-publish (assoc
(org-icompleting-read "Publish project: " org-publish-project-alist nil t)
org-publish-project-alist) (memq (quote force) optns) (memq (quote async)
optns))) ((eql action (quote publish-all)) (org-publish-all (memq (quote force)
optns) (memq (quote async) optns))) (t (save-excursion (if arg (progn (if (eq
(marker-buffer org-export-dispatch-last-position) (org-base-buffer ...))
(goto-char org-export-dispatch-last-position) (move-marker
org-export-dispatch-last-position nil)))) (funcall action (and (memq (quote
async) optns) t) (and (memq (quote subtree) optns) t) (and (memq (quote
visible) optns) t) (and (memq (quote body) optns) t)))))
(let* ((input (cond ((equal arg (quote (16))) (quote (stack))) ((and arg
org-export-dispatch-last-action)) (t (let ((wconfig ...)) (unwind-protect
(progn ...) (set-window-configuration wconfig)))))) (action (car input)) (optns
(cdr input))) (if (memq (quote subtree) optns) nil (move-marker
org-export-dispatch-last-position nil)) (cond ((eql action (quote template))
(org-export-insert-default-template nil optns)) ((eql action (quote stack))
(org-export-stack)) ((eql action (quote publish-current-file))
(org-publish-current-file (memq (quote force) optns) (memq (quote async)
optns))) ((eql action (quote publish-current-project))
(org-publish-current-project (memq (quote force) optns) (memq (quote async)
optns))) ((eql action (quote publish-choose-project)) (org-publish (assoc
(org-icompleting-read "Publish project: " org-publish-project-alist nil t)
org-publish-project-alist) (memq (quote force) optns) (memq (quote async)
optns))) ((eql action (quote publish-all)) (org-publish-all (memq (quote force)
optns) (memq (quote async) optns))) (t (save-excursion (if arg (progn (if (eq
... ...) (goto-char org-export-dispatch-last-position) (move-marker
org-export-dispatch-last-position nil)))) (funcall action (and (memq (quote
async) optns) t) (and (memq (quote subtree) optns) t) (and (memq (quote
visible) optns) t) (and (memq (quote body) optns) t))))))
org-export-dispatch(nil)
funcall(org-export-dispatch nil)
--8<---------------cut here---------------end--------------->8---
Do you have an idea how to chase this problem?
Best regards,
Seb
--
Sebastien Vauban
