From mboxrd@z Thu Jan  1 00:00:00 1970
From: Carsten Dominik <carsten.dominik@gmail.com>
Subject: Re: Bug: Publish cache files have invalid read syntax for Emacs 22
 [6.36trans (release_6.36.98.g15539)]
Date: Tue, 25 May 2010 13:43:23 +0200
Message-ID: <0C98C8BE-14AA-4C79-B833-39E3AE58F7E2@gmail.com>
References: <87aarolk5y.fsf@gollum.intra.norang.ca>
Mime-Version: 1.0 (Apple Message framework v936)
Content-Type: text/plain; charset=ISO-8859-1; format=flowed; delsp=yes
Content-Transfer-Encoding: quoted-printable
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from [140.186.70.92] (port=42754 helo=eggs.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1OGsXj-0005Fq-Fr
	for emacs-orgmode@gnu.org; Tue, 25 May 2010 07:43:33 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69)
	(envelope-from <carsten.dominik@gmail.com>) id 1OGsXg-0004NW-DF
	for emacs-orgmode@gnu.org; Tue, 25 May 2010 07:43:31 -0400
Received: from mail-wy0-f169.google.com ([74.125.82.169]:50072)
	by eggs.gnu.org with esmtp (Exim 4.69)
	(envelope-from <carsten.dominik@gmail.com>) id 1OGsXf-0004NO-RI
	for emacs-orgmode@gnu.org; Tue, 25 May 2010 07:43:28 -0400
Received: by wyf22 with SMTP id 22so755701wyf.0
	for <emacs-orgmode@gnu.org>; Tue, 25 May 2010 04:43:26 -0700 (PDT)
In-Reply-To: <87aarolk5y.fsf@gollum.intra.norang.ca>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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: Bernt Hansen <bernt@norang.ca>
Cc: emacs-orgmode@gnu.org

Hi Bernt,

I believe this is fixed now.

- Carsten

On May 25, 2010, at 5:44 AM, Bernt Hansen wrote:

>
> 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?  =20=

> 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
> |   #<hash-table 'equal nil 74/100 0x91e7e00>)
> `----
>
> Debugger entered--Lisp error: (invalid-read-syntax "#")
>  eval-buffer(#<buffer  *load*> nil "/home/bernt/.org-timestamps/doc-=20=

> org.cache" nil t)  ; Reading at buffer position 28
>  load-with-code-conversion("/home/bernt/.org-timestamps/doc-=20
> org.cache" "/home/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-=20=

> file)) (unless org-publish-cache (setq org-publish-cache ...) (org-=20
> publish-cache-set ":project:" project-name) (org-publish-cache-set =20
> ":cache-file:" cache-file)) (unless cexists (org-publish-write-cache-=20=

> file nil)))
>  (if (and org-publish-cache (string=3D ... project-name)) nil (when =20=

> org-publish-cache (org-publish-reset-cache)) (let* (... ...) (if =20
> cexists ...) (unless org-publish-cache ... ... ...) (unless =20
> cexists ...)))
>  (unless (and org-publish-cache (string=3D ... project-name)) (when =20=

> org-publish-cache (org-publish-reset-cache)) (let* (... ...) (if =20
> cexists ...) (unless org-publish-cache ... ... ...) (unless =20
> cexists ...)))
>  org-publish-initialize-cache("doc-org")
>  (lambda (project) (org-publish-initialize-cache (car project)) =20
> (let* (... ... ... ... ... ... ... ... file) (when preparation-=20
> function ...) (if sitemap-p ...) (while ... ...) (when ... ... ...) =20=

> (when completion-function ...) (org-publish-write-cache-file)))=20
> (("doc-org" :base-directory "~/git/doc.norang.ca/" :publishing-=20
> directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive =20
> t :section_numbers nil :table-of-contents nil :base-extension =20
> "org" :publishing-function (org-publish-org-to-html org-publish-org-=20=

> to-org) :plain-source t :htmlized-source t :style-include-default =20
> nil :style "<link rel=3D\"stylesheet\" href=3D\"/org.css\" =
type=3D\"text/=20
> css\" />" :author-info nil :creator-info nil))
>  mapc((lambda (project) (org-publish-initialize-cache (car project)) =20=

> (let* (... ... ... ... ... ... ... ... file) (when preparation-=20
> function ...) (if sitemap-p ...) (while ... ...) (when ... ... ...) =20=

> (when completion-function ...) (org-publish-write-cache-file))) =20
> (("doc-org" :base-directory "~/git/doc.norang.ca/" :publishing-=20
> directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive =20
> t :section_numbers nil :table-of-contents nil :base-extension =20
> "org" :publishing-function (org-publish-org-to-html org-publish-org-=20=

> to-org) :plain-source t :htmlized-source t :style-include-default =20
> nil :style "<link rel=3D\"stylesheet\" href=3D\"/org.css\" =
type=3D\"text/=20
> css\" />" :author-info nil :creator-info nil) ("doc-extra" :base-=20
> directory "~/git/doc.norang.ca/" :publishing-directory =
"/ssh:www-data@www=20
> :~/doc.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|=20
> gif" :publishing-function org-publish-attachment :recursive =20
> t :author nil) ("doc-org-mode" :base-directory "~/git/org-mode-=20
> doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/=20
> htdocs" :recursive t :section_numbers nil :table-of-contents =20
> nil :base-extension "org" :publishing-function (org-publish-org-to-=20
> html org-publish-org-to-org) :plain-source t :htmlized-source =20
> t :style-include-default nil :style "<link rel=3D\"stylesheet\" href=3D=20=

> \"/org.css\" type=3D\"text/css\" />" :author-info nil :creator-info =20=

> nil) ("doc-org-mode-extra" :base-directory "~/git/org-mode-=20
> doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/=20
> htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-=20
> function org-publish-attachment :recursive t :author nil)))
>  org-publish-projects((("doc" :components ("doc-org" "doc-extra" =20
> "doc-org-mode" "doc-org-mode-extra"))))
>  (let* ((org-publish-use-timestamps-flag ...)) (org-publish-projects =20=

> (list project)))
>  (save-window-excursion (let* (...) (org-publish-projects ...)))
>  org-publish(("doc" :components ("doc-org" "doc-extra" "doc-org-=20
> mode" "doc-org-mode-extra")))
>  (let ((project ...) (org-publish-use-timestamps-flag ...)) (if (not =20=

> project) (error "File %s is not part of any known project" ...)) =20
> (org-publish project))
>  (save-window-excursion (let (... ...) (if ... ...) (org-publish =20
> project)))
>  org-publish-current-project()
>  bh/save-then-publish()
>  call-interactively(bh/save-then-publish)
>  recursive-edit()
>  byte-code("=C6=10	@=C7=3D=83!=C8=C9=CA\"=88=CB=C9!=89=1AA@)=A2=CC=3D=
=83!=C8=CD=CA\"=88=CE=0B!=88=CF =88=D0	!=88\f=83c=D1ed\"
> V=83Web=88=D2
> =A5y=88`=1E=1Bdb=88=D2
> =A5
> Zy=88=0E=1B`|=88)=D3c=88eb=88=D4=D5=D6 \"=88=D7 =88=D4=D8!=88=D9=CA=1E=1C=
=1E=1D=D4=D8!=88=8A=DA =88+=D9=87" [unread-command-char =20
> debugger-args x debugger-buffer noninteractive debugger-batch-max-=20
> lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-=20
> buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" =20
> message "%s" buffer-string kill-emacs "" nil recursive-edit =20
> 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 ...) =20
> (type ...) (thefile ...)) (cond (... ...) (t)) (setq thefile =20
> (let ... ...)) (if (and may-inline-p ...) (progn ... ...) (concat =20
> "<a href=3D\"" thefile "\"" attr ">" ... "</a>")))
>  (progn (let* (... ... ... ... ...) (cond ... ...) (setq =20
> thefile ...) (if ... ... ...)))
>  (unwind-protect (progn (let* ... ... ... ...)) (set-match-data save-=20=

> match-data-internal (quote evaporate)))
>  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) =20
> (set-match-data save-match-data-internal ...)))
>  (save-match-data (let* (... ... ... ... ...) (cond ... ...) (setq =20
> thefile ...) (if ... ... ...)))
>  org-html-make-link((:latex-image-options "width=3D10em" :exclude-tags =
=20
> ("noexport") :select-tags ("export") :email =20
> "bernt@norang.ca" :author "Bernt Hansen" :auto-postamble t :auto-=20
> preamble t :postamble nil :preamble nil :publishing-directory =
"/ssh:www-data@www=20
> :~/doc.norang.ca/htdocs" :timestamp nil :expand-quoted-html t :html-=20=

> table-tag "<table border=3D\"2\" cellspacing=3D\"0\" cellpadding=3D\"6\"=
 =20
> rules=3D\"groups\" frame=3D\"hsides\">" :xml-declaration (("html" . =
"<?=20
> xml version=3D\"1.0\" encoding=3D\"%s\"?>") ("php" . "<?php echo =
\"<?xml =20
> version=3D\\\"1.0\\\" encoding=3D\\\"%s\\\" ?>\"; ?>")) =
:html-extension =20
> "html" :inline-images t :convert-org-links t :agenda-style "" :style-=20=

> extra "<link rel=3D\"stylesheet\" href=3D\"http://doc.norang.ca/org.css=20=

> \" type=3D\"text/css\" />" :style "<link rel=3D\"stylesheet\" href=3D\"/=
=20
> org.css\" type=3D\"text/css\" />" :style-include-scripts t :style-=20
> include-default nil :table-auto-headline t :tables t :time-stamp-=20
> file t ...) "file" =20
> #("cat5_7956760a6b96bf17f5fb7bbb048d0b1645831aa7.png" 0 4 (org-attr =20=

> nil face org-link org-label nil org-attributes nil org-caption nil =20
> font-lock-fontified t fontified t org-protected t org-no-description =20=

> t) 4 40 (org-attr nil face org-link org-label nil org-attributes nil =20=

> org-caption nil org-protected t org-no-description t) 40 46 (org-=20
> attr nil face org-link org-label nil org-attributes nil org-caption =20=

> nil org-protected t org-no-description t) 46 49 (org-attr nil face =20
> org-link org-label nil org-attributes nil org-caption nil font-lock-=20=

> fontified t fontified t org-protected t org-no-description t)) nil =20
> #("cat5_7956760a6b96bf17f5fb7bbb048d0b1645831aa7.png" 0 4 (face org-=20=

> link fontified t font-lock-fontified t org-caption nil org-=20
> attributes nil org-label nil) 4 40 (face org-link org-caption nil =20
> org-attributes nil org-label nil) 40 46 (face org-link org-caption =20
> nil org-attributes nil org-label nil) 46 49 (face org-link fontified =20=

> t font-lock-fontified t org-caption nil org-attributes nil org-label =20=

> nil)) nil 45)
>  (if (and (functionp link-validate) (not ...)) desc (org-html-make-=20
> link opt-plist "file" path-1 fragment-1 desc-2 attr (org-html-should-=20=

> inline-p path-1 descp)))
>  (setq rpl (if (and ... ...) desc (org-html-make-link opt-plist =20
> "file" path-1 fragment-1 desc-2 attr ...)))
>  (let* ((components ...) (path-1 ...) (fragment-0 ...) =20
> (fragment-1 ...) (desc-2 ...)) (setq rpl (if ... desc ...)))
>  (progn (let* (... ... ... ... ...) (setq rpl ...)))
>  (unwind-protect (progn (let* ... ...)) (set-match-data save-match-=20
> data-internal (quote evaporate)))
>  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) =20
> (set-match-data save-match-data-internal ...)))
>  (save-match-data (let* (... ... ... ... ...) (setq rpl ...)))
>  (cond ((equal type "internal") (let ... ...)) ((and ... ...) (save-=20=

> match-data ... ...)) ((member type ...) (setq rpl ...)) ((member =20
> type ...) (setq rpl ...)) ((string=3D type "coderef") (let* ... ...)) =20=

> ((functionp ...) (setq rpl ...)) ((string=3D type "file") (save-match-=20=

> data ...)) (t (setq rpl ...)))
>  (while (string-match org-bracket-link-analytic-regexp++ line start) =20=

> (setq start (match-beginning 0)) (setq path (save-match-data ...)) =20
> (setq type (cond ... ... ...)) (setq path (org-extract-=20
> attributes ...)) (setq attr (get-text-property 0 ... path)) (setq =20
> desc1 (if ... ...) desc2 (if ... ... path) descp (and desc1 ...) =20
> desc (or desc1 desc2)) (cond (... ...) (... ...) (... ...) (... ...) =20=

> (... ...) (... ...) (... ...) (t ...)) (setq line (replace-match rpl =20=

> t t line) start (+ start ...)))
>  (catch (quote nextline) (when (and inquote ...) (insert "</pre>\n") =20=

> (org-open-par) (setq inquote nil)) (when inquote (insert ... "\n") =20
> (throw ... nil)) (when (and org-export-with-fixed-width ...) =20
> (when ... ... ... ...) (insert ... "\n") (when ... ... ... ...) =20
> (throw ... nil)) (org-export-html-close-lists-maybe line) (when (get-=20=

> text-property 0 ... line) (let ... ... ... ... ...) (throw ... nil)) =20=

> (when (equal "ORG-BLOCKQUOTE-START" line) (org-close-par-maybe) =20
> (insert "<blockquote>\n") (org-open-par) (throw ... nil)) (when =20
> (equal "ORG-BLOCKQUOTE-END" line) (org-close-par-maybe) (insert "\n</=20=

> blockquote>\n") (org-open-par) (throw ... nil)) (when (equal "ORG-=20
> VERSE-START" line) (org-close-par-maybe) (insert "\n<p class=3D\"verse=20=

> \">\n") (setq org-par-open t) (setq inverse t) (throw ... nil)) =20
> (when (equal "ORG-VERSE-END" line) (insert "</p>\n") (setq org-par-=20
> open nil) (org-open-par) (setq inverse nil) (throw ... nil)) (when =20
> (equal "ORG-CENTER-START" line) (org-close-par-maybe) (insert =20
> "\n<div style=3D\"text-align: center\">") (org-open-par) (throw ... =20=

> nil)) (when (equal "ORG-CENTER-END" line) (org-close-par-maybe) =20
> (insert "\n</div>") (org-open-par) (throw ... nil)) (run-hooks =20
> (quote org-export-html-after-blockquotes-hook)) (when inverse =20
> (let ... ... ...)) (setq start 0) (while (string-match "<<<?\\([^<>]*=20=

> \\)>>>?\\((INVISIBLE)\\)?[ 	]*\n?" line start) =20
> (cond ... ... ... ...)) (setq line (org-html-handle-time-stamps =20
> line)) (or (string-match org-table-hline-regexp line) (setq =20
> line ...)) (setq start 0) (while (string-match org-bracket-link-=20
> analytic-regexp++ line start) (setq start ...) (setq path ...) (setq =20=

> type ...) (setq path ...) (setq attr ...) (setq desc1 ... desc2 ... =20=

> descp ... desc ...) (cond ... ... ... ... ... ... ... ...) (setq =20
> line ... start ...)) (if (and ... ...) (setq line ...)) (when org-=20
> export-with-footnotes (setq start 0) (while ... ...)) (cond =20
> (... ... ... ... ... ... ... ...) (... ... ...) (... ... ... ...) =20
> (t ... ... ... ... ... ... ...)))
>  (while (setq line (pop lines) origline line) (catch (quote =20
> nextline) (when ... ... ... ...) (when inquote ... ...) =20
> (when ... ... ... ... ...) (org-export-html-close-lists-maybe line) =20=

> (when ... ... ...) (when ... ... ... ... ...) =20
> (when ... ... ... ... ...) (when ... ... ... ... ... ...) =20
> (when ... ... ... ... ... ...) (when ... ... ... ... ...) =20
> (when ... ... ... ... ...) (run-hooks ...) (when inverse ...) (setq =20=

> start 0) (while ... ...) (setq line ...) (or ... ...) (setq start 0) =20=

> (while ... ... ... ... ... ... ... ... ...) (if ... ...) (when org-=20
> export-with-footnotes ... ...) (cond ... ... ... ...)))
>  (let ((case-fold-search nil) (org-odd-levels-only odd)) (mapc =20
> (lambda ... ...) org-export-plist-vars) (setq umax (if arg ... org-=20
> export-headline-levels)) (setq umax-toc (if ... ... umax)) (unless =20
> body-only (insert ...) (org-export-html-insert-plist-item opt-=20
> plist :preamble opt-plist) (when ... ...)) (if (and org-export-with-=20=

> toc ...) (progn ... ... ... ... ... ... ...)) (setq head-count 0) =20
> (org-init-section-numbers) (org-open-par) (while (setq line ... =20
> origline line) =20
> (catch=20
>  ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... =
... ... ... ... ... ...)) (when=20
>  inquote (insert "</pre>\n") (org-open-par)) (when in-local-list =20
> (while local-list-type ... ... ...) (setq local-list-indent nil in-=20
> local-list nil)) (org-html-level-start 1 nil umax (and org-export-=20
> with-toc ...) head-count) (when (and ... first-heading-pos) (insert =20=

> "</div>\n")) (save-excursion (goto-char ...) (while ... ... ...)) =20
> (when footnotes (insert ... "\n")) (let (...) (when bib ...)) =20
> (unless body-only (when ... ... ... ... ... ... ...) (if org-export-=20=

> html-with-timestamp ...) (org-export-html-insert-plist-item opt-=20
> plist :postamble opt-plist) (insert "\n</div>\n</body>\n</html>\n")) =20=

> (unless (plist-get opt-plist :buffer-will-be-killed) (normal-mode) =20
> (if ... ...)) (goto-char (point-min)) (when thetoc =20
> (if ... ... ... ...) (insert "<div id=3D\"table-of-contents\">\n") =20
> (mapc ... thetoc) (insert "</div>\n")) (goto-char (point-min)) =20
> (while (re-search-forward "<p>[
> \n	]*</p>" nil t) (replace-match "")) (goto-char (point-min)) =
(while =20
> (re-search-forward "<li>[
> \n	]*</li>\n?" nil t) (replace-match "")) (goto-char (point-min)) =20=

> (while (re-search-forward "</ul>\\s-*<ul>\n?" nil t) (replace-match =20=

> "")) (goto-char (point-min)) (let (beg end n) =20
> (while ... ... ... ... ...)) (goto-char (point-min)) (when (looking-=20=

> at "\\s-+\n") (replace-match "")) (remove-text-properties (point-=20
> min) (point-max) (quote ...)) (run-hooks (quote org-export-html-=20
> final-hook)) (or to-buffer (save-buffer)) (goto-char (point-min)) =20
> (or (org-export-push-to-kill-ring "HTML") (message "Exporting... =20
> done")) (if (eq to-buffer ...) (prog1 ... ...) (current-buffer)))
>  (let* ((opt-plist ...) (body-only ...) (style ...) (html-=20
> extension ...) (link-validate ...) valid thetoc have-headings first-=20=

> heading-pos (odd org-odd-levels-only) (region-p ...) (rbeg ...) =20
> (rend ...) (subtree-p ...) (level-offset ...) (opt-plist ...) (org-=20
> current-export-dir ...) (org-current-export-file buffer-file-name) =20
> (level 0) (line "") (origline "") txt todo (umax nil) (umax-toc nil) =20=

> (filename ...) (current-dir ...) (buffer ...) (org-levels-open ...) =20=

> (date ...) (author ...) (title ...) (link-up ...) (link-home ...) =20
> (dummy ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...) =20
> (inquote nil) (infixed nil) (inverse nil) (in-local-list nil) (local-=20=

> list-type nil) (local-list-indent nil) (llt org-plain-list-ordered-=20
> item-terminator) (email ...) (language ...) (keywords ...) =20
> (description ...) (lang-words nil) ...) (let (...) (org-=20
> unmodified ...)) (message "Exporting...") (setq org-min-level (org-=20
> get-min-level lines level-offset)) (setq org-last-level org-min-=20
> level) (org-init-section-numbers) (cond (... ...) (date) (t ...)) =20
> (setq lang-words (or ... ...)) (set-buffer buffer) (let (...) (erase-=20=

> buffer)) (fundamental-mode) (org-install-letbind) (and (fboundp ...) =20=

> (set-buffer-file-coding-system coding-system-for-write)) (let =20
> (... ...) (mapc ... org-export-plist-vars) (setq umax ...) (setq =20
> umax-toc ...) (unless body-only ... ... ...) (if ... ...) (setq head-=20=

> count 0) (org-init-section-numbers) (org-open-par) (while ... ...) =20
> (when inquote ... ...) (when in-local-list ... ...) (org-html-level-=20=

> start 1 nil umax ... head-count) (when ... ...) (save-=20
> excursion ... ...) (when footnotes ...) (let ... ...) (unless body-=20
> only ... ... ... ...) (unless ... ... ...) (goto-char ...) (when =20
> thetoc ... ... ... ...) (goto-char ...) (while ... ...) (goto-=20
> char ...) (while ... ...) (goto-char ...) (while ... ...) (goto-=20
> char ...) (let ... ...) (goto-char ...) (when ... ...) (remove-text-=20=

> properties ... ... ...) (run-hooks ...) (or to-buffer ...) (goto-=20
> char ...) (or ... ...) (if ... ... ...)))
>  org-export-as-html(nil nil (:buffer-will-be-killed t :base-=20
> directory "~/git/doc.norang.ca/" :publishing-directory =
"/ssh:www-data@www=20
> :~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-=20=

> contents nil :base-extension "org" :publishing-function (org-publish-=20=

> org-to-html org-publish-org-to-org) :plain-source t :htmlized-source =20=

> t :style-include-default nil :style "<link rel=3D\"stylesheet\" href=3D=20=

> \"/org.css\" type=3D\"text/css\" />" :author-info nil :creator-info =20=

> 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-=20=

> directory "~/git/doc.norang.ca/" :publishing-directory =
"/ssh:www-data@www=20
> :~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-=20=

> contents nil :base-extension "org" :publishing-function (org-publish-=20=

> org-to-html org-publish-org-to-org) :plain-source t :htmlized-source =20=

> t :style-include-default nil :style "<link rel=3D\"stylesheet\" href=3D=20=

> \"/org.css\" type=3D\"text/css\" />" :author-info nil :creator-info =20=

> nil) nil nil "/ssh:www-data@www:/var/www/doc.norang.ca/htdocs/")
>  (setq export-buf-or-file (funcall (intern ...) (plist-get =20
> plist :headline-levels) nil plist nil nil pub-dir))
>  (let* ((plist ...) (init-buf ...) (init-point ...) (init-buf-=20
> string ...) export-buf-or-file) (run-hooks (quote org-publish-before-=20=

> export-hook)) (setq export-buf-or-file (funcall ... ... nil plist =20
> nil nil pub-dir)) (when (and ... ...) (set-buffer export-buf-or-=20
> file) (progn ... ...) (kill-buffer export-buf-or-file)) (set-buffer =20=

> init-buf) (when (buffer-modified-p init-buf) (erase-buffer) (insert =20=

> init-buf-string) (save-buffer) (goto-char init-point)) (unless =20
> visiting (kill-buffer init-buf)))
>  (save-excursion (switch-to-buffer (or visiting ...)) (let* =20
> (... ... ... ... export-buf-or-file) (run-hooks ...) (setq export-=20
> buf-or-file ...) (when ... ... ... ...) (set-buffer init-buf) =20
> (when ... ... ... ... ...) (unless visiting ...)))
>  (let ((visiting ...)) (save-excursion (switch-to-buffer ...) =20
> (let* ... ... ... ... ... ... ...)))
>  org-publish-org-to("html" (:base-directory "~/git/=20
> doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/=20
> doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-=20
> contents nil :base-extension "org" :publishing-function (org-publish-=20=

> org-to-html org-publish-org-to-org) :plain-source t :htmlized-source =20=

> t :style-include-default nil :style "<link rel=3D\"stylesheet\" href=3D=20=

> \"/org.css\" type=3D\"text/css\" />" :author-info nil :creator-info =20=

> nil) "/home/bernt/git/doc.norang.ca/wiring.org" =
"/ssh:www-data@www:/var/www/doc.norang.ca/htdocs/=20
> ")
>  (let ((org-export-preprocess-after-headline-targets-hook ...)) (org-=20=

> publish-org-to "html" plist filename pub-dir))
>  (org-publish-with-aux-preprocess-maybe (org-publish-org-to "html" =20
> plist filename pub-dir))
>  org-publish-org-to-html((:base-directory "~/git/=20
> doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/=20
> doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-=20
> contents nil :base-extension "org" :publishing-function (org-publish-=20=

> org-to-html org-publish-org-to-org) :plain-source t :htmlized-source =20=

> t :style-include-default nil :style "<link rel=3D\"stylesheet\" href=3D=20=

> \"/org.css\" type=3D\"text/css\" />" :author-info nil :creator-info =20=

> nil) "/home/bernt/git/doc.norang.ca/wiring.org" =
"/ssh:www-data@www:/var/www/doc.norang.ca/htdocs/=20
> ")
>  funcall(org-publish-org-to-html (:base-directory "~/git/=20
> doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/=20
> doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-=20
> contents nil :base-extension "org" :publishing-function (org-publish-=20=

> org-to-html org-publish-org-to-org) :plain-source t :htmlized-source =20=

> t :style-include-default nil :style "<link rel=3D\"stylesheet\" href=3D=20=

> \"/org.css\" type=3D\"text/css\" />" :author-info nil :creator-info =20=

> nil) "/home/bernt/git/doc.norang.ca/wiring.org" =
"/ssh:www-data@www:/var/www/doc.norang.ca/htdocs/=20
> ")
>  (progn (funcall f project-plist filename tmp-pub-dir) (org-publish-=20=

> update-timestamp filename pub-dir f))
>  (if (org-publish-needed-p filename pub-dir f tmp-pub-dir) (progn =20
> (funcall f project-plist filename tmp-pub-dir) (org-publish-update-=20
> timestamp filename pub-dir f)))
>  (when (org-publish-needed-p filename pub-dir f tmp-pub-dir) =20
> (funcall f project-plist filename tmp-pub-dir) (org-publish-update-=20
> timestamp filename pub-dir f))
>  (lambda (f) (when (org-publish-needed-p filename pub-dir f tmp-pub-=20=

> dir) (funcall f project-plist filename tmp-pub-dir) (org-publish-=20
> update-timestamp filename pub-dir f)))(org-publish-org-to-html)
>  mapc((lambda (f) (when (org-publish-needed-p filename pub-dir f tmp-=20=

> pub-dir) (funcall f project-plist filename tmp-pub-dir) (org-publish-=20=

> update-timestamp filename pub-dir f))) (org-publish-org-to-html org-=20=

> publish-org-to-org))
>  (if (listp publishing-function) (mapc (lambda ... ...) publishing-=20
> function) (when (org-publish-needed-p filename pub-dir publishing-=20
> function tmp-pub-dir) (funcall publishing-function project-plist =20
> filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir =20=

> publishing-function)))
>  (let* ((project ...) (project-plist ...) (ftname ...) (publishing-=20
> function ...) (base-dir ...) (pub-dir ...) tmp-pub-dir) (unless no-=20
> cache (org-publish-initialize-cache ...)) (setq tmp-pub-dir (file-=20
> name-directory ...)) (if (listp publishing-function) (mapc ... =20
> publishing-function) (when ... ... ...)) (unless no-cache (org-=20
> publish-write-cache-file)))
>  org-publish-file("/home/bernt/git/doc.norang.ca/wiring.org" ("doc-=20
> org" :base-directory "~/git/doc.norang.ca/" :publishing-directory =
"/ssh:www-data@www=20
> :~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-=20=

> contents nil :base-extension "org" :publishing-function (org-publish-=20=

> org-to-html org-publish-org-to-org) :plain-source t :htmlized-source =20=

> t :style-include-default nil :style "<link rel=3D\"stylesheet\" href=3D=20=

> \"/org.css\" type=3D\"text/css\" />" :author-info nil :creator-info =20=

> nil) t)
>  (while (setq file (pop files)) (org-publish-file file project t))
>  (let* ((project-plist ...) (exclude-regexp ...) (sitemap-p ...) =20
> (sitemap-filename ...) (sitemap-function ...) (preparation-=20
> function ...) (completion-function ...) (files ...) file) (when =20
> preparation-function (run-hooks ...)) (if sitemap-p (funcall sitemap-=20=

> function project sitemap-filename)) (while (setq file ...) (org-=20
> publish-file file project t)) (when (plist-get project-=20
> plist :makeindex) (org-publish-index-generate-theindex\.inc ...) =20
> (org-publish-file ... project t)) (when completion-function (run-=20
> hooks ...)) (org-publish-write-cache-file))
>  (lambda (project) (org-publish-initialize-cache (car project)) =20
> (let* (... ... ... ... ... ... ... ... file) (when preparation-=20
> function ...) (if sitemap-p ...) (while ... ...) (when ... ... ...) =20=

> (when completion-function ...) (org-publish-write-cache-file)))=20
> (("doc-org" :base-directory "~/git/doc.norang.ca/" :publishing-=20
> directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive =20
> t :section_numbers nil :table-of-contents nil :base-extension =20
> "org" :publishing-function (org-publish-org-to-html org-publish-org-=20=

> to-org) :plain-source t :htmlized-source t :style-include-default =20
> nil :style "<link rel=3D\"stylesheet\" href=3D\"/org.css\" =
type=3D\"text/=20
> css\" />" :author-info nil :creator-info nil))
>  mapc((lambda (project) (org-publish-initialize-cache (car project)) =20=

> (let* (... ... ... ... ... ... ... ... file) (when preparation-=20
> function ...) (if sitemap-p ...) (while ... ...) (when ... ... ...) =20=

> (when completion-function ...) (org-publish-write-cache-file))) =20
> (("doc-org" :base-directory "~/git/doc.norang.ca/" :publishing-=20
> directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive =20
> t :section_numbers nil :table-of-contents nil :base-extension =20
> "org" :publishing-function (org-publish-org-to-html org-publish-org-=20=

> to-org) :plain-source t :htmlized-source t :style-include-default =20
> nil :style "<link rel=3D\"stylesheet\" href=3D\"/org.css\" =
type=3D\"text/=20
> css\" />" :author-info nil :creator-info nil) ("doc-extra" :base-=20
> directory "~/git/doc.norang.ca/" :publishing-directory =
"/ssh:www-data@www=20
> :~/doc.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|=20
> gif" :publishing-function org-publish-attachment :recursive =20
> t :author nil) ("doc-org-mode" :base-directory "~/git/org-mode-=20
> doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/=20
> htdocs" :recursive t :section_numbers nil :table-of-contents =20
> nil :base-extension "org" :publishing-function (org-publish-org-to-=20
> html org-publish-org-to-org) :plain-source t :htmlized-source =20
> t :style-include-default nil :style "<link rel=3D\"stylesheet\" href=3D=20=

> \"/org.css\" type=3D\"text/css\" />" :author-info nil :creator-info =20=

> nil) ("doc-org-mode-extra" :base-directory "~/git/org-mode-=20
> doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/=20
> htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-=20
> function org-publish-attachment :recursive t :author nil)))
>  org-publish-projects((("doc" :components ("doc-org" "doc-extra" =20
> "doc-org-mode" "doc-org-mode-extra"))))
>  (let* ((org-publish-use-timestamps-flag ...)) (org-publish-projects =20=

> (list project)))
>  (save-window-excursion (let* (...) (org-publish-projects ...)))
>  org-publish(("doc" :components ("doc-org" "doc-extra" "doc-org-=20
> mode" "doc-org-mode-extra")))
>  (let ((project ...) (org-publish-use-timestamps-flag ...)) (if (not =20=

> project) (error "File %s is not part of any known project" ...)) =20
> (org-publish project))
>  (save-window-excursion (let (... ...) (if ... ...) (org-publish =20
> 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)
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten