emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] Bug: Publish cache files have invalid read syntax for Emacs 22


From: Bernt Hansen
Subject: [Orgmode] 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
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.2 (gnu/linux)

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
|   #<hash-table 'equal nil 74/100 0x91e7e00>)
`----

Debugger entered--Lisp error: (invalid-read-syntax "#")
  eval-buffer(#<buffer  *load*> nil "/home/bernt/.org-timestamps/doc-org.cache" 
nil t)  ; Reading at buffer position 28
  load-with-code-conversion("/home/bernt/.org-timestamps/doc-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-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= ... project-name)) nil (when 
org-publish-cache (org-publish-reset-cache)) (let* (... ...) (if cexists ...) 
(unless org-publish-cache ... ... ...) (unless cexists ...)))
  (unless (and org-publish-cache (string= ... project-name)) (when 
org-publish-cache (org-publish-reset-cache)) (let* (... ...) (if cexists ...) 
(unless 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 sitemap-p 
...) (while ... ...) (when ... ... ...) (when completion-function ...) 
(org-publish-write-cache-file)))(("doc-org" :base-directory 
"~/git/doc.norang.ca/" :publishing-directory 
"/ssh:address@hidden:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil 
:table-of-contents nil :base-extension "org" :publishing-function 
(org-publish-org-to-html org-publish-org-to-org) :plain-source t 
:htmlized-source t :style-include-default nil :style "<link rel=\"stylesheet\" 
href=\"/org.css\" type=\"text/css\" />" :author-info 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-function 
...) (org-publish-write-cache-file))) (("doc-org" :base-directory 
"~/git/doc.norang.ca/" :publishing-directory 
"/ssh:address@hidden:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil 
:table-of-contents nil :base-extension "org" :publishing-function 
(org-publish-org-to-html org-publish-org-to-org) :plain-source t 
:htmlized-source t :style-include-default nil :style "<link rel=\"stylesheet\" 
href=\"/org.css\" type=\"text/css\" />" :author-info nil :creator-info nil) 
("doc-extra" :base-directory "~/git/doc.norang.ca/" :publishing-directory 
"/ssh:address@hidden:~/doc.norang.ca/htdocs" :base-extension 
"css\\|pdf\\|png\\|jpg\\|gif" :publishing-function org-publish-attachment 
:recursive t :author nil) ("doc-org-mode" :base-directory "~/git/org-mode-doc/" 
:publishing-directory "/ssh:address@hidden:~/doc.norang.ca/htdocs" :recursive t 
:section_numbers nil :table-of-contents nil :base-extension "org" 
:publishing-function (org-publish-org-to-html org-publish-org-to-org) 
:plain-source t :htmlized-source t :style-include-default nil :style "<link 
rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />" :author-info nil 
:creator-info nil) ("doc-org-mode-extra" :base-directory "~/git/org-mode-doc/" 
:publishing-directory "/ssh:address@hidden:~/doc.norang.ca/htdocs" 
:base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-function 
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 project) 
(error "File %s is not part of any known project" ...)) (org-publish project))
  (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("Æ @Ç=ƒ!ÈÉÊ\"ˆËÉ!‰A@)¢Ì=ƒ!ÈÍÊ\"ˆÎ!ˆÏ ˆÐ        !ˆ\fƒcÑed\"
VƒWebˆÒ
¥yˆ`dbˆÒ
¥
Zyˆ`|ˆ)ÓcˆebˆÔÕÖ \"ˆ× ˆÔØ!ˆÙÊÔØ!ˆŠÚ ˆ+ه" [unread-command-char 
debugger-args x debugger-buffer noninteractive debugger-batch-max-lines -1 
debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode 
debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string 
kill-emacs "" nil recursive-edit 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 
may-inline-p ...) (progn ... ...) (concat "<a href=\"" thefile "\"" attr ">" 
... "</a>")))
  (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-match-data save-match-data-internal ...)))
  (save-match-data (let* (... ... ... ... ...) (cond ... ...) (setq thefile 
...) (if ... ... ...)))
  org-html-make-link((:latex-image-options "width=10em" :exclude-tags 
("noexport") :select-tags ("export") :email "address@hidden" :author "Bernt 
Hansen" :auto-postamble t :auto-preamble t :postamble nil :preamble nil 
:publishing-directory "/ssh:address@hidden:~/doc.norang.ca/htdocs" :timestamp 
nil :expand-quoted-html t :html-table-tag "<table border=\"2\" 
cellspacing=\"0\" cellpadding=\"6\" rules=\"groups\" frame=\"hsides\">" 
:xml-declaration (("html" . "<?xml version=\"1.0\" encoding=\"%s\"?>") ("php" . 
"<?php echo \"<?xml version=\\\"1.0\\\" encoding=\\\"%s\\\" ?>\"; ?>")) 
:html-extension "html" :inline-images t :convert-org-links t :agenda-style "" 
:style-extra "<link rel=\"stylesheet\" href=\"http://doc.norang.ca/org.css\"; 
type=\"text/css\" />" :style "<link rel=\"stylesheet\" href=\"/org.css\" 
type=\"text/css\" />" :style-include-scripts t :style-include-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-lock-fontified t 
fontified t org-protected t org-no-description t) 4 40 (org-attr 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-label nil 
org-attributes nil org-caption nil org-protected t org-no-description 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-description t)) nil 
#("cat5_7956760a6b96bf17f5fb7bbb048d0b1645831aa7.png" 0 4 (face org-link 
fontified t font-lock-fontified t org-caption nil org-attributes nil org-label 
nil) 4 40 (face org-link org-caption nil org-attributes nil org-label nil) 40 
46 (face org-link org-caption nil org-attributes nil org-label nil) 46 49 (face 
org-link fontified t font-lock-fontified t org-caption nil org-attributes nil 
org-label nil)) nil 45)
  (if (and (functionp link-validate) (not ...)) desc (org-html-make-link 
opt-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" path-1 
fragment-1 desc-2 attr ...)))
  (let* ((components ...) (path-1 ...) (fragment-0 ...) (fragment-1 ...) 
(desc-2 ...)) (setq rpl (if ... desc ...)))
  (progn (let* (... ... ... ... ...) (setq rpl ...)))
  (unwind-protect (progn (let* ... ...)) (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 (let* (... ... ... ... ...) (setq rpl ...)))
  (cond ((equal type "internal") (let ... ...)) ((and ... ...) (save-match-data 
... ...)) ((member type ...) (setq rpl ...)) ((member type ...) (setq rpl ...)) 
((string= type "coderef") (let* ... ...)) ((functionp ...) (setq rpl ...)) 
((string= 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 (cond 
... ... ...)) (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 "</pre>\n") 
(org-open-par) (setq inquote nil)) (when inquote (insert ... "\n") (throw ... 
nil)) (when (and org-export-with-fixed-width ...) (when ... ... ... ...) 
(insert ... "\n") (when ... ... ... ...) (throw ... nil)) 
(org-export-html-close-lists-maybe line) (when (get-text-property 0 ... line) 
(let ... ... ... ... ...) (throw ... nil)) (when (equal "ORG-BLOCKQUOTE-START" 
line) (org-close-par-maybe) (insert "<blockquote>\n") (org-open-par) (throw ... 
nil)) (when (equal "ORG-BLOCKQUOTE-END" line) (org-close-par-maybe) (insert 
"\n</blockquote>\n") (org-open-par) (throw ... nil)) (when (equal 
"ORG-VERSE-START" line) (org-close-par-maybe) (insert "\n<p 
class=\"verse\">\n") (setq org-par-open t) (setq inverse t) (throw ... nil)) 
(when (equal "ORG-VERSE-END" line) (insert "</p>\n") (setq org-par-open nil) 
(org-open-par) (setq inverse nil) (throw ... nil)) (when (equal 
"ORG-CENTER-START" line) (org-close-par-maybe) (insert "\n<div 
style=\"text-align: center\">") (org-open-par) (throw ... nil)) (when (equal 
"ORG-CENTER-END" line) (org-close-par-maybe) (insert "\n</div>") (org-open-par) 
(throw ... nil)) (run-hooks (quote org-export-html-after-blockquotes-hook)) 
(when inverse (let ... ... ...)) (setq start 0) (while (string-match 
"<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[   ]*\n?" line start) (cond ... ... ... 
...)) (setq line (org-html-handle-time-stamps line)) (or (string-match 
org-table-hline-regexp line) (setq line ...)) (setq start 0) (while 
(string-match org-bracket-link-analytic-regexp++ line 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) (when 
... ... ... ...) (when inquote ... ...) (when ... ... ... ... ...) 
(org-export-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-levels)) 
(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 line 
... origline line) (catch ... ... ... ... ... ... ... ... ... ... ... ... ... 
... ... ... ... ... ... ... ... ... ...)) (when inquote (insert "</pre>\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-heading-pos) (insert 
"</div>\n")) (save-excursion (goto-char ...) (while ... ... ...)) (when 
footnotes (insert ... "\n")) (let (...) (when bib ...)) (unless body-only (when 
... ... ... ... ... ... ...) (if org-export-html-with-timestamp ...) 
(org-export-html-insert-plist-item opt-plist :postamble opt-plist) (insert 
"\n</div>\n</body>\n</html>\n")) (unless (plist-get opt-plist 
:buffer-will-be-killed) (normal-mode) (if ... ...)) (goto-char (point-min)) 
(when thetoc (if ... ... ... ...) (insert "<div id=\"table-of-contents\">\n") 
(mapc ... thetoc) (insert "</div>\n")) (goto-char (point-min)) (while 
(re-search-forward "<p>[ 
\n      ]*</p>" nil t) (replace-match "")) (goto-char (point-min)) (while 
(re-search-forward "<li>[ 
\n      ]*</li>\n?" nil t) (replace-match "")) (goto-char (point-min)) (while 
(re-search-forward "</ul>\\s-*<ul>\n?" nil t) (replace-match "")) (goto-char 
(point-min)) (let (beg end n) (while ... ... ... ... ...)) (goto-char 
(point-min)) (when (looking-at "\\s-+\n") (replace-match "")) 
(remove-text-properties (point-min) (point-max) (quote ...)) (run-hooks (quote 
org-export-html-final-hook)) (or to-buffer (save-buffer)) (goto-char 
(point-min)) (or (org-export-push-to-kill-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-odd-levels-only) (region-p ...) (rbeg ...) (rend ...) (subtree-p ...) 
(level-offset ...) (opt-plist ...) (org-current-export-dir ...) 
(org-current-export-file buffer-file-name) (level 0) (line "") (origline "") 
txt todo (umax nil) (umax-toc nil) (filename ...) (current-dir ...) (buffer 
...) (org-levels-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) 
(email ...) (language ...) (keywords ...) (description ...) (lang-words nil) 
...) (let (...) (org-unmodified ...)) (message "Exporting...") (setq 
org-min-level (org-get-min-level lines level-offset)) (setq org-last-level 
org-min-level) (org-init-section-numbers) (cond (... ...) (date) (t ...)) (setq 
lang-words (or ... ...)) (set-buffer buffer) (let (...) (erase-buffer)) 
(fundamental-mode) (org-install-letbind) (and (fboundp ...) 
(set-buffer-file-coding-system coding-system-for-write)) (let (... ...) (mapc 
... org-export-plist-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-html-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 ...) (goto-char ...) (or ... ...) (if ... ... 
...)))
  org-export-as-html(nil nil (:buffer-will-be-killed t :base-directory 
"~/git/doc.norang.ca/" :publishing-directory 
"/ssh:address@hidden:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil 
:table-of-contents nil :base-extension "org" :publishing-function 
(org-publish-org-to-html org-publish-org-to-org) :plain-source t 
:htmlized-source t :style-include-default nil :style "<link rel=\"stylesheet\" 
href=\"/org.css\" type=\"text/css\" />" :author-info nil :creator-info nil) nil 
nil "/ssh:address@hidden:/var/www/doc.norang.ca/htdocs/")
  funcall(org-export-as-html nil nil (:buffer-will-be-killed t :base-directory 
"~/git/doc.norang.ca/" :publishing-directory 
"/ssh:address@hidden:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil 
:table-of-contents nil :base-extension "org" :publishing-function 
(org-publish-org-to-html org-publish-org-to-org) :plain-source t 
:htmlized-source t :style-include-default nil :style "<link rel=\"stylesheet\" 
href=\"/org.css\" type=\"text/css\" />" :author-info nil :creator-info nil) nil 
nil "/ssh:address@hidden:/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)) (setq 
export-buf-or-file (funcall ... ... nil plist nil nil pub-dir)) (when (and ... 
...) (set-buffer export-buf-or-file) (progn ... ...) (kill-buffer 
export-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 visiting 
...)))
  (let ((visiting ...)) (save-excursion (switch-to-buffer ...) (let* ... ... 
... ... ... ... ...)))
  org-publish-org-to("html" (:base-directory "~/git/doc.norang.ca/" 
:publishing-directory "/ssh:address@hidden:~/doc.norang.ca/htdocs" :recursive t 
:section_numbers nil :table-of-contents nil :base-extension "org" 
:publishing-function (org-publish-org-to-html org-publish-org-to-org) 
:plain-source t :htmlized-source t :style-include-default nil :style "<link 
rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />" :author-info nil 
:creator-info nil) "/home/bernt/git/doc.norang.ca/wiring.org" 
"/ssh:address@hidden:/var/www/doc.norang.ca/htdocs/")
  (let ((org-export-preprocess-after-headline-targets-hook ...)) 
(org-publish-org-to "html" plist filename pub-dir))
  (org-publish-with-aux-preprocess-maybe (org-publish-org-to "html" plist 
filename pub-dir))
  org-publish-org-to-html((:base-directory "~/git/doc.norang.ca/" 
:publishing-directory "/ssh:address@hidden:~/doc.norang.ca/htdocs" :recursive t 
:section_numbers nil :table-of-contents nil :base-extension "org" 
:publishing-function (org-publish-org-to-html org-publish-org-to-org) 
:plain-source t :htmlized-source t :style-include-default nil :style "<link 
rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />" :author-info nil 
:creator-info nil) "/home/bernt/git/doc.norang.ca/wiring.org" 
"/ssh:address@hidden:/var/www/doc.norang.ca/htdocs/")
  funcall(org-publish-org-to-html (:base-directory "~/git/doc.norang.ca/" 
:publishing-directory "/ssh:address@hidden:~/doc.norang.ca/htdocs" :recursive t 
:section_numbers nil :table-of-contents nil :base-extension "org" 
:publishing-function (org-publish-org-to-html org-publish-org-to-org) 
:plain-source t :htmlized-source t :style-include-default nil :style "<link 
rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />" :author-info nil 
:creator-info nil) "/home/bernt/git/doc.norang.ca/wiring.org" 
"/ssh:address@hidden:/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 filename 
pub-dir 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))
  (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-dir) 
(funcall f project-plist filename tmp-pub-dir) (org-publish-update-timestamp 
filename pub-dir f))) (org-publish-org-to-html org-publish-org-to-org))
  (if (listp publishing-function) (mapc (lambda ... ...) publishing-function) 
(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-function 
...) (base-dir ...) (pub-dir ...) tmp-pub-dir) (unless no-cache 
(org-publish-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" 
:base-directory "~/git/doc.norang.ca/" :publishing-directory 
"/ssh:address@hidden:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil 
:table-of-contents nil :base-extension "org" :publishing-function 
(org-publish-org-to-html org-publish-org-to-org) :plain-source t 
:htmlized-source t :style-include-default nil :style "<link rel=\"stylesheet\" 
href=\"/org.css\" type=\"text/css\" />" :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 project-plist :makeindex) 
(org-publish-index-generate-theindex\.inc ...) (org-publish-file ... project 
t)) (when completion-function (run-hooks ...)) (org-publish-write-cache-file))
  (lambda (project) (org-publish-initialize-cache (car project)) (let* (... ... 
... ... ... ... ... ... file) (when preparation-function ...) (if sitemap-p 
...) (while ... ...) (when ... ... ...) (when completion-function ...) 
(org-publish-write-cache-file)))(("doc-org" :base-directory 
"~/git/doc.norang.ca/" :publishing-directory 
"/ssh:address@hidden:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil 
:table-of-contents nil :base-extension "org" :publishing-function 
(org-publish-org-to-html org-publish-org-to-org) :plain-source t 
:htmlized-source t :style-include-default nil :style "<link rel=\"stylesheet\" 
href=\"/org.css\" type=\"text/css\" />" :author-info 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-function 
...) (org-publish-write-cache-file))) (("doc-org" :base-directory 
"~/git/doc.norang.ca/" :publishing-directory 
"/ssh:address@hidden:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil 
:table-of-contents nil :base-extension "org" :publishing-function 
(org-publish-org-to-html org-publish-org-to-org) :plain-source t 
:htmlized-source t :style-include-default nil :style "<link rel=\"stylesheet\" 
href=\"/org.css\" type=\"text/css\" />" :author-info nil :creator-info nil) 
("doc-extra" :base-directory "~/git/doc.norang.ca/" :publishing-directory 
"/ssh:address@hidden:~/doc.norang.ca/htdocs" :base-extension 
"css\\|pdf\\|png\\|jpg\\|gif" :publishing-function org-publish-attachment 
:recursive t :author nil) ("doc-org-mode" :base-directory "~/git/org-mode-doc/" 
:publishing-directory "/ssh:address@hidden:~/doc.norang.ca/htdocs" :recursive t 
:section_numbers nil :table-of-contents nil :base-extension "org" 
:publishing-function (org-publish-org-to-html org-publish-org-to-org) 
:plain-source t :htmlized-source t :style-include-default nil :style "<link 
rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />" :author-info nil 
:creator-info nil) ("doc-org-mode-extra" :base-directory "~/git/org-mode-doc/" 
:publishing-directory "/ssh:address@hidden:~/doc.norang.ca/htdocs" 
:base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-function 
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 project) 
(error "File %s is not part of any known project" ...)) (org-publish project))
  (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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]