From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: Bug: Publish cache files have invalid read syntax for Emacs 22 [6.36trans (release_6.36.98.g15539)] Date: Mon, 24 May 2010 23:44:41 -0400 Message-ID: <87aarolk5y.fsf@gollum.intra.norang.ca> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from [140.186.70.92] (port=45227 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OGl4T-0004Kf-Ec for emacs-orgmode@gnu.org; Mon, 24 May 2010 23:44:51 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OGl4R-0006wD-43 for emacs-orgmode@gnu.org; Mon, 24 May 2010 23:44:49 -0400 Received: from mho-01-ewr.mailhop.org ([204.13.248.71]:57614) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OGl4Q-0006w8-WF for emacs-orgmode@gnu.org; Mon, 24 May 2010 23:44:47 -0400 Received: from cpe000102d0fe75-cm0012256ecbde.cpe.net.cable.rogers.com ([99.239.148.180] helo=mail.norang.ca) by mho-01-ewr.mailhop.org with esmtpsa (TLSv1:AES256-SHA:256) (Exim 4.68) (envelope-from ) id 1OGl4Q-000Hq6-EE for emacs-orgmode@gnu.org; Tue, 25 May 2010 03:44:46 +0000 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Remember to cover the basics, that is, what you expected to happen and what in fact did happen. You don't know how to make a good report? See http://orgmode.org/manual/Feedback.html#Feedback Your bug report will be posted to the Org-mode mailing list. ------------------------------------------------------------------------ The cache files for publishing generated by org-mode are no longer readable by Emacs 22. ,----[ doc-org.cache ] | (setq org-publish-cache | #) `---- Debugger entered--Lisp error: (invalid-read-syntax "#") eval-buffer(# nil "/home/bernt/.org-timestamps/doc-org.ca= che" nil t) ; Reading at buffer position 28 load-with-code-conversion("/home/bernt/.org-timestamps/doc-org.cache" "/h= ome/bernt/.org-timestamps/doc-org.cache" nil nil) load("/home/bernt/.org-timestamps/doc-org.cache" nil nil t) load-file("/home/bernt/.org-timestamps/doc-org.cache") (if cexists (load-file cache-file)) (let* ((cache-file ...) (cexists ...)) (if cexists (load-file cache-file)= ) (unless org-publish-cache (setq org-publish-cache ...) (org-publish-cache= -set ":project:" project-name) (org-publish-cache-set ":cache-file:" cache-= file)) (unless cexists (org-publish-write-cache-file nil))) (if (and org-publish-cache (string=3D ... project-name)) nil (when org-pu= blish-cache (org-publish-reset-cache)) (let* (... ...) (if cexists ...) (un= less org-publish-cache ... ... ...) (unless cexists ...))) (unless (and org-publish-cache (string=3D ... project-name)) (when org-pu= blish-cache (org-publish-reset-cache)) (let* (... ...) (if cexists ...) (un= less org-publish-cache ... ... ...) (unless cexists ...))) org-publish-initialize-cache("doc-org") (lambda (project) (org-publish-initialize-cache (car project)) (let* (...= ... ... ... ... ... ... ... file) (when preparation-function ...) (if site= map-p ...) (while ... ...) (when ... ... ...) (when completion-function ...= ) (org-publish-write-cache-file)))(("doc-org" :base-directory "~/git/doc.no= rang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" = :recursive t :section_numbers nil :table-of-contents nil :base-extension "o= rg" :publishing-function (org-publish-org-to-html org-publish-org-to-org) := plain-source t :htmlized-source t :style-include-default nil :style "" :author-in= fo nil :creator-info nil)) mapc((lambda (project) (org-publish-initialize-cache (car project)) (let*= (... ... ... ... ... ... ... ... file) (when preparation-function ...) (if= sitemap-p ...) (while ... ...) (when ... ... ...) (when completion-functio= n ...) (org-publish-write-cache-file))) (("doc-org" :base-directory "~/git/= doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/ht= docs" :recursive t :section_numbers nil :table-of-contents nil :base-extens= ion "org" :publishing-function (org-publish-org-to-html org-publish-org-to-= org) :plain-source t :htmlized-source t :style-include-default nil :style "= " :aut= hor-info nil :creator-info nil) ("doc-extra" :base-directory "~/git/doc.nor= ang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" := base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-function org-publi= sh-attachment :recursive t :author nil) ("doc-org-mode" :base-directory "~/= git/org-mode-doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca= /htdocs" :recursive t :section_numbers nil :table-of-contents nil :base-ext= ension "org" :publishing-function (org-publish-org-to-html org-publish-org-= to-org) :plain-source t :htmlized-source t :style-include-default nil :styl= e "" := author-info nil :creator-info nil) ("doc-org-mode-extra" :base-directory "~= /git/org-mode-doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.c= a/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-functio= n org-publish-attachment :recursive t :author nil))) org-publish-projects((("doc" :components ("doc-org" "doc-extra" "doc-org-= mode" "doc-org-mode-extra")))) (let* ((org-publish-use-timestamps-flag ...)) (org-publish-projects (list= project))) (save-window-excursion (let* (...) (org-publish-projects ...))) org-publish(("doc" :components ("doc-org" "doc-extra" "doc-org-mode" "doc= -org-mode-extra"))) (let ((project ...) (org-publish-use-timestamps-flag ...)) (if (not proje= ct) (error "File %s is not part of any known project" ...)) (org-publish pr= oject)) (save-window-excursion (let (... ...) (if ... ...) (org-publish project))) org-publish-current-project() bh/save-then-publish() call-interactively(bh/save-then-publish) recursive-edit() byte-code("=C3=86=10 @=C3=87=3D=C2=83!=00=C3=88=C3=89=C3=8A\"=C2=88=C3=8B= =C3=89!=C2=89=1AA@)=C2=A2=C3=8C=3D=C2=83!=00=C3=88=C3=8D=C3=8A\"=C2=88=C3= =8E=0B!=C2=88=C3=8F =C2=88=C3=90 !=C2=88\f=C2=83c=00=C3=91ed\"=0DV=C2=83W= =00eb=C2=88=C3=92=0D=C2=A5y=C2=88`=1E=1Bdb=C2=88=C3=92=0D=C2=A5=0DZy=C2=88= =0E=1B`|=C2=88)=C3=93c=C2=88eb=C2=88=C3=94=C3=95=C3=96 \"=C2=88=C3=97 =C2= =88=C3=94=C3=98!=C2=88=C3=99=C3=8A=1E=1C=1E=1D=C3=94=C3=98!=C2=88=C2=8A=C3= =9A =C2=88+=C3=99=C2=87" [unread-command-char debugger-args x debugger-buff= er noninteractive debugger-batch-max-lines -1 debug backtrace-debug 4 t bac= ktrace-frame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer cou= nt-lines 2 "...\n" message "%s" buffer-string kill-emacs "" nil recursive-e= dit middlestart buffer-read-only standard-output] 4) debug(error (void-function string-match-p)) (string-match-p "^//" str) (and type (string-match-p "^//" str)) (if (and type (string-match-p "^//" str)) (concat type ":" str) str) (let ((str ...)) (if (and type ...) (concat type ":" str) str)) (setq thefile (let (...) (if ... ... str))) (let* ((filename path) (components-1 ...) (components-2 ...) (type ...) (= thefile ...)) (cond (... ...) (t)) (setq thefile (let ... ...)) (if (and ma= y-inline-p ...) (progn ... ...) (concat "= " ... ""))) (progn (let* (... ... ... ... ...) (cond ... ...) (setq thefile ...) (if = ... ... ...))) (unwind-protect (progn (let* ... ... ... ...)) (set-match-data save-match= -data-internal (quote evaporate))) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-ma= tch-data save-match-data-internal ...))) (save-match-data (let* (... ... ... ... ...) (cond ... ...) (setq thefile= ...) (if ... ... ...))) org-html-make-link((:latex-image-options "width=3D10em" :exclude-tags ("n= oexport") :select-tags ("export") :email "bernt@norang.ca" :author "Bernt H= ansen" :auto-postamble t :auto-preamble t :postamble nil :preamble nil :pub= lishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :timestamp nil= :expand-quoted-html t :html-table-tag "" :xml-d= eclaration (("html" . "") ("php"= . "\"; ?>= ")) :html-extension "html" :inline-images t :convert-org-links t :agenda-st= yle "" :style-extra "" :style "" :style-include-scripts t :style-in= clude-default nil :table-auto-headline t :tables t :time-stamp-file t ...) = "file" #("cat5_7956760a6b96bf17f5fb7bbb048d0b1645831aa7.png" 0 4 (org-attr = nil face org-link org-label nil org-attributes nil org-caption nil font-loc= k-fontified t fontified t org-protected t org-no-description t) 4 40 (org-a= ttr nil face org-link org-label nil org-attributes nil org-caption nil org-= protected t org-no-description t) 40 46 (org-attr nil face org-link org-lab= el nil org-attributes nil org-caption nil org-protected t org-no-descriptio= n t) 46 49 (org-attr nil face org-link org-label nil org-attributes nil org= -caption nil font-lock-fontified t fontified t org-protected t org-no-descr= iption t)) nil #("cat5_7956760a6b96bf17f5fb7bbb048d0b1645831aa7.png" 0 4 (f= ace org-link fontified t font-lock-fontified t org-caption nil org-attribut= es nil org-label nil) 4 40 (face org-link org-caption nil org-attributes ni= l org-label nil) 40 46 (face org-link org-caption nil org-attributes nil or= g-label nil) 46 49 (face org-link fontified t font-lock-fontified t org-cap= tion nil org-attributes nil org-label nil)) nil 45) (if (and (functionp link-validate) (not ...)) desc (org-html-make-link op= t-plist "file" path-1 fragment-1 desc-2 attr (org-html-should-inline-p path= -1 descp))) (setq rpl (if (and ... ...) desc (org-html-make-link opt-plist "file" pat= h-1 fragment-1 desc-2 attr ...))) (let* ((components ...) (path-1 ...) (fragment-0 ...) (fragment-1 ...) (d= esc-2 ...)) (setq rpl (if ... desc ...))) (progn (let* (... ... ... ... ...) (setq rpl ...))) (unwind-protect (progn (let* ... ...)) (set-match-data save-match-data-in= ternal (quote evaporate))) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-ma= tch-data save-match-data-internal ...))) (save-match-data (let* (... ... ... ... ...) (setq rpl ...))) (cond ((equal type "internal") (let ... ...)) ((and ... ...) (save-match-= data ... ...)) ((member type ...) (setq rpl ...)) ((member type ...) (setq = rpl ...)) ((string=3D type "coderef") (let* ... ...)) ((functionp ...) (set= q rpl ...)) ((string=3D type "file") (save-match-data ...)) (t (setq rpl ..= .))) (while (string-match org-bracket-link-analytic-regexp++ line start) (setq= start (match-beginning 0)) (setq path (save-match-data ...)) (setq type (c= ond ... ... ...)) (setq path (org-extract-attributes ...)) (setq attr (get-= text-property 0 ... path)) (setq desc1 (if ... ...) desc2 (if ... ... path)= descp (and desc1 ...) desc (or desc1 desc2)) (cond (... ...) (... ...) (..= . ...) (... ...) (... ...) (... ...) (... ...) (t ...)) (setq line (replace= -match rpl t t line) start (+ start ...))) (catch (quote nextline) (when (and inquote ...) (insert "\n") (org-= open-par) (setq inquote nil)) (when inquote (insert ... "\n") (throw ... ni= l)) (when (and org-export-with-fixed-width ...) (when ... ... ... ...) (ins= ert ... "\n") (when ... ... ... ...) (throw ... nil)) (org-export-html-clos= e-lists-maybe line) (when (get-text-property 0 ... line) (let ... ... ... .= .. ...) (throw ... nil)) (when (equal "ORG-BLOCKQUOTE-START" line) (org-clo= se-par-maybe) (insert "
\n") (org-open-par) (throw ... nil)) (wh= en (equal "ORG-BLOCKQUOTE-END" line) (org-close-par-maybe) (insert "\n\n") (org-open-par) (throw ... nil)) (when (equal "ORG-VERSE-START"= line) (org-close-par-maybe) (insert "\n

\n") (setq org= -par-open t) (setq inverse t) (throw ... nil)) (when (equal "ORG-VERSE-END"= line) (insert "

\n") (setq org-par-open nil) (org-open-par) (setq inver= se nil) (throw ... nil)) (when (equal "ORG-CENTER-START" line) (org-close-p= ar-maybe) (insert "\n
") (org-open-par) = (throw ... nil)) (when (equal "ORG-CENTER-END" line) (org-close-par-maybe) = (insert "\n
") (org-open-par) (throw ... nil)) (run-hooks (quote org-e= xport-html-after-blockquotes-hook)) (when inverse (let ... ... ...)) (setq = start 0) (while (string-match "<<]*\\)>>>?\\((INVISIBLE)\\)?[ ]*\= n?" line start) (cond ... ... ... ...)) (setq line (org-html-handle-time-st= amps line)) (or (string-match org-table-hline-regexp line) (setq line ...))= (setq start 0) (while (string-match org-bracket-link-analytic-regexp++ lin= e start) (setq start ...) (setq path ...) (setq type ...) (setq path ...) (= setq attr ...) (setq desc1 ... desc2 ... descp ... desc ...) (cond ... ... = ... ... ... ... ... ...) (setq line ... start ...)) (if (and ... ...) (setq= line ...)) (when org-export-with-footnotes (setq start 0) (while ... ...))= (cond (... ... ... ... ... ... ... ...) (... ... ...) (... ... ... ...) (t= ... ... ... ... ... ... ...))) (while (setq line (pop lines) origline line) (catch (quote nextline) (whe= n ... ... ... ...) (when inquote ... ...) (when ... ... ... ... ...) (org-e= xport-html-close-lists-maybe line) (when ... ... ...) (when ... ... ... ...= ...) (when ... ... ... ... ...) (when ... ... ... ... ... ...) (when ... .= .. ... ... ... ...) (when ... ... ... ... ...) (when ... ... ... ... ...) (= run-hooks ...) (when inverse ...) (setq start 0) (while ... ...) (setq line= ...) (or ... ...) (setq start 0) (while ... ... ... ... ... ... ... ... ..= .) (if ... ...) (when org-export-with-footnotes ... ...) (cond ... ... ... = ...))) (let ((case-fold-search nil) (org-odd-levels-only odd)) (mapc (lambda ...= ...) org-export-plist-vars) (setq umax (if arg ... org-export-headline-lev= els)) (setq umax-toc (if ... ... umax)) (unless body-only (insert ...) (org= -export-html-insert-plist-item opt-plist :preamble opt-plist) (when ... ...= )) (if (and org-export-with-toc ...) (progn ... ... ... ... ... ... ...)) (= setq head-count 0) (org-init-section-numbers) (org-open-par) (while (setq l= ine ... origline line) (catch ... ... ... ... ... ... ... ... ... ... ... .= .. ... ... ... ... ... ... ... ... ... ... ...)) (when inquote (insert "\n") (org-open-par)) (when in-local-list (while local-list-type ... ... = ...) (setq local-list-indent nil in-local-list nil)) (org-html-level-start = 1 nil umax (and org-export-with-toc ...) head-count) (when (and ... first-h= eading-pos) (insert "\n")) (save-excursion (goto-char ...) (while ...= ... ...)) (when footnotes (insert ... "\n")) (let (...) (when bib ...)) (u= nless body-only (when ... ... ... ... ... ... ...) (if org-export-html-with= -timestamp ...) (org-export-html-insert-plist-item opt-plist :postamble opt= -plist) (insert "\n\n\n\n")) (unless (plist-get opt-pli= st :buffer-will-be-killed) (normal-mode) (if ... ...)) (goto-char (point-mi= n)) (when thetoc (if ... ... ... ...) (insert "
\n") (mapc ... thetoc) (insert "
\n")) (goto-char (point-min)) (wh= ile (re-search-forward "

[ =0D\n ]*

" nil t) (replace-match "")) (goto= -char (point-min)) (while (re-search-forward "
  • [ =0D\n ]*
    • \n?" nil t= ) (replace-match "")) (goto-char (point-min)) (while (re-search-forward "\\s-*
      \n?" nil t) (replace-match "")) (goto-char (point-min)) (let (b= eg end n) (while ... ... ... ... ...)) (goto-char (point-min)) (when (looki= ng-at "\\s-+\n") (replace-match "")) (remove-text-properties (point-min) (p= oint-max) (quote ...)) (run-hooks (quote org-export-html-final-hook)) (or t= o-buffer (save-buffer)) (goto-char (point-min)) (or (org-export-push-to-kil= l-ring "HTML") (message "Exporting... done")) (if (eq to-buffer ...) (prog1= ... ...) (current-buffer))) (let* ((opt-plist ...) (body-only ...) (style ...) (html-extension ...) (= link-validate ...) valid thetoc have-headings first-heading-pos (odd org-od= d-levels-only) (region-p ...) (rbeg ...) (rend ...) (subtree-p ...) (level-= offset ...) (opt-plist ...) (org-current-export-dir ...) (org-current-expor= t-file buffer-file-name) (level 0) (line "") (origline "") txt todo (umax n= il) (umax-toc nil) (filename ...) (current-dir ...) (buffer ...) (org-level= s-open ...) (date ...) (author ...) (title ...) (link-up ...) (link-home ..= .) (dummy ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...) (inquote= nil) (infixed nil) (inverse nil) (in-local-list nil) (local-list-type nil)= (local-list-indent nil) (llt org-plain-list-ordered-item-terminator) (emai= l ...) (language ...) (keywords ...) (description ...) (lang-words nil) ...= ) (let (...) (org-unmodified ...)) (message "Exporting...") (setq org-min-l= evel (org-get-min-level lines level-offset)) (setq org-last-level org-min-l= evel) (org-init-section-numbers) (cond (... ...) (date) (t ...)) (setq lang= -words (or ... ...)) (set-buffer buffer) (let (...) (erase-buffer)) (fundam= ental-mode) (org-install-letbind) (and (fboundp ...) (set-buffer-file-codin= g-system coding-system-for-write)) (let (... ...) (mapc ... org-export-plis= t-vars) (setq umax ...) (setq umax-toc ...) (unless body-only ... ... ...) = (if ... ...) (setq head-count 0) (org-init-section-numbers) (org-open-par) = (while ... ...) (when inquote ... ...) (when in-local-list ... ...) (org-ht= ml-level-start 1 nil umax ... head-count) (when ... ...) (save-excursion ..= . ...) (when footnotes ...) (let ... ...) (unless body-only ... ... ... ...= ) (unless ... ... ...) (goto-char ...) (when thetoc ... ... ... ...) (goto-= char ...) (while ... ...) (goto-char ...) (while ... ...) (goto-char ...) (= while ... ...) (goto-char ...) (let ... ...) (goto-char ...) (when ... ...)= (remove-text-properties ... ... ...) (run-hooks ...) (or to-buffer ...) (g= oto-char ...) (or ... ...) (if ... ... ...))) org-export-as-html(nil nil (:buffer-will-be-killed t :base-directory "~/g= it/doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca= /htdocs" :recursive t :section_numbers nil :table-of-contents nil :base-ext= ension "org" :publishing-function (org-publish-org-to-html org-publish-org-= to-org) :plain-source t :htmlized-source t :style-include-default nil :styl= e "" := author-info nil :creator-info nil) nil nil "/ssh:www-data@www:/var/www/doc.= norang.ca/htdocs/") funcall(org-export-as-html nil nil (:buffer-will-be-killed t :base-direct= ory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.n= orang.ca/htdocs" :recursive t :section_numbers nil :table-of-contents nil := base-extension "org" :publishing-function (org-publish-org-to-html org-publ= ish-org-to-org) :plain-source t :htmlized-source t :style-include-default n= il :style "" :author-info nil :creator-info nil) nil nil "/ssh:www-data@www:/var/= www/doc.norang.ca/htdocs/") (setq export-buf-or-file (funcall (intern ...) (plist-get plist :headline= -levels) nil plist nil nil pub-dir)) (let* ((plist ...) (init-buf ...) (init-point ...) (init-buf-string ...) = export-buf-or-file) (run-hooks (quote org-publish-before-export-hook)) (set= q export-buf-or-file (funcall ... ... nil plist nil nil pub-dir)) (when (an= d ... ...) (set-buffer export-buf-or-file) (progn ... ...) (kill-buffer exp= ort-buf-or-file)) (set-buffer init-buf) (when (buffer-modified-p init-buf) = (erase-buffer) (insert init-buf-string) (save-buffer) (goto-char init-point= )) (unless visiting (kill-buffer init-buf))) (save-excursion (switch-to-buffer (or visiting ...)) (let* (... ... ... .= .. export-buf-or-file) (run-hooks ...) (setq export-buf-or-file ...) (when = ... ... ... ...) (set-buffer init-buf) (when ... ... ... ... ...) (unless v= isiting ...))) (let ((visiting ...)) (save-excursion (switch-to-buffer ...) (let* ... ..= . ... ... ... ... ...))) org-publish-org-to("html" (:base-directory "~/git/doc.norang.ca/" :publis= hing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive t :sec= tion_numbers nil :table-of-contents nil :base-extension "org" :publishing-f= unction (org-publish-org-to-html org-publish-org-to-org) :plain-source t :h= tmlized-source t :style-include-default nil :style "" :author-info nil :creator-i= nfo nil) "/home/bernt/git/doc.norang.ca/wiring.org" "/ssh:www-data@www:/var= /www/doc.norang.ca/htdocs/") (let ((org-export-preprocess-after-headline-targets-hook ...)) (org-publi= sh-org-to "html" plist filename pub-dir)) (org-publish-with-aux-preprocess-maybe (org-publish-org-to "html" plist f= ilename pub-dir)) org-publish-org-to-html((:base-directory "~/git/doc.norang.ca/" :publishi= ng-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive t :secti= on_numbers nil :table-of-contents nil :base-extension "org" :publishing-fun= ction (org-publish-org-to-html org-publish-org-to-org) :plain-source t :htm= lized-source t :style-include-default nil :style "" :author-info nil :creator-inf= o nil) "/home/bernt/git/doc.norang.ca/wiring.org" "/ssh:www-data@www:/var/w= ww/doc.norang.ca/htdocs/") funcall(org-publish-org-to-html (:base-directory "~/git/doc.norang.ca/" := publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive = t :section_numbers nil :table-of-contents nil :base-extension "org" :publis= hing-function (org-publish-org-to-html org-publish-org-to-org) :plain-sourc= e t :htmlized-source t :style-include-default nil :style "" :author-info nil :cre= ator-info nil) "/home/bernt/git/doc.norang.ca/wiring.org" "/ssh:www-data@ww= w:/var/www/doc.norang.ca/htdocs/") (progn (funcall f project-plist filename tmp-pub-dir) (org-publish-update= -timestamp filename pub-dir f)) (if (org-publish-needed-p filename pub-dir f tmp-pub-dir) (progn (funcall= f project-plist filename tmp-pub-dir) (org-publish-update-timestamp filena= me pub-dir f))) (when (org-publish-needed-p filename pub-dir f tmp-pub-dir) (funcall f pr= oject-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pu= b-dir f)) (lambda (f) (when (org-publish-needed-p filename pub-dir f tmp-pub-dir) (= funcall f project-plist filename tmp-pub-dir) (org-publish-update-timestamp= filename pub-dir f)))(org-publish-org-to-html) mapc((lambda (f) (when (org-publish-needed-p filename pub-dir f tmp-pub-d= ir) (funcall f project-plist filename tmp-pub-dir) (org-publish-update-time= stamp filename pub-dir f))) (org-publish-org-to-html org-publish-org-to-org= )) (if (listp publishing-function) (mapc (lambda ... ...) publishing-functio= n) (when (org-publish-needed-p filename pub-dir publishing-function tmp-pub= -dir) (funcall publishing-function project-plist filename tmp-pub-dir) (org= -publish-update-timestamp filename pub-dir publishing-function))) (let* ((project ...) (project-plist ...) (ftname ...) (publishing-functio= n ...) (base-dir ...) (pub-dir ...) tmp-pub-dir) (unless no-cache (org-publ= ish-initialize-cache ...)) (setq tmp-pub-dir (file-name-directory ...)) (if= (listp publishing-function) (mapc ... publishing-function) (when ... ... .= ..)) (unless no-cache (org-publish-write-cache-file))) org-publish-file("/home/bernt/git/doc.norang.ca/wiring.org" ("doc-org" :b= ase-directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@w= ww:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-cont= ents nil :base-extension "org" :publishing-function (org-publish-org-to-htm= l org-publish-org-to-org) :plain-source t :htmlized-source t :style-include= -default nil :style "" :author-info nil :creator-info nil) t) (while (setq file (pop files)) (org-publish-file file project t)) (let* ((project-plist ...) (exclude-regexp ...) (sitemap-p ...) (sitemap-= filename ...) (sitemap-function ...) (preparation-function ...) (completion= -function ...) (files ...) file) (when preparation-function (run-hooks ...)= ) (if sitemap-p (funcall sitemap-function project sitemap-filename)) (while= (setq file ...) (org-publish-file file project t)) (when (plist-get projec= t-plist :makeindex) (org-publish-index-generate-theindex\.inc ...) (org-pub= lish-file ... project t)) (when completion-function (run-hooks ...)) (org-p= ublish-write-cache-file)) (lambda (project) (org-publish-initialize-cache (car project)) (let* (...= ... ... ... ... ... ... ... file) (when preparation-function ...) (if site= map-p ...) (while ... ...) (when ... ... ...) (when completion-function ...= ) (org-publish-write-cache-file)))(("doc-org" :base-directory "~/git/doc.no= rang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" = :recursive t :section_numbers nil :table-of-contents nil :base-extension "o= rg" :publishing-function (org-publish-org-to-html org-publish-org-to-org) := plain-source t :htmlized-source t :style-include-default nil :style "" :author-in= fo nil :creator-info nil)) mapc((lambda (project) (org-publish-initialize-cache (car project)) (let*= (... ... ... ... ... ... ... ... file) (when preparation-function ...) (if= sitemap-p ...) (while ... ...) (when ... ... ...) (when completion-functio= n ...) (org-publish-write-cache-file))) (("doc-org" :base-directory "~/git/= doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/ht= docs" :recursive t :section_numbers nil :table-of-contents nil :base-extens= ion "org" :publishing-function (org-publish-org-to-html org-publish-org-to-= org) :plain-source t :htmlized-source t :style-include-default nil :style "= " :aut= hor-info nil :creator-info nil) ("doc-extra" :base-directory "~/git/doc.nor= ang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" := base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-function org-publi= sh-attachment :recursive t :author nil) ("doc-org-mode" :base-directory "~/= git/org-mode-doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca= /htdocs" :recursive t :section_numbers nil :table-of-contents nil :base-ext= ension "org" :publishing-function (org-publish-org-to-html org-publish-org-= to-org) :plain-source t :htmlized-source t :style-include-default nil :styl= e "" := author-info nil :creator-info nil) ("doc-org-mode-extra" :base-directory "~= /git/org-mode-doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.c= a/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-functio= n org-publish-attachment :recursive t :author nil))) org-publish-projects((("doc" :components ("doc-org" "doc-extra" "doc-org-= mode" "doc-org-mode-extra")))) (let* ((org-publish-use-timestamps-flag ...)) (org-publish-projects (list= project))) (save-window-excursion (let* (...) (org-publish-projects ...))) org-publish(("doc" :components ("doc-org" "doc-extra" "doc-org-mode" "doc= -org-mode-extra"))) (let ((project ...) (org-publish-use-timestamps-flag ...)) (if (not proje= ct) (error "File %s is not part of any known project" ...)) (org-publish pr= oject)) (save-window-excursion (let (... ...) (if ... ...) (org-publish project))) org-publish-current-project() bh/save-then-publish() call-interactively(bh/save-then-publish) Emacs : GNU Emacs 22.2.1 (i486-pc-linux-gnu, GTK+ Version 2.12.11) of 2008-11-09 on raven, modified by Debian Package: Org-mode version 6.36trans (release_6.36.98.g15539)