From mboxrd@z Thu Jan 1 00:00:00 1970 From: Sebastien Vauban Subject: Lisp error: wrong-number-of-arguments when publishing current project file Date: Wed, 10 Sep 2014 20:27:01 +0200 Message-ID: <86a967ib62.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org 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-w= indow-configuration ((set-window-configuration wconfig)) org-publish-file b= uffer-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 (q= uote publish-current-file)) (org-publish-current-file (memq (quote force) o= ptns) (memq (quote async) optns))) ((eql action (quote publish-current-proj= ect)) (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 n= il t) org-publish-project-alist) (memq (quote force) optns) (memq (quote as= ync) optns))) ((eql action (quote publish-all)) (org-publish-all (memq (quo= te force) optns) (memq (quote async) optns))) (t (save-excursion (if arg (p= rogn (if (eq (marker-buffer org-export-dispatch-last-position) (org-base-bu= ffer ...)) (goto-char org-export-dispatch-last-position) (move-marker org-e= xport-dispatch-last-position nil)))) (funcall action (and (memq (quote asyn= c) 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)) (op= tns (cdr input))) (if (memq (quote subtree) optns) nil (move-marker org-exp= ort-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-cur= rent-file (memq (quote force) optns) (memq (quote async) optns))) ((eql act= ion (quote publish-current-project)) (org-publish-current-project (memq (qu= ote 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 (quot= e force) optns) (memq (quote async) optns))) ((eql action (quote publish-al= l)) (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 su= btree) optns) t) (and (memq (quote visible) optns) t) (and (memq (quote bod= y) 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 --=20 Sebastien Vauban