* agenda htmlize-buffer exception
@ 2014-06-27 16:47 Rainer Stengele
2014-07-25 14:40 ` Sebastien Vauban
0 siblings, 1 reply; 2+ messages in thread
From: Rainer Stengele @ 2014-06-27 16:47 UTC (permalink / raw)
To: emacs-orgmode
Hi.
Trying to htmlize my org agenda buffer stops with exception below.
I cannot understand the reason.
I use zenburn color-theme.
org-priority-faces is a variable defined in `org-faces.el'.
Its value is
((67 . "#7cb8bb")
(66 . "#bfebbf")
(65 . "cornflowerblue")
(68 . "grey")
(69 . "grey")
(70 . "grey"))
Can please anybody help!
Thank you,
Rainer
Debugger entered--Lisp error: (wrong-type-argument listp org-priority)
mapcar(htmlize-decode-face-prop ((:inherit nil :foreground "cornflowerblue") . org-priority))
(apply (function nconc) (mapcar (function htmlize-decode-face-prop) prop))
(cond ((null prop) nil) ((symbolp prop) (and (facep prop) (list prop))) ((stringp prop) (and (facep (intern-soft prop)) (list prop))) ((atom prop) nil) ((and (symbolp (car prop))
(eq 58 (aref (symbol-name (car prop)) 0))) (list prop)) ((or (eq (car prop) (quote foreground-color)) (eq (car prop) (quote background-color))) (list prop)) (t (apply (function
nconc) (mapcar (function htmlize-decode-face-prop) prop))))
htmlize-decode-face-prop(((:inherit nil :foreground "cornflowerblue") . org-priority))
(nunion (htmlize-decode-face-prop face-prop) faces :test (quote equal))
(setq faces (nunion (htmlize-decode-face-prop face-prop) faces :test (quote equal)))
(let ((face-prop (overlay-get overlay (quote face)))) (setq faces (nunion (htmlize-decode-face-prop face-prop) faces :test (quote equal))))
(while --dolist-tail-- (setq overlay (car --dolist-tail--)) (let ((face-prop (overlay-get overlay (quote face)))) (setq faces (nunion (htmlize-decode-face-prop face-prop) faces
:test (quote equal)))) (setq --dolist-tail-- (cdr --dolist-tail--)))
(let ((--dolist-tail-- (overlays-in (point-min) (point-max))) overlay) (while --dolist-tail-- (setq overlay (car --dolist-tail--)) (let ((face-prop (overlay-get overlay (quote
face)))) (setq faces (nunion (htmlize-decode-face-prop face-prop) faces :test (quote equal)))) (setq --dolist-tail-- (cdr --dolist-tail--))))
(progn (let ((--dolist-tail-- (overlays-in (point-min) (point-max))) overlay) (while --dolist-tail-- (setq overlay (car --dolist-tail--)) (let ((face-prop (overlay-get overlay
(quote face)))) (setq faces (nunion (htmlize-decode-face-prop face-prop) faces :test (quote equal)))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
(if htmlize-running-xemacs (let (face-prop) (map-extents (function (lambda (extent ignored) (setq face-prop (extent-face extent) faces (if (listp face-prop) (union face-prop
faces) (if ... faces ...))) nil)) nil (point-min) (point-max) nil nil (quote face))) (let ((pos (point-min)) face-prop next) (while (< pos (point-max)) (setq face-prop
(get-text-property pos (quote face)) next (or (next-single-property-change pos (quote face)) (point-max))) (setq faces (nunion (htmlize-decode-face-prop face-prop) faces :test
(quote equal))) (setq pos next))) (progn (let ((--dolist-tail-- (overlays-in (point-min) (point-max))) overlay) (while --dolist-tail-- (setq overlay (car --dolist-tail--)) (let
((face-prop (overlay-get overlay ...))) (setq faces (nunion (htmlize-decode-face-prop face-prop) faces :test (quote equal)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))
(let (faces) (if htmlize-running-xemacs (let (face-prop) (map-extents (function (lambda (extent ignored) (setq face-prop (extent-face extent) faces (if ... ... ...)) nil)) nil
(point-min) (point-max) nil nil (quote face))) (let ((pos (point-min)) face-prop next) (while (< pos (point-max)) (setq face-prop (get-text-property pos (quote face)) next (or
(next-single-property-change pos (quote face)) (point-max))) (setq faces (nunion (htmlize-decode-face-prop face-prop) faces :test (quote equal))) (setq pos next))) (progn (let
((--dolist-tail-- (overlays-in (point-min) (point-max))) overlay) (while --dolist-tail-- (setq overlay (car --dolist-tail--)) (let ((face-prop ...)) (setq faces (nunion ... faces
:test ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))))) faces)
htmlize-faces-in-buffer()
(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()
call-interactively(htmlize-buffer record-it)
(let ((enable-recursive-minibuffers t) (icicle-must-pass-after-match-predicate icicle-orig-must-pass-after-match-pred) (this-command cmd)) (define-key
minibuffer-local-must-match-map " " (if icicle-mode (quote icicle-self-insert) (quote minibuffer-complete-word))) (call-interactively cmd (quote record-it)))
(cond ((arrayp fn) (let ((this-command cmd)) (execute-kbd-macro fn count)) (if (> count 1) (progn (message "(%d times)" count)))) ((commandp cmd) (run-hooks (quote
post-command-hook)) (run-hooks (quote pre-command-hook)) (let ((enable-recursive-minibuffers t) (icicle-must-pass-after-match-predicate icicle-orig-must-pass-after-match-pred)
(this-command cmd)) (define-key minibuffer-local-must-match-map " " (if icicle-mode (quote icicle-self-insert) (quote minibuffer-complete-word))) (call-interactively cmd (quote
record-it)))) (t (error "Not a command: `%s'" cmd-name)))
(let* ((cmd (intern cmd-name)) (fn (and (fboundp cmd) (symbol-function cmd))) (count (prefix-numeric-value current-prefix-arg)) (completion-annotate-function nil)
(icicle-toggle-transforming-message icicle--last-toggle-transforming-msg) (icicle-candidate-alt-action-fn nil) (icicle-all-candidates-list-alt-action-fn nil)
(icicle-candidate-action-fn (and icicle-candidate-action-fn (cons (quote lambda) (cons (quote (arg)) (cons (quote ...) (cons ... ...))))))) (cond ((arrayp fn) (let ((this-command
cmd)) (execute-kbd-macro fn count)) (if (> count 1) (progn (message "(%d times)" count)))) ((commandp cmd) (run-hooks (quote post-command-hook)) (run-hooks (quote
pre-command-hook)) (let ((enable-recursive-minibuffers t) (icicle-must-pass-after-match-predicate icicle-orig-must-pass-after-match-pred) (this-command cmd)) (define-key
minibuffer-local-must-match-map " " (if icicle-mode (quote icicle-self-insert) (quote minibuffer-complete-word))) (call-interactively cmd (quote record-it)))) (t (error "Not a
command: `%s'" cmd-name))) (if (and suggest-key-bindings (not executing-kbd-macro) (not (or (icicle-get-safe this-command (quote icicle-action-command)) (icicle-get-safe
this-command (quote icicle-cycling-command))))) (progn (let* ((binding (if (> emacs-major-version 21) (where-is-internal cmd overriding-local-map t ...) (where-is-internal cmd
overriding-local-map t))) (curr-msg (current-message)) (wait-time (or (and ... suggest-key-bindings) 2))) (if (and binding (not (and ... ...))) (progn (let (... ...) (if ...
...))))))) (setq icicle-new-last-cmd cmd))
icicle-execute-extended-command-1("htmlize-buffer")
funcall(icicle-execute-extended-command-1 "htmlize-buffer")
(let ((cmd-choice (if icicle-buffer-name-input-p (icicle-read-buffer (format "Execute command%s: " (if current-prefix-arg (format " (prefix %d)" ...) "")) nil t) (completing-read
(format "Execute command%s: " (if current-prefix-arg (format " (prefix %d)" ...) "")) obarray (and icompletep pred) t nil (quote extended-command-history) nil nil)))) (setq
icicle-candidate-action-fn nil) (funcall (function icicle-execute-extended-command-1) cmd-choice))
(lambda nil (let ((cmd-choice (if icicle-buffer-name-input-p (icicle-read-buffer (format "Execute command%s: " (if current-prefix-arg ... "")) nil t) (completing-read (format
"Execute command%s: " (if current-prefix-arg ... "")) obarray (and icompletep pred) t nil (quote extended-command-history) nil nil)))) (setq icicle-candidate-action-fn nil)
(funcall (function icicle-execute-extended-command-1) cmd-choice)))()
funcall((lambda nil (let ((cmd-choice (if icicle-buffer-name-input-p (icicle-read-buffer (format "Execute command%s: " (if current-prefix-arg ... "")) nil t) (completing-read
(format "Execute command%s: " (if current-prefix-arg ... "")) obarray (and icompletep pred) t nil (quote extended-command-history) nil nil)))) (setq icicle-candidate-action-fn nil)
(funcall (function icicle-execute-extended-command-1) cmd-choice))))
(condition-case act-on-choice (funcall body) (quit (icicle-try-switch-buffer icicle-orig-buff) nil))
(cond ((and debug-on-error debug-on-quit) (condition-case act-on-choice (funcall body))) (debug-on-error (condition-case act-on-choice (funcall body) (quit
(icicle-try-switch-buffer icicle-orig-buff) nil))) (debug-on-quit (condition-case act-on-choice (funcall body) (error (icicle-try-switch-buffer icicle-orig-buff) nil (error "%s"
(error-message-string act-on-choice))))) (t (condition-case act-on-choice (funcall body) (quit (icicle-try-switch-buffer icicle-orig-buff) nil) (error (icicle-try-switch-buffer
icicle-orig-buff) nil (error "%s" (error-message-string act-on-choice))))))
(let ((body (function (lambda nil (let ((cmd-choice ...)) (setq icicle-candidate-action-fn nil) (funcall (function icicle-execute-extended-command-1) cmd-choice)))))) (cond ((and
debug-on-error debug-on-quit) (condition-case act-on-choice (funcall body))) (debug-on-error (condition-case act-on-choice (funcall body) (quit (icicle-try-switch-buffer
icicle-orig-buff) nil))) (debug-on-quit (condition-case act-on-choice (funcall body) (error (icicle-try-switch-buffer icicle-orig-buff) nil (error "%s" (error-message-string
act-on-choice))))) (t (condition-case act-on-choice (funcall body) (quit (icicle-try-switch-buffer icicle-orig-buff) nil) (error (icicle-try-switch-buffer icicle-orig-buff) nil
(error "%s" (error-message-string act-on-choice)))))))
(progn (define-key minibuffer-local-must-match-map " " (quote minibuffer-complete-word)) (let ((body (function (lambda nil (let (...) (setq icicle-candidate-action-fn nil)
(funcall ... cmd-choice)))))) (cond ((and debug-on-error debug-on-quit) (condition-case act-on-choice (funcall body))) (debug-on-error (condition-case act-on-choice (funcall body)
(quit (icicle-try-switch-buffer icicle-orig-buff) nil))) (debug-on-quit (condition-case act-on-choice (funcall body) (error (icicle-try-switch-buffer icicle-orig-buff) nil (error
"%s" (error-message-string act-on-choice))))) (t (condition-case act-on-choice (funcall body) (quit (icicle-try-switch-buffer icicle-orig-buff) nil) (error
(icicle-try-switch-buffer icicle-orig-buff) nil (error "%s" (error-message-string act-on-choice))))))) (progn (define-key minibuffer-local-must-match-map " " (if icicle-mode (quote
icicle-self-insert) (quote minibuffer-complete-word))) (setq this-command icicle-new-last-cmd)))
(catch (quote icicle-top-level) (progn (define-key minibuffer-local-must-match-map " " (quote minibuffer-complete-word)) (let ((body (function (lambda nil (let ... ... ...)))))
(cond ((and debug-on-error debug-on-quit) (condition-case act-on-choice (funcall body))) (debug-on-error (condition-case act-on-choice (funcall body) (quit
(icicle-try-switch-buffer icicle-orig-buff) nil))) (debug-on-quit (condition-case act-on-choice (funcall body) (error (icicle-try-switch-buffer icicle-orig-buff) nil (error "%s"
...)))) (t (condition-case act-on-choice (funcall body) (quit (icicle-try-switch-buffer icicle-orig-buff) nil) (error (icicle-try-switch-buffer icicle-orig-buff) nil (error "%s"
...)))))) (progn (define-key minibuffer-local-must-match-map " " (if icicle-mode (quote icicle-self-insert) (quote minibuffer-complete-word))) (setq this-command
icicle-new-last-cmd))) nil)
(if (catch (quote icicle-top-level) (progn (define-key minibuffer-local-must-match-map " " (quote minibuffer-complete-word)) (let ((body (function (lambda nil ...)))) (cond ((and
debug-on-error debug-on-quit) (condition-case act-on-choice (funcall body))) (debug-on-error (condition-case act-on-choice (funcall body) (quit ... nil))) (debug-on-quit
(condition-case act-on-choice (funcall body) (error ... nil ...))) (t (condition-case act-on-choice (funcall body) (quit ... nil) (error ... nil ...))))) (progn (define-key
minibuffer-local-must-match-map " " (if icicle-mode (quote icicle-self-insert) (quote minibuffer-complete-word))) (setq this-command icicle-new-last-cmd))) nil) (progn (progn
(define-key minibuffer-local-must-match-map " " (if icicle-mode (quote icicle-self-insert) (quote minibuffer-complete-word))) (setq this-command icicle-new-last-cmd))))
(let* ((icicle-orig-buff (current-buffer)) (icicle-orig-window (selected-window)) (last-command last-command) (use-file-dialog nil) (alt-fn nil)
(icicle-orig-must-pass-after-match-pred icicle-must-pass-after-match-predicate) (pred (function (lambda (c) (if (symbolp c) nil (setq c (intern-soft c))) (commandp c))))
(icompletep (and (boundp (quote icomplete-mode)) icomplete-mode)) (icicle-must-pass-after-match-predicate (and (not icompletep) pred)) (icicle-candidate-alt-action-fn (or
icicle-candidate-alt-action-fn (setq alt-fn (icicle-alt-act-fn-for-type "command")))) (icicle-all-candidates-list-alt-action-fn (or icicle-all-candidates-list-alt-action-fn alt-fn
(icicle-alt-act-fn-for-type "command"))) (icicle--last-toggle-transforming-msg icicle-toggle-transforming-message) (icicle-toggle-transforming-message "Filtering to commands bound
to keys is now %s") (icicle-last-transform-function (function (lambda (cands) (save-current-buffer (set-buffer icicle-pre-minibuffer-buffer) (progn (let* ... ... ...))))))
(icicle-transform-function nil) (completion-annotate-function (function (lambda (cand) (save-current-buffer (set-buffer icicle-pre-minibuffer-buffer) (and (setq cand ...) (symbolp
cand) (let ... ...)))))) icicle-new-last-cmd (icicle-candidate-action-fn (function (lambda (candidate) (let ((minibuffer-completion-table minibuffer-completion-table)
(minibuffer-completion-predicate minibuffer-completion-predicate) (minibuffer-completion-confirm minibuffer-completion-confirm) (minibuffer-completing-file-name
minibuffer-completing-file-name) (minibuffer-completing-symbol ...) (minibuffer-exit-hook minibuffer-exit-hook) (minibuffer-help-form minibuffer-help-form)
(minibuffer-history-variable minibuffer-history-variable) (minibuffer-history-case-insensitive-variables minibuffer-history-case-insensitive-variables)
(minibuffer-history-sexp-flag minibuffer-history-sexp-flag) (minibuffer-message-timeout ...) (minibuffer-prompt-properties ...) (minibuffer-setup-hook minibuffer-setup-hook)
(minibuffer-text-before-history minibuffer-text-before-history)) (let (...) (cond ... ... ... ...)) (select-window (minibuffer-window)) (select-frame-set-input-focus
(selected-frame)) nil))))) (if (catch (quote icicle-top-level) (progn (define-key minibuffer-local-must-match-map " " (quote minibuffer-complete-word)) (let ((body (function ...)))
(cond ((and debug-on-error debug-on-quit) (condition-case act-on-choice ...)) (debug-on-error (condition-case act-on-choice ... ...)) (debug-on-quit (condition-case act-on-choice
... ...)) (t (condition-case act-on-choice ... ... ...)))) (progn (define-key minibuffer-local-must-match-map " " (if icicle-mode (quote icicle-self-insert) (quote
minibuffer-complete-word))) (setq this-command icicle-new-last-cmd))) nil) (progn (progn (define-key minibuffer-local-must-match-map " " (if icicle-mode (quote icicle-self-insert)
(quote minibuffer-complete-word))) (setq this-command icicle-new-last-cmd)))))
icicle-execute-extended-command()
call-interactively(icicle-execute-extended-command nil nil)
command-execute(icicle-execute-extended-command)
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: agenda htmlize-buffer exception
2014-06-27 16:47 agenda htmlize-buffer exception Rainer Stengele
@ 2014-07-25 14:40 ` Sebastien Vauban
0 siblings, 0 replies; 2+ messages in thread
From: Sebastien Vauban @ 2014-07-25 14:40 UTC (permalink / raw)
To: emacs-orgmode-mXXj517/zsQ
Rainer Stengele wrote:
> Trying to htmlize my org agenda buffer stops with exception below.
> I cannot understand the reason.
> I use zenburn color-theme.
>
> org-priority-faces is a variable defined in `org-faces.el'.
> Its value is
> ((67 . "#7cb8bb")
> (66 . "#bfebbf")
> (65 . "cornflowerblue")
> (68 . "grey")
> (69 . "grey")
> (70 . "grey"))
>
> Can please anybody help!
An ECM would really help here...
Though, 65 is the ASCII code for the letter A. Would it be related to
priority cookies such as #A?
Best regards,
Seb
--
Sebastien Vauban
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2014-07-25 14:40 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2014-06-27 16:47 agenda htmlize-buffer exception Rainer Stengele
2014-07-25 14:40 ` Sebastien Vauban
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).