emacs-orgmode
[Top][All Lists]
Advanced

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

[O] agenda htmlize-buffer exception


From: Rainer Stengele
Subject: [O] agenda htmlize-buffer exception
Date: Fri, 27 Jun 2014 18:47:14 +0200
User-agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:24.0) Gecko/20100101 Thunderbird/24.6.0

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)




reply via email to

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