Error with org-agenda-write

Error with org-agenda-write

[Ian Barton]

I haven't used this function for a while, but now get the following 
error. Backtrace below. I am using a recent git clone: 
338e89ef163406e5714a601567415689c478df6d

I am simply doing M-x org-agenda-export end entering a filename 
~/agenda.html.

Debugger entered--Lisp error: (wrong-type-argument symbolp (fixed-pitch 
link))
   internal-get-lisp-face-attribute((fixed-pitch link) :height nil)
   face-attribute((fixed-pitch link) :height)
   (setq h (face-attribute f :height))
   (while (progn (setq f (if --cl-var-- face (face-attribute f 
:inherit))) (not (or (not f) (eq f (quote unspecified))))) (setq h 
(face-attribute f :height)) (setq --cl-var-- (cons (if (eq h (quote 
unspecified)) nil h) --cl-var--)) (setq --cl-var-- nil))
   (let* ((f nil) (h nil) (--cl-var-- nil) (--cl-var-- t)) (while (progn 
(setq f (if --cl-var-- face (face-attribute f :inherit))) (not (or (not 
f) (eq f (quote unspecified))))) (setq h (face-attribute f :height)) 
(setq --cl-var-- (cons (if (eq h (quote unspecified)) nil h) 
--cl-var--)) (setq --cl-var-- nil)) (nreverse --cl-var--))
   (progn (let* ((f nil) (h nil) (--cl-var-- nil) (--cl-var-- t)) (while 
(progn (setq f (if --cl-var-- face (face-attribute f :inherit))) (not 
(or (not f) (eq f (quote unspecified))))) (setq h (face-attribute f 
:height)) (setq --cl-var-- (cons (if (eq h (quote unspecified)) nil h) 
--cl-var--)) (setq --cl-var-- nil)) (nreverse --cl-var--)))
   (let ((size-list (progn (let* ((f nil) (h nil) (--cl-var-- nil) 
(--cl-var-- t)) (while (progn (setq f ...) (not ...)) (setq h 
(face-attribute f :height)) (setq --cl-var-- (cons ... --cl-var--)) 
(setq --cl-var-- nil)) (nreverse --cl-var--))))) (reduce (quote 
htmlize-merge-size) (cons nil size-list)))
   htmlize-face-size(org-link)
   (let ((size (htmlize-face-size face))) (if (eql size 1.0) nil (progn 
(or (and (vectorp fstruct) (>= (length fstruct) 10) (memq (aref fstruct 
0) cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" 
(quote htmlize-fstruct-size) (quote htmlize-fstruct))) (let* ((v 
fstruct)) (aset v 3 size)))))
   (if htmlize-running-xemacs (let* ((font-instance (face-font-instance 
face)) (props (font-instance-properties font-instance))) (if (equalp 
(cdr (assq (quote WEIGHT_NAME) props)) "bold") (progn (progn (or (and 
(vectorp fstruct) (>= ... 10) (memq ... cl-struct-htmlize-fstruct-tags)) 
(error "%s accessing a non-%s" (quote htmlize-fstruct-boldp) (quote 
htmlize-fstruct))) (let* ((v fstruct)) (aset v 4 t))))) (if (or (equalp 
(cdr (assq (quote SLANT) props)) "i") (equalp (cdr (assq (quote SLANT) 
props)) "o")) (progn (progn (or (and (vectorp fstruct) (>= ... 10) (memq 
... cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" 
(quote htmlize-fstruct-italicp) (quote htmlize-fstruct))) (let* ((v 
fstruct)) (aset v 5 t))))) (progn (or (and (vectorp fstruct) (>= (length 
fstruct) 10) (memq (aref fstruct 0) cl-struct-htmlize-fstruct-tags)) 
(error "%s accessing a non-%s" (quote htmlize-fstruct-strikep) (quote 
htmlize-fstruct))) (let* ((v fstruct)) (aset v 8 (face-strikethru-p 
face)))) (progn (or (and (vectorp fstruct) (>= (length fstruct) 10) 
(memq (aref fstruct 0) cl-struct-htmlize-fstruct-tags)) (error "%s 
accessing a non-%s" (quote htmlize-fstruct-underlinep) (quote 
htmlize-fstruct))) (let* ((v fstruct)) (aset v 6 (face-underline-p 
face))))) (progn (let ((--dolist-tail-- (quote (:weight :slant 
:underline :overline :strike-through))) attr) (while --dolist-tail-- 
(setq attr (car --dolist-tail--)) (let ((value (if ... ... ...))) (if 
(and value (not ...)) (progn (htmlize-face-emacs21-attr fstruct attr 
value)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((size 
(htmlize-face-size face))) (if (eql size 1.0) nil (progn (or (and 
(vectorp fstruct) (>= (length fstruct) 10) (memq (aref fstruct 0) 
cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" (quote 
htmlize-fstruct-size) (quote htmlize-fstruct))) (let* ((v fstruct)) 
(aset v 3 size))))))
   (let ((fstruct (make-htmlize-fstruct :foreground 
(htmlize-color-to-rgb (htmlize-face-foreground face)) :background 
(htmlize-color-to-rgb (htmlize-face-background face))))) (if 
htmlize-running-xemacs (let* ((font-instance (face-font-instance face)) 
(props (font-instance-properties font-instance))) (if (equalp (cdr (assq 
(quote WEIGHT_NAME) props)) "bold") (progn (progn (or (and ... ... ...) 
(error "%s accessing a non-%s" ... ...)) (let* (...) (aset v 4 t))))) 
(if (or (equalp (cdr (assq ... props)) "i") (equalp (cdr (assq ... 
props)) "o")) (progn (progn (or (and ... ... ...) (error "%s accessing a 
non-%s" ... ...)) (let* (...) (aset v 5 t))))) (progn (or (and (vectorp 
fstruct) (>= (length fstruct) 10) (memq (aref fstruct 0) 
cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" (quote 
htmlize-fstruct-strikep) (quote htmlize-fstruct))) (let* ((v fstruct)) 
(aset v 8 (face-strikethru-p face)))) (progn (or (and (vectorp fstruct) 
(>= (length fstruct) 10) (memq (aref fstruct 0) 
cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" (quote 
htmlize-fstruct-underlinep) (quote htmlize-fstruct))) (let* ((v 
fstruct)) (aset v 6 (face-underline-p face))))) (progn (let 
((--dolist-tail-- (quote (:weight :slant :underline :overline 
:strike-through))) attr) (while --dolist-tail-- (setq attr (car 
--dolist-tail--)) (let ((value ...)) (if (and value ...) (progn ...))) 
(setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((size 
(htmlize-face-size face))) (if (eql size 1.0) nil (progn (or (and 
(vectorp fstruct) (>= ... 10) (memq ... cl-struct-htmlize-fstruct-tags)) 
(error "%s accessing a non-%s" (quote htmlize-fstruct-size) (quote 
htmlize-fstruct))) (let* ((v fstruct)) (aset v 3 size)))))) (progn (or 
(and (vectorp fstruct) (>= (length fstruct) 10) (memq (aref fstruct 0) 
cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" (quote 
htmlize-fstruct-css-name) (quote htmlize-fstruct))) (let* ((v fstruct)) 
(aset v 9 (htmlize-face-css-name face)))) fstruct)
   htmlize-face-to-fstruct(org-link)
   (if (symbolp face) (htmlize-face-to-fstruct face) 
(htmlize-attrlist-to-fstruct face))
   (let ((fstruct (if (symbolp face) (htmlize-face-to-fstruct face) 
(htmlize-attrlist-to-fstruct face)))) (let* ((v face) (v face-map)) 
(puthash v fstruct v)) (let* ((css-name (progn (or (and (vectorp 
fstruct) (>= ... 10) (memq ... cl-struct-htmlize-fstruct-tags)) (error 
"%s accessing a non-%s" (quote htmlize-fstruct-css-name) (quote 
htmlize-fstruct))) (aref fstruct 9))) (new-name css-name) (i 0)) (while 
(member new-name css-names) (setq new-name (format "%s-%s" css-name 
(setq i (1+ i))))) (if (equal new-name css-name) nil (progn (or (and 
(vectorp fstruct) (>= (length fstruct) 10) (memq (aref fstruct 0) 
cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" (quote 
htmlize-fstruct-css-name) (quote htmlize-fstruct))) (let* ((v fstruct)) 
(aset v 9 new-name)))) (setq css-names (cons new-name css-names))))
   (if (gethash face face-map) nil (let ((fstruct (if (symbolp face) 
(htmlize-face-to-fstruct face) (htmlize-attrlist-to-fstruct face)))) 
(let* ((v face) (v face-map)) (puthash v fstruct v)) (let* ((css-name 
(progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) 
(aref fstruct 9))) (new-name css-name) (i 0)) (while (member new-name 
css-names) (setq new-name (format "%s-%s" css-name (setq i (1+ i))))) 
(if (equal new-name css-name) nil (progn (or (and (vectorp fstruct) (>= 
... 10) (memq ... cl-struct-htmlize-fstruct-tags)) (error "%s accessing 
a non-%s" (quote htmlize-fstruct-css-name) (quote htmlize-fstruct))) 
(let* ((v fstruct)) (aset v 9 new-name)))) (setq css-names (cons 
new-name css-names)))))
   (while --dolist-tail-- (setq face (car --dolist-tail--)) (if (gethash 
face face-map) nil (let ((fstruct (if (symbolp face) 
(htmlize-face-to-fstruct face) (htmlize-attrlist-to-fstruct face)))) 
(let* ((v face) (v face-map)) (puthash v fstruct v)) (let* ((css-name 
(progn (or ... ...) (aref fstruct 9))) (new-name css-name) (i 0)) (while 
(member new-name css-names) (setq new-name (format "%s-%s" css-name 
(setq i ...)))) (if (equal new-name css-name) nil (progn (or (and ... 
... ...) (error "%s accessing a non-%s" ... ...)) (let* (...) (aset v 9 
new-name)))) (setq css-names (cons new-name css-names))))) (setq 
--dolist-tail-- (cdr --dolist-tail--)))
   (let ((--dolist-tail-- faces) face) (while --dolist-tail-- (setq face 
(car --dolist-tail--)) (if (gethash face face-map) nil (let ((fstruct 
(if (symbolp face) (htmlize-face-to-fstruct face) 
(htmlize-attrlist-to-fstruct face)))) (let* ((v face) (v face-map)) 
(puthash v fstruct v)) (let* ((css-name (progn ... ...)) (new-name 
css-name) (i 0)) (while (member new-name css-names) (setq new-name 
(format "%s-%s" css-name ...))) (if (equal new-name css-name) nil (progn 
(or ... ...) (let* ... ...))) (setq css-names (cons new-name 
css-names))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
   (progn (let ((--dolist-tail-- faces) face) (while --dolist-tail-- 
(setq face (car --dolist-tail--)) (if (gethash face face-map) nil (let 
((fstruct (if ... ... ...))) (let* ((v face) (v face-map)) (puthash v 
fstruct v)) (let* ((css-name ...) (new-name css-name) (i 0)) (while 
(member new-name css-names) (setq new-name ...)) (if (equal new-name 
css-name) nil (progn ... ...)) (setq css-names (cons new-name 
css-names))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
   (let ((face-map (make-hash-table :test (quote equal))) css-names) 
(progn (let ((--dolist-tail-- faces) face) (while --dolist-tail-- (setq 
face (car --dolist-tail--)) (if (gethash face face-map) nil (let 
((fstruct ...)) (let* (... ...) (puthash v fstruct v)) (let* (... ... 
...) (while ... ...) (if ... nil ...) (setq css-names ...)))) (setq 
--dolist-tail-- (cdr --dolist-tail--))))) face-map)
   htmlize-make-face-map((org-agenda-date-weekend org-scheduled 
org-agenda-date default org-warning org-scheduled-today org-tag org-todo 
org-scheduled-previously org-agenda-current-time org-link 
org-agenda-calendar-event org-time-grid org-agenda-calendar-sexp 
org-agenda-structure org-agenda-date-today))
   (let* ((buffer-faces (htmlize-faces-in-buffer)) (face-map 
(htmlize-make-face-map (if (memql (quote default) buffer-faces) 
buffer-faces (cons (quote default) buffer-faces)))) (places (gensym)) 
(title (if (buffer-file-name) (file-name-nondirectory 
(buffer-file-name)) (buffer-name)))) (if htmlize-generate-hyperlinks 
(progn (htmlize-create-auto-links))) (if htmlize-replace-form-feeds 
(progn (htmlize-shadow-form-feeds))) (save-current-buffer (set-buffer 
htmlbuf) (buffer-disable-undo) (insert (funcall (htmlize-method-function 
(quote doctype))) 10 (format "<!-- Created by htmlize-%s in %s mode. 
-->\n" htmlize-version htmlize-output-type) "<html>\n  ") (put places 
(quote head-start) (point-marker)) (insert "<head>\n" "    <title>" 
(htmlize-protect-string title) "</title>\n" (if htmlize-html-charset 
(format (concat "    <meta http-equiv=\"Content-Type\" " 
"content=\"text/html; charset=%s\">\n") htmlize-html-charset) "") 
htmlize-head-tags) (funcall (htmlize-method-function (quote 
insert-head)) buffer-faces face-map) (insert "  </head>") (put places 
(quote head-end) (point-marker)) (insert "\n  ") (put places (quote 
body-start) (point-marker)) (insert (funcall (htmlize-method-function 
(quote body-tag)) face-map) "\n    ") (put places (quote content-start) 
(point-marker)) (insert "<pre>\n")) (let ((text-markup 
(htmlize-method-function (quote text-markup))) next-change text 
face-list trailing-ellipsis fstruct-list last-fstruct-list (close-markup 
(function (lambda nil)))) (goto-char (point-min)) (while (not (eobp)) 
(setq next-change (htmlize-next-face-change (point))) (setq face-list 
(htmlize-faces-at-point) fstruct-list (delq nil (mapcar (function 
(lambda ... ...)) face-list))) (let ((--cl-var-- (htmlize-extract-text 
(point) next-change trailing-ellipsis))) (prog1 (setq text (car 
--cl-var--)) (setq trailing-ellipsis (nth 1 --cl-var--)))) (if (> 
(length text) 0) (progn (if (not (equalp fstruct-list 
last-fstruct-list)) (progn (funcall close-markup) (setq 
last-fstruct-list fstruct-list close-markup ...))) (princ text 
htmlbuf))) (goto-char next-change)) (funcall close-markup)) 
(save-current-buffer (set-buffer htmlbuf) (insert "</pre>") (put places 
(quote content-end) (point-marker)) (insert "\n  </body>") (put places 
(quote body-end) (point-marker)) (insert "\n</html>\n") 
(htmlize-defang-local-variables) (goto-char (point-min)) (if 
htmlize-html-major-mode (progn (funcall htmlize-html-major-mode))) (set 
(make-local-variable (quote htmlize-buffer-places)) (symbol-plist 
places)) (run-hooks (quote htmlize-after-hook)) (buffer-enable-undo)) 
(setq completed t) htmlbuf)
   (unwind-protect (let* ((buffer-faces (htmlize-faces-in-buffer)) 
(face-map (htmlize-make-face-map (if (memql (quote default) 
buffer-faces) buffer-faces (cons (quote default) buffer-faces)))) 
(places (gensym)) (title (if (buffer-file-name) (file-name-nondirectory 
(buffer-file-name)) (buffer-name)))) (if htmlize-generate-hyperlinks 
(progn (htmlize-create-auto-links))) (if htmlize-replace-form-feeds 
(progn (htmlize-shadow-form-feeds))) (save-current-buffer (set-buffer 
htmlbuf) (buffer-disable-undo) (insert (funcall (htmlize-method-function 
(quote doctype))) 10 (format "<!-- Created by htmlize-%s in %s mode. 
-->\n" htmlize-version htmlize-output-type) "<html>\n  ") (put places 
(quote head-start) (point-marker)) (insert "<head>\n" "    <title>" 
(htmlize-protect-string title) "</title>\n" (if htmlize-html-charset 
(format (concat "    <meta http-equiv=\"Content-Type\" " 
"content=\"text/html; charset=%s\">\n") htmlize-html-charset) "") 
htmlize-head-tags) (funcall (htmlize-method-function (quote 
insert-head)) buffer-faces face-map) (insert "  </head>") (put places 
(quote head-end) (point-marker)) (insert "\n  ") (put places (quote 
body-start) (point-marker)) (insert (funcall (htmlize-method-function 
(quote body-tag)) face-map) "\n    ") (put places (quote content-start) 
(point-marker)) (insert "<pre>\n")) (let ((text-markup 
(htmlize-method-function (quote text-markup))) next-change text 
face-list trailing-ellipsis fstruct-list last-fstruct-list (close-markup 
(function (lambda nil)))) (goto-char (point-min)) (while (not (eobp)) 
(setq next-change (htmlize-next-face-change (point))) (setq face-list 
(htmlize-faces-at-point) fstruct-list (delq nil (mapcar (function ...) 
face-list))) (let ((--cl-var-- (htmlize-extract-text ... next-change 
trailing-ellipsis))) (prog1 (setq text (car --cl-var--)) (setq 
trailing-ellipsis (nth 1 --cl-var--)))) (if (> (length text) 0) (progn 
(if (not ...) (progn ... ...)) (princ text htmlbuf))) (goto-char 
next-change)) (funcall close-markup)) (save-current-buffer (set-buffer 
htmlbuf) (insert "</pre>") (put places (quote content-end) 
(point-marker)) (insert "\n  </body>") (put places (quote body-end) 
(point-marker)) (insert "\n</html>\n") (htmlize-defang-local-variables) 
(goto-char (point-min)) (if htmlize-html-major-mode (progn (funcall 
htmlize-html-major-mode))) (set (make-local-variable (quote 
htmlize-buffer-places)) (symbol-plist places)) (run-hooks (quote 
htmlize-after-hook)) (buffer-enable-undo)) (setq completed t) htmlbuf) 
(if (not completed) (progn (kill-buffer htmlbuf))) 
(htmlize-delete-tmp-overlays))
   (let ((htmlbuf (generate-new-buffer (if (buffer-file-name) 
(htmlize-make-file-name (file-name-nondirectory (buffer-file-name))) 
"*html*"))) (completed nil)) (unwind-protect (let* ((buffer-faces 
(htmlize-faces-in-buffer)) (face-map (htmlize-make-face-map (if (memql 
... buffer-faces) buffer-faces (cons ... buffer-faces)))) (places 
(gensym)) (title (if (buffer-file-name) (file-name-nondirectory 
(buffer-file-name)) (buffer-name)))) (if htmlize-generate-hyperlinks 
(progn (htmlize-create-auto-links))) (if htmlize-replace-form-feeds 
(progn (htmlize-shadow-form-feeds))) (save-current-buffer (set-buffer 
htmlbuf) (buffer-disable-undo) (insert (funcall (htmlize-method-function 
(quote doctype))) 10 (format "<!-- Created by htmlize-%s in %s mode. 
-->\n" htmlize-version htmlize-output-type) "<html>\n  ") (put places 
(quote head-start) (point-marker)) (insert "<head>\n" "    <title>" 
(htmlize-protect-string title) "</title>\n" (if htmlize-html-charset 
(format (concat "    <meta http-equiv=\"Content-Type\" " 
"content=\"text/html; charset=%s\">\n") htmlize-html-charset) "") 
htmlize-head-tags) (funcall (htmlize-method-function (quote 
insert-head)) buffer-faces face-map) (insert "  </head>") (put places 
(quote head-end) (point-marker)) (insert "\n  ") (put places (quote 
body-start) (point-marker)) (insert (funcall (htmlize-method-function 
(quote body-tag)) face-map) "\n    ") (put places (quote content-start) 
(point-marker)) (insert "<pre>\n")) (let ((text-markup 
(htmlize-method-function (quote text-markup))) next-change text 
face-list trailing-ellipsis fstruct-list last-fstruct-list (close-markup 
(function (lambda nil)))) (goto-char (point-min)) (while (not (eobp)) 
(setq next-change (htmlize-next-face-change (point))) (setq face-list 
(htmlize-faces-at-point) fstruct-list (delq nil (mapcar ... face-list))) 
(let ((--cl-var-- ...)) (prog1 (setq text ...) (setq trailing-ellipsis 
...))) (if (> (length text) 0) (progn (if ... ...) (princ text 
htmlbuf))) (goto-char next-change)) (funcall close-markup)) 
(save-current-buffer (set-buffer htmlbuf) (insert "</pre>") (put places 
(quote content-end) (point-marker)) (insert "\n  </body>") (put places 
(quote body-end) (point-marker)) (insert "\n</html>\n") 
(htmlize-defang-local-variables) (goto-char (point-min)) (if 
htmlize-html-major-mode (progn (funcall htmlize-html-major-mode))) (set 
(make-local-variable (quote htmlize-buffer-places)) (symbol-plist 
places)) (run-hooks (quote htmlize-after-hook)) (buffer-enable-undo)) 
(setq completed t) htmlbuf) (if (not completed) (progn (kill-buffer 
htmlbuf))) (htmlize-delete-tmp-overlays)))
   (save-excursion (save-excursion (run-hooks (quote 
htmlize-before-hook))) (htmlize-ensure-fontified) (clrhash 
htmlize-extended-character-cache) (clrhash htmlize-memoization-table) 
(let ((htmlbuf (generate-new-buffer (if (buffer-file-name) 
(htmlize-make-file-name (file-name-nondirectory ...)) "*html*"))) 
(completed nil)) (unwind-protect (let* ((buffer-faces 
(htmlize-faces-in-buffer)) (face-map (htmlize-make-face-map (if ... 
buffer-faces ...))) (places (gensym)) (title (if (buffer-file-name) 
(file-name-nondirectory ...) (buffer-name)))) (if 
htmlize-generate-hyperlinks (progn (htmlize-create-auto-links))) (if 
htmlize-replace-form-feeds (progn (htmlize-shadow-form-feeds))) 
(save-current-buffer (set-buffer htmlbuf) (buffer-disable-undo) (insert 
(funcall (htmlize-method-function ...)) 10 (format "<!-- Created by 
htmlize-%s in %s mode. -->\n" htmlize-version htmlize-output-type) 
"<html>\n  ") (put places (quote head-start) (point-marker)) (insert 
"<head>\n" "    <title>" (htmlize-protect-string title) "</title>\n" (if 
htmlize-html-charset (format ... htmlize-html-charset) "") 
htmlize-head-tags) (funcall (htmlize-method-function (quote 
insert-head)) buffer-faces face-map) (insert "  </head>") (put places 
(quote head-end) (point-marker)) (insert "\n  ") (put places (quote 
body-start) (point-marker)) (insert (funcall (htmlize-method-function 
...) face-map) "\n    ") (put places (quote content-start) 
(point-marker)) (insert "<pre>\n")) (let ((text-markup 
(htmlize-method-function ...)) next-change text face-list 
trailing-ellipsis fstruct-list last-fstruct-list (close-markup (function 
...))) (goto-char (point-min)) (while (not (eobp)) (setq next-change 
(htmlize-next-face-change ...)) (setq face-list (htmlize-faces-at-point) 
fstruct-list (delq nil ...)) (let (...) (prog1 ... ...)) (if (> ... 0) 
(progn ... ...)) (goto-char next-change)) (funcall close-markup)) 
(save-current-buffer (set-buffer htmlbuf) (insert "</pre>") (put places 
(quote content-end) (point-marker)) (insert "\n  </body>") (put places 
(quote body-end) (point-marker)) (insert "\n</html>\n") 
(htmlize-defang-local-variables) (goto-char (point-min)) (if 
htmlize-html-major-mode (progn (funcall htmlize-html-major-mode))) (set 
(make-local-variable (quote htmlize-buffer-places)) (symbol-plist 
places)) (run-hooks (quote htmlize-after-hook)) (buffer-enable-undo)) 
(setq completed t) htmlbuf) (if (not completed) (progn (kill-buffer 
htmlbuf))) (htmlize-delete-tmp-overlays))))
   htmlize-buffer-1()
   (save-current-buffer (set-buffer (or buffer (current-buffer))) 
(htmlize-buffer-1))
   (let ((htmlbuf (save-current-buffer (set-buffer (or buffer 
(current-buffer))) (htmlize-buffer-1)))) (if (interactive-p) (progn 
(switch-to-buffer htmlbuf))) htmlbuf)
   htmlize-buffer(#<buffer Agenda View>)
   (set-buffer (htmlize-buffer (current-buffer)))
   (cond ((org-bound-and-true-p org-mobile-creating-agendas) 
(org-mobile-write-agenda-for-mobile file)) ((string-match "\\.org\\'" 
file) (let (content p m message-log-max) (goto-char (point-min)) (while 
(setq p (next-single-property-change (point) (quote org-hd-marker) nil)) 
(goto-char p) (setq m (get-text-property (point) (quote org-hd-marker))) 
(when m (push (save-excursion (set-buffer ...) (goto-char m) 
(org-copy-subtree 1 nil t t) org-subtree-clip) content))) (find-file 
file) (erase-buffer) (mapcar (lambda (s) (org-paste-subtree 1 s)) 
(reverse content)) (write-file file) (kill-buffer (current-buffer)) 
(message "Org file written to %s" file))) ((string-match "\\.html?\\'" 
file) (require (quote htmlize)) (set-buffer (htmlize-buffer 
(current-buffer))) (when org-agenda-export-html-style (goto-char 
(point-min)) (kill-region (- (search-forward "<style") 6) 
(search-forward "</style>")) (insert org-agenda-export-html-style)) 
(write-file file) (kill-buffer (current-buffer)) (message "HTML written 
to %s" file)) ((string-match "\\.ps\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces file) (message "Postscript written to %s" 
file)) ((string-match "\\.pdf\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces (concat (file-name-sans-extension file) 
".ps")) (call-process "ps2pdf" nil nil nil (expand-file-name (concat 
(file-name-sans-extension file) ".ps")) (expand-file-name file)) 
(delete-file (concat (file-name-sans-extension file) ".ps")) (message 
"PDF written to %s" file)) ((string-match "\\.ics\\'" file) (require 
(quote ox-icalendar)) (org-icalendar-export-current-agenda 
(expand-file-name file))) (t (let ((bs (buffer-string))) (find-file 
file) (erase-buffer) (insert bs) (save-buffer 0) (kill-buffer 
(current-buffer)) (message "Plain text written to %s" file))))
   (progn (rename-buffer org-agenda-write-buffer-name t) 
(set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text 
(quote org-filtered)) (while (setq beg (text-property-any (point-min) 
(point-max) (quote org-filtered) t)) (delete-region beg (or 
(next-single-property-change beg (quote org-filtered)) (point-max)))) 
(run-hooks (quote org-agenda-before-write-hook)) (cond 
((org-bound-and-true-p org-mobile-creating-agendas) 
(org-mobile-write-agenda-for-mobile file)) ((string-match "\\.org\\'" 
file) (let (content p m message-log-max) (goto-char (point-min)) (while 
(setq p (next-single-property-change (point) (quote org-hd-marker) nil)) 
(goto-char p) (setq m (get-text-property (point) (quote org-hd-marker))) 
(when m (push (save-excursion ... ... ... org-subtree-clip) content))) 
(find-file file) (erase-buffer) (mapcar (lambda (s) (org-paste-subtree 1 
s)) (reverse content)) (write-file file) (kill-buffer (current-buffer)) 
(message "Org file written to %s" file))) ((string-match "\\.html?\\'" 
file) (require (quote htmlize)) (set-buffer (htmlize-buffer 
(current-buffer))) (when org-agenda-export-html-style (goto-char 
(point-min)) (kill-region (- (search-forward "<style") 6) 
(search-forward "</style>")) (insert org-agenda-export-html-style)) 
(write-file file) (kill-buffer (current-buffer)) (message "HTML written 
to %s" file)) ((string-match "\\.ps\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces file) (message "Postscript written to %s" 
file)) ((string-match "\\.pdf\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces (concat (file-name-sans-extension file) 
".ps")) (call-process "ps2pdf" nil nil nil (expand-file-name (concat 
(file-name-sans-extension file) ".ps")) (expand-file-name file)) 
(delete-file (concat (file-name-sans-extension file) ".ps")) (message 
"PDF written to %s" file)) ((string-match "\\.ics\\'" file) (require 
(quote ox-icalendar)) (org-icalendar-export-current-agenda 
(expand-file-name file))) (t (let ((bs (buffer-string))) (find-file 
file) (erase-buffer) (insert bs) (save-buffer 0) (kill-buffer 
(current-buffer)) (message "Plain text written to %s" file)))))
   (unwind-protect (progn (rename-buffer org-agenda-write-buffer-name t) 
(set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text 
(quote org-filtered)) (while (setq beg (text-property-any (point-min) 
(point-max) (quote org-filtered) t)) (delete-region beg (or 
(next-single-property-change beg (quote org-filtered)) (point-max)))) 
(run-hooks (quote org-agenda-before-write-hook)) (cond 
((org-bound-and-true-p org-mobile-creating-agendas) 
(org-mobile-write-agenda-for-mobile file)) ((string-match "\\.org\\'" 
file) (let (content p m message-log-max) (goto-char (point-min)) (while 
(setq p (next-single-property-change ... ... nil)) (goto-char p) (setq m 
(get-text-property ... ...)) (when m (push ... content))) (find-file 
file) (erase-buffer) (mapcar (lambda (s) (org-paste-subtree 1 s)) 
(reverse content)) (write-file file) (kill-buffer (current-buffer)) 
(message "Org file written to %s" file))) ((string-match "\\.html?\\'" 
file) (require (quote htmlize)) (set-buffer (htmlize-buffer 
(current-buffer))) (when org-agenda-export-html-style (goto-char 
(point-min)) (kill-region (- (search-forward "<style") 6) 
(search-forward "</style>")) (insert org-agenda-export-html-style)) 
(write-file file) (kill-buffer (current-buffer)) (message "HTML written 
to %s" file)) ((string-match "\\.ps\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces file) (message "Postscript written to %s" 
file)) ((string-match "\\.pdf\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces (concat (file-name-sans-extension file) 
".ps")) (call-process "ps2pdf" nil nil nil (expand-file-name (concat 
(file-name-sans-extension file) ".ps")) (expand-file-name file)) 
(delete-file (concat (file-name-sans-extension file) ".ps")) (message 
"PDF written to %s" file)) ((string-match "\\.ics\\'" file) (require 
(quote ox-icalendar)) (org-icalendar-export-current-agenda 
(expand-file-name file))) (t (let ((bs (buffer-string))) (find-file 
file) (erase-buffer) (insert bs) (save-buffer 0) (kill-buffer 
(current-buffer)) (message "Plain text written to %s" file))))) (and 
(buffer-name temp-buffer) (kill-buffer temp-buffer)))
   (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn 
(rename-buffer org-agenda-write-buffer-name t) (set-buffer-modified-p 
nil) (insert bs) (org-agenda-remove-marked-text (quote org-filtered)) 
(while (setq beg (text-property-any (point-min) (point-max) (quote 
org-filtered) t)) (delete-region beg (or (next-single-property-change 
beg (quote org-filtered)) (point-max)))) (run-hooks (quote 
org-agenda-before-write-hook)) (cond ((org-bound-and-true-p 
org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile file)) 
((string-match "\\.org\\'" file) (let (content p m message-log-max) 
(goto-char (point-min)) (while (setq p ...) (goto-char p) (setq m ...) 
(when m ...)) (find-file file) (erase-buffer) (mapcar (lambda ... ...) 
(reverse content)) (write-file file) (kill-buffer (current-buffer)) 
(message "Org file written to %s" file))) ((string-match "\\.html?\\'" 
file) (require (quote htmlize)) (set-buffer (htmlize-buffer 
(current-buffer))) (when org-agenda-export-html-style (goto-char 
(point-min)) (kill-region (- ... 6) (search-forward "</style>")) (insert 
org-agenda-export-html-style)) (write-file file) (kill-buffer 
(current-buffer)) (message "HTML written to %s" file)) ((string-match 
"\\.ps\\'" file) (require (quote ps-print)) (ps-print-buffer-with-faces 
file) (message "Postscript written to %s" file)) ((string-match 
"\\.pdf\\'" file) (require (quote ps-print)) (ps-print-buffer-with-faces 
(concat (file-name-sans-extension file) ".ps")) (call-process "ps2pdf" 
nil nil nil (expand-file-name (concat ... ".ps")) (expand-file-name 
file)) (delete-file (concat (file-name-sans-extension file) ".ps")) 
(message "PDF written to %s" file)) ((string-match "\\.ics\\'" file) 
(require (quote ox-icalendar)) (org-icalendar-export-current-agenda 
(expand-file-name file))) (t (let ((bs ...)) (find-file file) 
(erase-buffer) (insert bs) (save-buffer 0) (kill-buffer 
(current-buffer)) (message "Plain text written to %s" file))))) (and 
(buffer-name temp-buffer) (kill-buffer temp-buffer))))
   (with-current-buffer temp-buffer (unwind-protect (progn 
(rename-buffer org-agenda-write-buffer-name t) (set-buffer-modified-p 
nil) (insert bs) (org-agenda-remove-marked-text (quote org-filtered)) 
(while (setq beg (text-property-any (point-min) (point-max) (quote 
org-filtered) t)) (delete-region beg (or (next-single-property-change 
beg (quote org-filtered)) (point-max)))) (run-hooks (quote 
org-agenda-before-write-hook)) (cond ((org-bound-and-true-p 
org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile file)) 
((string-match "\\.org\\'" file) (let (content p m message-log-max) 
(goto-char (point-min)) (while (setq p ...) (goto-char p) (setq m ...) 
(when m ...)) (find-file file) (erase-buffer) (mapcar (lambda ... ...) 
(reverse content)) (write-file file) (kill-buffer (current-buffer)) 
(message "Org file written to %s" file))) ((string-match "\\.html?\\'" 
file) (require (quote htmlize)) (set-buffer (htmlize-buffer 
(current-buffer))) (when org-agenda-export-html-style (goto-char 
(point-min)) (kill-region (- ... 6) (search-forward "</style>")) (insert 
org-agenda-export-html-style)) (write-file file) (kill-buffer 
(current-buffer)) (message "HTML written to %s" file)) ((string-match 
"\\.ps\\'" file) (require (quote ps-print)) (ps-print-buffer-with-faces 
file) (message "Postscript written to %s" file)) ((string-match 
"\\.pdf\\'" file) (require (quote ps-print)) (ps-print-buffer-with-faces 
(concat (file-name-sans-extension file) ".ps")) (call-process "ps2pdf" 
nil nil nil (expand-file-name (concat ... ".ps")) (expand-file-name 
file)) (delete-file (concat (file-name-sans-extension file) ".ps")) 
(message "PDF written to %s" file)) ((string-match "\\.ics\\'" file) 
(require (quote ox-icalendar)) (org-icalendar-export-current-agenda 
(expand-file-name file))) (t (let ((bs ...)) (find-file file) 
(erase-buffer) (insert bs) (save-buffer 0) (kill-buffer 
(current-buffer)) (message "Plain text written to %s" file))))) (and 
(buffer-name temp-buffer) (kill-buffer temp-buffer))))
   (let ((temp-buffer (generate-new-buffer " *temp*"))) 
(with-current-buffer temp-buffer (unwind-protect (progn (rename-buffer 
org-agenda-write-buffer-name t) (set-buffer-modified-p nil) (insert bs) 
(org-agenda-remove-marked-text (quote org-filtered)) (while (setq beg 
(text-property-any (point-min) (point-max) (quote org-filtered) t)) 
(delete-region beg (or (next-single-property-change beg ...) 
(point-max)))) (run-hooks (quote org-agenda-before-write-hook)) (cond 
((org-bound-and-true-p org-mobile-creating-agendas) 
(org-mobile-write-agenda-for-mobile file)) ((string-match "\\.org\\'" 
file) (let (content p m message-log-max) (goto-char ...) (while ... ... 
... ...) (find-file file) (erase-buffer) (mapcar ... ...) (write-file 
file) (kill-buffer ...) (message "Org file written to %s" file))) 
((string-match "\\.html?\\'" file) (require (quote htmlize)) (set-buffer 
(htmlize-buffer ...)) (when org-agenda-export-html-style (goto-char ...) 
(kill-region ... ...) (insert org-agenda-export-html-style)) (write-file 
file) (kill-buffer (current-buffer)) (message "HTML written to %s" 
file)) ((string-match "\\.ps\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces file) (message "Postscript written to %s" 
file)) ((string-match "\\.pdf\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces (concat ... ".ps")) (call-process "ps2pdf" 
nil nil nil (expand-file-name ...) (expand-file-name file)) (delete-file 
(concat ... ".ps")) (message "PDF written to %s" file)) ((string-match 
"\\.ics\\'" file) (require (quote ox-icalendar)) 
(org-icalendar-export-current-agenda (expand-file-name file))) (t (let 
(...) (find-file file) (erase-buffer) (insert bs) (save-buffer 0) 
(kill-buffer ...) (message "Plain text written to %s" file))))) (and 
(buffer-name temp-buffer) (kill-buffer temp-buffer)))))
   (with-temp-buffer (rename-buffer org-agenda-write-buffer-name t) 
(set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text 
(quote org-filtered)) (while (setq beg (text-property-any (point-min) 
(point-max) (quote org-filtered) t)) (delete-region beg (or 
(next-single-property-change beg (quote org-filtered)) (point-max)))) 
(run-hooks (quote org-agenda-before-write-hook)) (cond 
((org-bound-and-true-p org-mobile-creating-agendas) 
(org-mobile-write-agenda-for-mobile file)) ((string-match "\\.org\\'" 
file) (let (content p m message-log-max) (goto-char (point-min)) (while 
(setq p (next-single-property-change (point) (quote org-hd-marker) nil)) 
(goto-char p) (setq m (get-text-property (point) (quote org-hd-marker))) 
(when m (push (save-excursion ... ... ... org-subtree-clip) content))) 
(find-file file) (erase-buffer) (mapcar (lambda (s) (org-paste-subtree 1 
s)) (reverse content)) (write-file file) (kill-buffer (current-buffer)) 
(message "Org file written to %s" file))) ((string-match "\\.html?\\'" 
file) (require (quote htmlize)) (set-buffer (htmlize-buffer 
(current-buffer))) (when org-agenda-export-html-style (goto-char 
(point-min)) (kill-region (- (search-forward "<style") 6) 
(search-forward "</style>")) (insert org-agenda-export-html-style)) 
(write-file file) (kill-buffer (current-buffer)) (message "HTML written 
to %s" file)) ((string-match "\\.ps\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces file) (message "Postscript written to %s" 
file)) ((string-match "\\.pdf\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces (concat (file-name-sans-extension file) 
".ps")) (call-process "ps2pdf" nil nil nil (expand-file-name (concat 
(file-name-sans-extension file) ".ps")) (expand-file-name file)) 
(delete-file (concat (file-name-sans-extension file) ".ps")) (message 
"PDF written to %s" file)) ((string-match "\\.ics\\'" file) (require 
(quote ox-icalendar)) (org-icalendar-export-current-agenda 
(expand-file-name file))) (t (let ((bs (buffer-string))) (find-file 
file) (erase-buffer) (insert bs) (save-buffer 0) (kill-buffer 
(current-buffer)) (message "Plain text written to %s" file)))))
   (let ((bs (copy-sequence (buffer-string))) beg content) 
(org-agenda-unmark-filtered-text) (with-temp-buffer (rename-buffer 
org-agenda-write-buffer-name t) (set-buffer-modified-p nil) (insert bs) 
(org-agenda-remove-marked-text (quote org-filtered)) (while (setq beg 
(text-property-any (point-min) (point-max) (quote org-filtered) t)) 
(delete-region beg (or (next-single-property-change beg (quote 
org-filtered)) (point-max)))) (run-hooks (quote 
org-agenda-before-write-hook)) (cond ((org-bound-and-true-p 
org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile file)) 
((string-match "\\.org\\'" file) (let (content p m message-log-max) 
(goto-char (point-min)) (while (setq p (next-single-property-change ... 
... nil)) (goto-char p) (setq m (get-text-property ... ...)) (when m 
(push ... content))) (find-file file) (erase-buffer) (mapcar (lambda (s) 
(org-paste-subtree 1 s)) (reverse content)) (write-file file) 
(kill-buffer (current-buffer)) (message "Org file written to %s" file))) 
((string-match "\\.html?\\'" file) (require (quote htmlize)) (set-buffer 
(htmlize-buffer (current-buffer))) (when org-agenda-export-html-style 
(goto-char (point-min)) (kill-region (- (search-forward "<style") 6) 
(search-forward "</style>")) (insert org-agenda-export-html-style)) 
(write-file file) (kill-buffer (current-buffer)) (message "HTML written 
to %s" file)) ((string-match "\\.ps\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces file) (message "Postscript written to %s" 
file)) ((string-match "\\.pdf\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces (concat (file-name-sans-extension file) 
".ps")) (call-process "ps2pdf" nil nil nil (expand-file-name (concat 
(file-name-sans-extension file) ".ps")) (expand-file-name file)) 
(delete-file (concat (file-name-sans-extension file) ".ps")) (message 
"PDF written to %s" file)) ((string-match "\\.ics\\'" file) (require 
(quote ox-icalendar)) (org-icalendar-export-current-agenda 
(expand-file-name file))) (t (let ((bs (buffer-string))) (find-file 
file) (erase-buffer) (insert bs) (save-buffer 0) (kill-buffer 
(current-buffer)) (message "Plain text written to %s" file))))))
   (progn (org-agenda-mark-filtered-text) (let ((bs (copy-sequence 
(buffer-string))) beg content) (org-agenda-unmark-filtered-text) 
(with-temp-buffer (rename-buffer org-agenda-write-buffer-name t) 
(set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text 
(quote org-filtered)) (while (setq beg (text-property-any (point-min) 
(point-max) (quote org-filtered) t)) (delete-region beg (or 
(next-single-property-change beg (quote org-filtered)) (point-max)))) 
(run-hooks (quote org-agenda-before-write-hook)) (cond 
((org-bound-and-true-p org-mobile-creating-agendas) 
(org-mobile-write-agenda-for-mobile file)) ((string-match "\\.org\\'" 
file) (let (content p m message-log-max) (goto-char (point-min)) (while 
(setq p ...) (goto-char p) (setq m ...) (when m ...)) (find-file file) 
(erase-buffer) (mapcar (lambda ... ...) (reverse content)) (write-file 
file) (kill-buffer (current-buffer)) (message "Org file written to %s" 
file))) ((string-match "\\.html?\\'" file) (require (quote htmlize)) 
(set-buffer (htmlize-buffer (current-buffer))) (when 
org-agenda-export-html-style (goto-char (point-min)) (kill-region (- ... 
6) (search-forward "</style>")) (insert org-agenda-export-html-style)) 
(write-file file) (kill-buffer (current-buffer)) (message "HTML written 
to %s" file)) ((string-match "\\.ps\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces file) (message "Postscript written to %s" 
file)) ((string-match "\\.pdf\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces (concat (file-name-sans-extension file) 
".ps")) (call-process "ps2pdf" nil nil nil (expand-file-name (concat ... 
".ps")) (expand-file-name file)) (delete-file (concat 
(file-name-sans-extension file) ".ps")) (message "PDF written to %s" 
file)) ((string-match "\\.ics\\'" file) (require (quote ox-icalendar)) 
(org-icalendar-export-current-agenda (expand-file-name file))) (t (let 
((bs ...)) (find-file file) (erase-buffer) (insert bs) (save-buffer 0) 
(kill-buffer (current-buffer)) (message "Plain text written to %s" 
file)))))))
   (unwind-protect (progn (org-agenda-mark-filtered-text) (let ((bs 
(copy-sequence (buffer-string))) beg content) 
(org-agenda-unmark-filtered-text) (with-temp-buffer (rename-buffer 
org-agenda-write-buffer-name t) (set-buffer-modified-p nil) (insert bs) 
(org-agenda-remove-marked-text (quote org-filtered)) (while (setq beg 
(text-property-any (point-min) (point-max) (quote org-filtered) t)) 
(delete-region beg (or (next-single-property-change beg ...) 
(point-max)))) (run-hooks (quote org-agenda-before-write-hook)) (cond 
((org-bound-and-true-p org-mobile-creating-agendas) 
(org-mobile-write-agenda-for-mobile file)) ((string-match "\\.org\\'" 
file) (let (content p m message-log-max) (goto-char ...) (while ... ... 
... ...) (find-file file) (erase-buffer) (mapcar ... ...) (write-file 
file) (kill-buffer ...) (message "Org file written to %s" file))) 
((string-match "\\.html?\\'" file) (require (quote htmlize)) (set-buffer 
(htmlize-buffer ...)) (when org-agenda-export-html-style (goto-char ...) 
(kill-region ... ...) (insert org-agenda-export-html-style)) (write-file 
file) (kill-buffer (current-buffer)) (message "HTML written to %s" 
file)) ((string-match "\\.ps\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces file) (message "Postscript written to %s" 
file)) ((string-match "\\.pdf\\'" file) (require (quote ps-print)) 
(ps-print-buffer-with-faces (concat ... ".ps")) (call-process "ps2pdf" 
nil nil nil (expand-file-name ...) (expand-file-name file)) (delete-file 
(concat ... ".ps")) (message "PDF written to %s" file)) ((string-match 
"\\.ics\\'" file) (require (quote ox-icalendar)) 
(org-icalendar-export-current-agenda (expand-file-name file))) (t (let 
(...) (find-file file) (erase-buffer) (insert bs) (save-buffer 0) 
(kill-buffer ...) (message "Plain text written to %s" file))))))) 
(set-window-configuration wconfig))
   (let ((wconfig (current-window-configuration))) (unwind-protect 
(progn (org-agenda-mark-filtered-text) (let ((bs (copy-sequence 
(buffer-string))) beg content) (org-agenda-unmark-filtered-text) 
(with-temp-buffer (rename-buffer org-agenda-write-buffer-name t) 
(set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text 
(quote org-filtered)) (while (setq beg (text-property-any ... ... ... 
t)) (delete-region beg (or ... ...))) (run-hooks (quote 
org-agenda-before-write-hook)) (cond ((org-bound-and-true-p 
org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile file)) 
((string-match "\\.org\\'" file) (let ... ... ... ... ... ... ... ... 
...)) ((string-match "\\.html?\\'" file) (require ...) (set-buffer ...) 
(when org-agenda-export-html-style ... ... ...) (write-file file) 
(kill-buffer ...) (message "HTML written to %s" file)) ((string-match 
"\\.ps\\'" file) (require ...) (ps-print-buffer-with-faces file) 
(message "Postscript written to %s" file)) ((string-match "\\.pdf\\'" 
file) (require ...) (ps-print-buffer-with-faces ...) (call-process 
"ps2pdf" nil nil nil ... ...) (delete-file ...) (message "PDF written to 
%s" file)) ((string-match "\\.ics\\'" file) (require ...) 
(org-icalendar-export-current-agenda ...)) (t (let ... ... ... ... ... 
... ...)))))) (set-window-configuration wconfig)))
   (save-window-excursion (org-agenda-mark-filtered-text) (let ((bs 
(copy-sequence (buffer-string))) beg content) 
(org-agenda-unmark-filtered-text) (with-temp-buffer (rename-buffer 
org-agenda-write-buffer-name t) (set-buffer-modified-p nil) (insert bs) 
(org-agenda-remove-marked-text (quote org-filtered)) (while (setq beg 
(text-property-any (point-min) (point-max) (quote org-filtered) t)) 
(delete-region beg (or (next-single-property-change beg (quote 
org-filtered)) (point-max)))) (run-hooks (quote 
org-agenda-before-write-hook)) (cond ((org-bound-and-true-p 
org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile file)) 
((string-match "\\.org\\'" file) (let (content p m message-log-max) 
(goto-char (point-min)) (while (setq p ...) (goto-char p) (setq m ...) 
(when m ...)) (find-file file) (erase-buffer) (mapcar (lambda ... ...) 
(reverse content)) (write-file file) (kill-buffer (current-buffer)) 
(message "Org file written to %s" file))) ((string-match "\\.html?\\'" 
file) (require (quote htmlize)) (set-buffer (htmlize-buffer 
(current-buffer))) (when org-agenda-export-html-style (goto-char 
(point-min)) (kill-region (- ... 6) (search-forward "</style>")) (insert 
org-agenda-export-html-style)) (write-file file) (kill-buffer 
(current-buffer)) (message "HTML written to %s" file)) ((string-match 
"\\.ps\\'" file) (require (quote ps-print)) (ps-print-buffer-with-faces 
file) (message "Postscript written to %s" file)) ((string-match 
"\\.pdf\\'" file) (require (quote ps-print)) (ps-print-buffer-with-faces 
(concat (file-name-sans-extension file) ".ps")) (call-process "ps2pdf" 
nil nil nil (expand-file-name (concat ... ".ps")) (expand-file-name 
file)) (delete-file (concat (file-name-sans-extension file) ".ps")) 
(message "PDF written to %s" file)) ((string-match "\\.ics\\'" file) 
(require (quote ox-icalendar)) (org-icalendar-export-current-agenda 
(expand-file-name file))) (t (let ((bs ...)) (find-file file) 
(erase-buffer) (insert bs) (save-buffer 0) (kill-buffer 
(current-buffer)) (message "Plain text written to %s" file)))))))
   (save-excursion (save-window-excursion 
(org-agenda-mark-filtered-text) (let ((bs (copy-sequence 
(buffer-string))) beg content) (org-agenda-unmark-filtered-text) 
(with-temp-buffer (rename-buffer org-agenda-write-buffer-name t) 
(set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text 
(quote org-filtered)) (while (setq beg (text-property-any (point-min) 
(point-max) (quote org-filtered) t)) (delete-region beg (or 
(next-single-property-change beg ...) (point-max)))) (run-hooks (quote 
org-agenda-before-write-hook)) (cond ((org-bound-and-true-p 
org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile file)) 
((string-match "\\.org\\'" file) (let (content p m message-log-max) 
(goto-char ...) (while ... ... ... ...) (find-file file) (erase-buffer) 
(mapcar ... ...) (write-file file) (kill-buffer ...) (message "Org file 
written to %s" file))) ((string-match "\\.html?\\'" file) (require 
(quote htmlize)) (set-buffer (htmlize-buffer ...)) (when 
org-agenda-export-html-style (goto-char ...) (kill-region ... ...) 
(insert org-agenda-export-html-style)) (write-file file) (kill-buffer 
(current-buffer)) (message "HTML written to %s" file)) ((string-match 
"\\.ps\\'" file) (require (quote ps-print)) (ps-print-buffer-with-faces 
file) (message "Postscript written to %s" file)) ((string-match 
"\\.pdf\\'" file) (require (quote ps-print)) (ps-print-buffer-with-faces 
(concat ... ".ps")) (call-process "ps2pdf" nil nil nil (expand-file-name 
...) (expand-file-name file)) (delete-file (concat ... ".ps")) (message 
"PDF written to %s" file)) ((string-match "\\.ics\\'" file) (require 
(quote ox-icalendar)) (org-icalendar-export-current-agenda 
(expand-file-name file))) (t (let (...) (find-file file) (erase-buffer) 
(insert bs) (save-buffer 0) (kill-buffer ...) (message "Plain text 
written to %s" file))))))))
   (let nil (save-excursion (save-window-excursion 
(org-agenda-mark-filtered-text) (let ((bs (copy-sequence 
(buffer-string))) beg content) (org-agenda-unmark-filtered-text) 
(with-temp-buffer (rename-buffer org-agenda-write-buffer-name t) 
(set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text 
(quote org-filtered)) (while (setq beg (text-property-any ... ... ... 
t)) (delete-region beg (or ... ...))) (run-hooks (quote 
org-agenda-before-write-hook)) (cond ((org-bound-and-true-p 
org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile file)) 
((string-match "\\.org\\'" file) (let ... ... ... ... ... ... ... ... 
...)) ((string-match "\\.html?\\'" file) (require ...) (set-buffer ...) 
(when org-agenda-export-html-style ... ... ...) (write-file file) 
(kill-buffer ...) (message "HTML written to %s" file)) ((string-match 
"\\.ps\\'" file) (require ...) (ps-print-buffer-with-faces file) 
(message "Postscript written to %s" file)) ((string-match "\\.pdf\\'" 
file) (require ...) (ps-print-buffer-with-faces ...) (call-process 
"ps2pdf" nil nil nil ... ...) (delete-file ...) (message "PDF written to 
%s" file)) ((string-match "\\.ics\\'" file) (require ...) 
(org-icalendar-export-current-agenda ...)) (t (let ... ... ... ... ... 
... ...))))))) #<buffer *Org Agenda*>)
   eval((let nil (save-excursion (save-window-excursion 
(org-agenda-mark-filtered-text) (let ((bs (copy-sequence 
(buffer-string))) beg content) (org-agenda-unmark-filtered-text) 
(with-temp-buffer (rename-buffer org-agenda-write-buffer-name t) 
(set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text 
(quote org-filtered)) (while (setq beg (text-property-any ... ... ... 
t)) (delete-region beg (or ... ...))) (run-hooks (quote 
org-agenda-before-write-hook)) (cond ((org-bound-and-true-p 
org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile file)) 
((string-match "\\.org\\'" file) (let ... ... ... ... ... ... ... ... 
...)) ((string-match "\\.html?\\'" file) (require ...) (set-buffer ...) 
(when org-agenda-export-html-style ... ... ...) (write-file file) 
(kill-buffer ...) (message "HTML written to %s" file)) ((string-match 
"\\.ps\\'" file) (require ...) (ps-print-buffer-with-faces file) 
(message "Postscript written to %s" file)) ((string-match "\\.pdf\\'" 
file) (require ...) (ps-print-buffer-with-faces ...) (call-process 
"ps2pdf" nil nil nil ... ...) (delete-file ...) (message "PDF written to 
%s" file)) ((string-match "\\.ics\\'" file) (require ...) 
(org-icalendar-export-current-agenda ...)) (t (let ... ... ... ... ... 
... ...))))))) #<buffer *Org Agenda*>))
   org-let(nil (save-excursion (save-window-excursion 
(org-agenda-mark-filtered-text) (let ((bs (copy-sequence 
(buffer-string))) beg content) (org-agenda-unmark-filtered-text) 
(with-temp-buffer (rename-buffer org-agenda-write-buffer-name t) 
(set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text 
(quote org-filtered)) (while (setq beg (text-property-any (point-min) 
(point-max) (quote org-filtered) t)) (delete-region beg (or 
(next-single-property-change beg ...) (point-max)))) (run-hooks (quote 
org-agenda-before-write-hook)) (cond ((org-bound-and-true-p 
org-mobile-creating-agendas) (org-mobile-write-agenda-for-mobile file)) 
((string-match "\\.org\\'" file) (let (content p m message-log-max) 
(goto-char ...) (while ... ... ... ...) (find-file file) (erase-buffer) 
(mapcar ... ...) (write-file file) (kill-buffer ...) (message "Org file 
written to %s" file))) ((string-match "\\.html?\\'" file) (require 
(quote htmlize)) (set-buffer (htmlize-buffer ...)) (when 
org-agenda-export-html-style (goto-char ...) (kill-region ... ...) 
(insert org-agenda-export-html-style)) (write-file file) (kill-buffer 
(current-buffer)) (message "HTML written to %s" file)) ((string-match 
"\\.ps\\'" file) (require (quote ps-print)) (ps-print-buffer-with-faces 
file) (message "Postscript written to %s" file)) ((string-match 
"\\.pdf\\'" file) (require (quote ps-print)) (ps-print-buffer-with-faces 
(concat ... ".ps")) (call-process "ps2pdf" nil nil nil (expand-file-name 
...) (expand-file-name file)) (delete-file (concat ... ".ps")) (message 
"PDF written to %s" file)) ((string-match "\\.ics\\'" file) (require 
(quote ox-icalendar)) (org-icalendar-export-current-agenda 
(expand-file-name file))) (t (let (...) (find-file file) (erase-buffer) 
(insert bs) (save-buffer 0) (kill-buffer ...) (message "Plain text 
written to %s" file)))))))) #<buffer *Org Agenda*>)
 
org-agenda-write("/home/ian/Documents/emacs/org/org_files/agenda.html" nil)
   call-interactively(org-agenda-write record nil)
   command-execute(org-agenda-write record)
   execute-extended-command(nil "org-agenda-write")
   call-interactively(execute-extended-command nil nil)

Re: Error with org-agenda-write

[Bastien]

Hi Ian,

Ian Barton <lists@wilkesley.net> writes:

> I haven't used this function for a while, but now get the following
> error. Backtrace below. I am using a recent git clone:
> 338e89ef163406e5714a601567415689c478df6d
>
> I am simply doing M-x org-agenda-export end entering a filename
> ~/agenda.html.

This is a problem with htmlize.el: what version are you using?
Do you use the one from the Org distribution?

-- 
 Bastien

Re: Error with org-agenda-write

[Ian Barton]

On 29/04/14 15:56, Bastien wrote:
> Hi Ian,
>
> Ian Barton <lists@wilkesley.net> writes:
>
>> I haven't used this function for a while, but now get the following
>> error. Backtrace below. I am using a recent git clone:
>> 338e89ef163406e5714a601567415689c478df6d
>>
>> I am simply doing M-x org-agenda-export end entering a filename
>> ~/agenda.html.
>
> This is a problem with htmlize.el: what version are you using?
> Do you use the one from the Org distribution?
>

Hi Bastien,

The only version of the file I have on my disk is in 
/home/ian/.emacs.d/src/org-mode/contrib/lisp/htmlize.el


Ian.

Re: Error with org-agenda-write

[Bastien]

Hi Ian,

Ian Barton <lists@wilkesley.net> writes:

> The only version of the file I have on my disk is in
> /home/ian/.emacs.d/src/org-mode/contrib/lisp/htmlize.el

Looks like a problem with one of your (customized?) face.
Can you reproduce it with emacs -Q ?

-- 
 Bastien

Re: Error with org-agenda-write

[Ian Barton]

On 29/04/14 19:06, Bastien wrote:

> Ian Barton <lists@wilkesley.net> writes:
>
>> The only version of the file I have on my disk is in
>> /home/ian/.emacs.d/src/org-mode/contrib/lisp/htmlize.el
>
> Looks like a problem with one of your (customized?) face.
> Can you reproduce it with emacs -Q ?
>
Well I had narrowed it down to this part of my init file:

#+BEGIN_SRC emacs-lisp
   (defun my-adjoin-to-list-or-symbol (element list-or-symbol)
     (let ((list (if (not (listp list-or-symbol))
                     (list list-or-symbol)
                   list-or-symbol)))
       (require 'cl-lib)
       (cl-adjoin element list)))
(mapc
    (lambda (face)
      (set-face-attribute
       face nil
       :inherit
       (my-adjoin-to-list-or-symbol
        'fixed-pitch
        (face-attribute face :inherit))))
    (list 'org-code 'org-block 'org-table 'org-block-background 
'org-date 'org-link 'org-footnote))
#+END_SRC

After removing this the error went away. However, just to confirm this 
was the problem I put that section back in my init file, to see if the 
error re-occurred, and now it all works perfectly with no errors.

I blame the goblins in my computer:) Sorry for the noise.

Ian.