Debugger entered--Lisp error: (wrong-type-argument buffer-or-string-p ((org-agenda-with-colors nil) (org-agenda-prefix-format "%T [ ]") (org-agenda-todo-keyword-format "") (org-agenda-include-all-todo nil) (org-agenda-block-separator "--------------- ") (org-agenda-remove-tags t) (ps-number-of-columns 2) (ps-print-header nil) (ps-landscape-mode t))) set-text-properties(0 9 nil ((org-agenda-with-colors nil) (org-agenda-prefix-format "%T [ ]") (org-agenda-todo-keyword-format "") (org-agenda-include-all-todo nil) (org-agenda-block-separator "---------------\n") (org-agenda-remove-tags t) (ps-number-of-columns 2) (ps-print-header nil) (ps-landscape-mode t))) (if (fboundp (quote set-text-properties)) (set-text-properties 0 (length s) nil s) (remove-text-properties 0 (length s) org-rm-props s)) org-no-properties(((org-agenda-with-colors nil) (org-agenda-prefix-format "%T [ ]") (org-agenda-todo-keyword-format "") (org-agenda-include-all-todo nil) (org-agenda-block-separator "---------------\n") (org-agenda-remove-tags t) (ps-number-of-columns 2) (ps-print-header nil) (ps-landscape-mode t))) (setq key (car entry) desc (nth 1 entry) type (nth 2 entry) match (org-no-properties (copy-sequence ...))) (while (setq entry (pop custom1)) (setq key (car entry) desc (nth 1 entry) type (nth 2 entry) match (org-no-properties ...)) (if (> ... 1) (add-to-list ... ...) (insert ...))) (while t (setq custom1 custom) (when (eq rmheader t) (goto-line 1) (re-search-forward ":" nil t) (delete-region ... ...) (forward-char 1) (looking-at "-+") (delete-region ... ...) (move-marker header-end ...)) (goto-char header-end) (delete-region (point) (point-max)) (while (setq entry ...) (setq key ... desc ... type ... match ...) (if ... ... ...)) (when prefixes (mapc ... prefixes)) (goto-char (point-min)) (if second-time (if ... ...) (setq second-time t) (org-fit-window-to-buffer)) (message "Press key for agenda command%s:" (if ... ... "")) (setq c (read-char-exclusive)) (message "") (cond (... ... ...) (... ...) (... ... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ...) (... ... ...) (... ...) (t ...))) (save-window-excursion (delete-other-windows) (org-switch-to-buffer-other-window " *Agenda Commands*") (erase-buffer) (insert (eval-when-compile ...)) (setq header-end (move-marker ... ...)) (while t (setq custom1 custom) (when ... ... ... ... ... ... ... ...) (goto-char header-end) (delete-region ... ...) (while ... ... ...) (when prefixes ...) (goto-char ...) (if second-time ... ... ...) (message "Press key for agenda command%s:" ...) (setq c ...) (message "") (cond ... ... ... ... ... ... ... ... ... ... ...))) (let* ((bfn ...) (restrict-ok ...) (region-p ...) (custom org-agenda-custom-commands) (selstring "") restriction second-time c entry key type match prefixes rmheader header-end custom1 desc) (save-window-excursion (delete-other-windows) (org-switch-to-buffer-other-window " *Agenda Commands*") (erase-buffer) (insert ...) (setq header-end ...) (while t ... ... ... ... ... ... ... ... ... ... ... ...))) (catch (quote exit) (let* (... ... ... ... ... restriction second-time c entry key type match prefixes rmheader header-end custom1 desc) (save-window-excursion ... ... ... ... ... ...))) org-agenda-get-restriction-and-command((("q" . "Searches"))) (setq ans (org-agenda-get-restriction-and-command prefix-descriptions) keys (car ans) restriction (cdr ans)) (if keys nil (setq ans (org-agenda-get-restriction-and-command prefix-descriptions) keys (car ans) restriction (cdr ans))) (unless keys (setq ans (org-agenda-get-restriction-and-command prefix-descriptions) keys (car ans) restriction (cdr ans))) (let* ((prefix-descriptions nil) (org-agenda-custom-commands-orig org-agenda-custom-commands) (org-agenda-custom-commands ...) (buf ...) (bfn ...) entry key type match lprops ans) (unless org-agenda-overriding-restriction (put ... ... nil) (setq org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil)) (put (quote org-agenda-redo-command) (quote org-lprops) nil) (setq org-agenda-last-dispatch-buffer (current-buffer)) (unless keys (setq ans ... keys ... restriction ...)) (when (and ... restriction) (put ... ... ...) (cond ... ...)) (require (quote calendar)) (cond (... ...) (... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ...) (... ...) (... ...) (t ...))) (catch (quote exit) (let* (... ... ... ... ... entry key type match lprops ans) (unless org-agenda-overriding-restriction ... ... ... ...) (put ... ... nil) (setq org-agenda-last-dispatch-buffer ...) (unless keys ...) (when ... ... ...) (require ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) org-agenda(nil) call-interactively(org-agenda nil nil) recursive-edit() byte-code("Æ @Ç=ƒ! debug(error (wrong-type-argument buffer-or-string-p ((org-agenda-with-colors nil) (org-agenda-prefix-format "%T [ ]") (org-agenda-todo-keyword-format "") (org-agenda-include-all-todo nil) (org-agenda-block-separator "---------------\n") (org-agenda-remove-tags t) (ps-number-of-columns 2) (ps-print-header nil) (ps-landscape-mode t)))) set-text-properties(0 9 nil ((org-agenda-with-colors nil) (org-agenda-prefix-format "%T [ ]") (org-agenda-todo-keyword-format "") (org-agenda-include-all-todo nil) (org-agenda-block-separator "---------------\n") (org-agenda-remove-tags t) (ps-number-of-columns 2) (ps-print-header nil) (ps-landscape-mode t))) (if (fboundp (quote set-text-properties)) (set-text-properties 0 (length s) nil s) (remove-text-properties 0 (length s) org-rm-props s)) org-no-properties(((org-agenda-with-colors nil) (org-agenda-prefix-format "%T [ ]") (org-agenda-todo-keyword-format "") (org-agenda-include-all-todo nil) (org-agenda-block-separator "---------------\n") (org-agenda-remove-tags t) (ps-number-of-columns 2) (ps-print-header nil) (ps-landscape-mode t))) (setq key (car entry) desc (nth 1 entry) type (nth 2 entry) match (org-no-properties (copy-sequence ...))) (while (setq entry (pop custom1)) (setq key (car entry) desc (nth 1 entry) type (nth 2 entry) match (org-no-properties ...)) (if (> ... 1) (add-to-list ... ...) (insert ...))) (while t (setq custom1 custom) (when (eq rmheader t) (goto-line 1) (re-search-forward ":" nil t) (delete-region ... ...) (forward-char 1) (looking-at "-+") (delete-region ... ...) (move-marker header-end ...)) (goto-char header-end) (delete-region (point) (point-max)) (while (setq entry ...) (setq key ... desc ... type ... match ...) (if ... ... ...)) (when prefixes (mapc ... prefixes)) (goto-char (point-min)) (if second-time (if ... ...) (setq second-time t) (org-fit-window-to-buffer)) (message "Press key for agenda command%s:" (if ... ... "")) (setq c (read-char-exclusive)) (message "") (cond (... ... ...) (... ...) (... ... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ...) (... ... ...) (... ...) (t ...))) (save-window-excursion (delete-other-windows) (org-switch-to-buffer-other-window " *Agenda Commands*") (erase-buffer) (insert (eval-when-compile ...)) (setq header-end (move-marker ... ...)) (while t (setq custom1 custom) (when ... ... ... ... ... ... ... ...) (goto-char header-end) (delete-region ... ...) (while ... ... ...) (when prefixes ...) (goto-char ...) (if second-time ... ... ...) (message "Press key for agenda command%s:" ...) (setq c ...) (message "") (cond ... ... ... ... ... ... ... ... ... ... ...))) (let* ((bfn ...) (restrict-ok ...) (region-p ...) (custom org-agenda-custom-commands) (selstring "") restriction second-time c entry key type match prefixes rmheader header-end custom1 desc) (save-window-excursion (delete-other-windows) (org-switch-to-buffer-other-window " *Agenda Commands*") (erase-buffer) (insert ...) (setq header-end ...) (while t ... ... ... ... ... ... ... ... ... ... ... ...))) (catch (quote exit) (let* (... ... ... ... ... restriction second-time c entry key type match prefixes rmheader header-end custom1 desc) (save-window-excursion ... ... ... ... ... ...))) org-agenda-get-restriction-and-command((("q" . "Searches"))) (setq ans (org-agenda-get-restriction-and-command prefix-descriptions) keys (car ans) restriction (cdr ans)) (if keys nil (setq ans (org-agenda-get-restriction-and-command prefix-descriptions) keys (car ans) restriction (cdr ans))) (unless keys (setq ans (org-agenda-get-restriction-and-command prefix-descriptions) keys (car ans) restriction (cdr ans))) (let* ((prefix-descriptions nil) (org-agenda-custom-commands-orig org-agenda-custom-commands) (org-agenda-custom-commands ...) (buf ...) (bfn ...) entry key type match lprops ans) (unless org-agenda-overriding-restriction (put ... ... nil) (setq org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil)) (put (quote org-agenda-redo-command) (quote org-lprops) nil) (setq org-agenda-last-dispatch-buffer (current-buffer)) (unless keys (setq ans ... keys ... restriction ...)) (when (and ... restriction) (put ... ... ...) (cond ... ...)) (require (quote calendar)) (cond (... ...) (... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ...) (... ...) (... ...) (t ...))) (catch (quote exit) (let* (... ... ... ... ... entry key type match lprops ans) (unless org-agenda-overriding-restriction ... ... ... ...) (put ... ... nil) (setq org-agenda-last-dispatch-buffer ...) (unless keys ...) (when ... ... ...) (require ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) org-agenda(nil) call-interactively(org-agenda nil nil)