Debugger entered--Lisp error: (error "Cannot resize window #") signal(error ("Cannot resize window #")) error("Cannot resize window %s" #) window-resize(# 17 nil # nil) window-resize-no-error(# 17 nil # nil) fit-window-to-buffer(nil nil nil) (cond ((if (fboundp (quote window-full-width-p)) (not (window-full-width-p window)) (> (frame-width) (window-width window)))) ((and (fboundp (quote fit-window-to-buffer)) (not shrink-only)) (fit-window-to-buffer window max-height min-height)) ((fboundp (quote shrink-window-if-larger-than-buffer)) (shrink-window-if-larger-than-buffer window))) org-fit-window-to-buffer() (if expertp (org-export--dispatch-action expert-prompt allowed-keys entries options first-key expertp) (if (get-buffer "*Org Export Dispatcher*") nil (delete-other-windows) (org-switch-to-buffer-other-window (get-buffer-create "*Org Export Dispatcher*")) (setq cursor-type nil header-line-format "Use SPC, DEL, C-n or C-p to navigate.") (set-syntax-table (copy-syntax-table)) (modify-syntax-entry 91 "w")) (save-current-buffer (set-buffer "*Org Export Dispatcher*") (let ((pos (window-start))) (erase-buffer) (insert help) (set-window-start nil pos))) (org-fit-window-to-buffer) (org-export--dispatch-action standard-prompt allowed-keys entries options first-key expertp)) (let* ((fontify-key (function (lambda (key &optional access-key) (if (or (eq access-key t) (eq access-key first-key)) (org-propertize key (quote face) (quote org-warning)) key)))) (fontify-value (function (lambda (value) (org-propertize value (quote face) (quote font-lock-variable-name-face))))) (entries (sort (sort (delq nil (mapcar (quote org-export-backend-menu) org-export--registered-backends)) (function (lambda (a b) (let ... ...)))) (quote car-less-than-car))) (allowed-keys (nconc (list 2 22 19 6 1) (if (not first-key) (org-uniquify (mapcar (quote car) entries)) (let (sub-menu) (let (... entry) (while --dolist-tail-- ... ... ...) (setq entry nil) (sort ... ...)))) (cond ((eq first-key 80) (list 102 112 120 97)) ((not first-key) (list 80))) (list 38 35) (if expertp (progn (list 63))) (list 113))) (help (if expertp nil (concat (format "[%s] Body only: %s [%s] Visible only: %s\n[%s] Export scope: %s [%s] Force publishing: %s\n[%s] Async export: %s\n\n" (funcall fontify-key "C-b" t) (funcall fontify-value (if ... "On " "Off")) (funcall fontify-key "C-v" t) (funcall fontify-value (if ... "On " "Off")) (funcall fontify-key "C-s" t) (funcall fontify-value (if ... "Subtree" "Buffer ")) (funcall fontify-key "C-f" t) (funcall fontify-value (if ... "On " "Off")) (funcall fontify-key "C-a" t) (funcall fontify-value (if ... "On " "Off"))) (let (last-key) (mapconcat (function ...) entries "")) (format "\n[%s] Publish\n [%s] Current file [%s] Current project\n [%s] Choose project [%s] All projects\n\n\n" (funcall fontify-key "P") (funcall fontify-key "f" 80) (funcall fontify-key "p" 80) (funcall fontify-key "x" 80) (funcall fontify-key "a" 80)) (format "[%s] Export stack [%s] Insert template\n" (funcall fontify-key "&" t) (funcall fontify-key "#" t)) (format "[%s] %s" (funcall fontify-key "q" t) (if first-key "Main menu" "Exit"))))) (standard-prompt (if expertp nil "Export command: ")) (expert-prompt (if expertp (progn (format "Export command (C-%s%s%s%s%s) [%s]: " (if (memq ... options) (funcall fontify-key "b" t) "b") (if (memq ... options) (funcall fontify-key "v" t) "v") (if (memq ... options) (funcall fontify-key "s" t) "s") (if (memq ... options) (funcall fontify-key "f" t) "f") (if (memq ... options) (funcall fontify-key "a" t) "a") (mapconcat (function ...) allowed-keys "")))))) (if expertp (org-export--dispatch-action expert-prompt allowed-keys entries options first-key expertp) (if (get-buffer "*Org Export Dispatcher*") nil (delete-other-windows) (org-switch-to-buffer-other-window (get-buffer-create "*Org Export Dispatcher*")) (setq cursor-type nil header-line-format "Use SPC, DEL, C-n or C-p to navigate.") (set-syntax-table (copy-syntax-table)) (modify-syntax-entry 91 "w")) (save-current-buffer (set-buffer "*Org Export Dispatcher*") (let ((pos (window-start))) (erase-buffer) (insert help) (set-window-start nil pos))) (org-fit-window-to-buffer) (org-export--dispatch-action standard-prompt allowed-keys entries options first-key expertp))) org-export--dispatch-ui((buffer nil) nil nil) (setq org-export-dispatch-last-action (org-export--dispatch-ui (list org-export-initial-scope (and org-export-in-background (quote async))) nil org-export-dispatch-use-expert-ui)) (progn (move-marker org-export-dispatch-last-position (point) (org-base-buffer (current-buffer))) (setq org-export-dispatch-last-action (org-export--dispatch-ui (list org-export-initial-scope (and org-export-in-background (quote async))) nil org-export-dispatch-use-expert-ui))) (unwind-protect (progn (move-marker org-export-dispatch-last-position (point) (org-base-buffer (current-buffer))) (setq org-export-dispatch-last-action (org-export--dispatch-ui (list org-export-initial-scope (and org-export-in-background (quote async))) nil org-export-dispatch-use-expert-ui))) (and (get-buffer "*Org Export Dispatcher*") (kill-buffer "*Org Export Dispatcher*"))) (progn (unwind-protect (progn (move-marker org-export-dispatch-last-position (point) (org-base-buffer (current-buffer))) (setq org-export-dispatch-last-action (org-export--dispatch-ui (list org-export-initial-scope (and org-export-in-background (quote async))) nil org-export-dispatch-use-expert-ui))) (and (get-buffer "*Org Export Dispatcher*") (kill-buffer "*Org Export Dispatcher*")))) (unwind-protect (progn (unwind-protect (progn (move-marker org-export-dispatch-last-position (point) (org-base-buffer (current-buffer))) (setq org-export-dispatch-last-action (org-export--dispatch-ui (list org-export-initial-scope (and org-export-in-background ...)) nil org-export-dispatch-use-expert-ui))) (and (get-buffer "*Org Export Dispatcher*") (kill-buffer "*Org Export Dispatcher*")))) (set-window-configuration wconfig)) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (unwind-protect (progn (move-marker org-export-dispatch-last-position (point) (org-base-buffer (current-buffer))) (setq org-export-dispatch-last-action (org-export--dispatch-ui (list org-export-initial-scope ...) nil org-export-dispatch-use-expert-ui))) (and (get-buffer "*Org Export Dispatcher*") (kill-buffer "*Org Export Dispatcher*")))) (set-window-configuration wconfig))) (cond ((equal arg (quote (16))) (quote (stack))) ((and arg org-export-dispatch-last-action)) (t (let ((wconfig (current-window-configuration))) (unwind-protect (progn (unwind-protect (progn (move-marker org-export-dispatch-last-position ... ...) (setq org-export-dispatch-last-action ...)) (and (get-buffer "*Org Export Dispatcher*") (kill-buffer "*Org Export Dispatcher*")))) (set-window-configuration wconfig))))) (let* ((input (cond ((equal arg (quote (16))) (quote (stack))) ((and arg org-export-dispatch-last-action)) (t (let ((wconfig ...)) (unwind-protect (progn ...) (set-window-configuration wconfig)))))) (action (car input)) (optns (cdr input))) (if (memq (quote subtree) optns) nil (move-marker org-export-dispatch-last-position nil)) (cond ((eql action (quote template)) (org-export-insert-default-template nil optns)) ((eql action (quote stack)) (org-export-stack)) ((eql action (quote publish-current-file)) (org-publish-current-file (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-current-project)) (org-publish-current-project (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-choose-project)) (org-publish (assoc (org-icompleting-read "Publish project: " org-publish-project-alist nil t) org-publish-project-alist) (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-all)) (org-publish-all (memq (quote force) optns) (memq (quote async) optns))) (t (save-excursion (if arg (progn (if (eq ... ...) (goto-char org-export-dispatch-last-position) (move-marker org-export-dispatch-last-position nil)))) (funcall action (and (memq (quote async) optns) t) (and (memq (quote subtree) optns) t) (and (memq (quote visible) optns) t) (and (memq (quote body) optns) t)))))) org-export-dispatch(nil) call-interactively(org-export-dispatch nil nil) command-execute(org-export-dispatch)