From mboxrd@z Thu Jan 1 00:00:00 1970 From: Rainer Stengele Subject: agenda htmlize-buffer exception Date: Fri, 27 Jun 2014 18:47:14 +0200 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-15 Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:35950) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X0ZJK-0001Aw-1n for emacs-orgmode@gnu.org; Fri, 27 Jun 2014 12:47:45 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1X0ZJC-0001m2-GQ for emacs-orgmode@gnu.org; Fri, 27 Jun 2014 12:47:37 -0400 Received: from plane.gmane.org ([80.91.229.3]:52813) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X0ZJC-0001lC-0B for emacs-orgmode@gnu.org; Fri, 27 Jun 2014 12:47:30 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1X0ZJA-0002V8-8P for emacs-orgmode@gnu.org; Fri, 27 Jun 2014 18:47:28 +0200 Received: from 212.34.176.74 ([212.34.176.74]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 27 Jun 2014 18:47:28 +0200 Received: from rainer.stengele by 212.34.176.74 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 27 Jun 2014 18:47:28 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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 "\n" htmlize-version htmlize-output-type) "\n ") (put places (quote head-start) (point-marker)) (insert "\n" " " (htmlize-protect-string title) "\n" (if htmlize-html-charset (format (concat " \n") htmlize-html-charset) "") htmlize-head-tags) (funcall (htmlize-method-function (quote insert-head)) buffer-faces face-map) (insert " ") (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 "
\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 "
") (put places (quote content-end) (point-marker)) (insert "\n ") (put places (quote body-end) (point-marker)) (insert "\n\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 "\n" htmlize-version htmlize-output-type) "\n ") (put places (quote head-start) (point-marker)) (insert "\n" " " (htmlize-protect-string title) "\n" (if htmlize-html-charset (format (concat " \n") htmlize-html-charset) "") htmlize-head-tags) (funcall (htmlize-method-function (quote insert-head)) buffer-faces face-map) (insert " ") (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 "
\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 "
") (put places (quote content-end) (point-marker)) (insert "\n ") (put places (quote body-end) (point-marker)) (insert "\n\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 "\n" htmlize-version htmlize-output-type) "\n ") (put places (quote head-start) (point-marker)) (insert "\n" " " (htmlize-protect-string title) "\n" (if htmlize-html-charset (format (concat " \n") htmlize-html-charset) "") htmlize-head-tags) (funcall (htmlize-method-function (quote insert-head)) buffer-faces face-map) (insert " ") (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 "
\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 "
") (put places (quote content-end) (point-marker)) (insert "\n ") (put places (quote body-end) (point-marker)) (insert "\n\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 "\n" htmlize-version htmlize-output-type) "\n ") (put places (quote head-start) (point-marker)) (insert "\n" " " (htmlize-protect-string 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 " ") (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 "
\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 "
") (put places (quote content-end) (point-marker)) (insert "\n ") (put places (quote body-end) (point-marker)) (insert "\n\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)