[Orgmode] Bug: org-agenda-query-and-cmd results in (wrong-type-argument char-or-string-p nil) when org-agenda-query-string is unset [6.33trans (release_6.33c.27.g1bb0d)]

[Friedrich Delgado Friedrichs]

Hiho!

I can't use the '/' command from the agenda.

Here's a backtrace:

Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
  insert("Query:    " nil "\n")
  (save-window-excursion (if expert (set-buffer ...) (delete-other-windows) 
(split-window-vertically) (org-switch-to-buffer-other-window ...)) 
(erase-buffer) (org-set-local (quote org-done-keywords) done-keywords) (insert 
"Query:    " current "\n") (org-agenda-query-op-line op) (insert "\n\n") 
(org-fast-tag-show-exit exit-after-next) (setq tbl fulltable char 97 cnt 0) 
(while (setq e ...) (cond ... ... ...)) (setq ntable (nreverse ntable)) (insert 
"\n") (goto-char (point-min)) (if (and ... ...) (fit-window-to-buffer)) (setq 
rtn (catch ... ...)) (if rtn current nil))
  (let* ((fulltable ...) (maxlen ...) (fwidth ...) (ncol ...) (expert ...) 
(exit-after-next org-agenda-query-selection-single-key) (done-keywords 
org-done-keywords) tbl char cnt e groups ingroup tg c2 c c1 ntable rtn) 
(save-window-excursion (if expert ... ... ... ...) (erase-buffer) 
(org-set-local ... done-keywords) (insert "Query:    " current "\n") 
(org-agenda-query-op-line op) (insert "\n\n") (org-fast-tag-show-exit 
exit-after-next) (setq tbl fulltable char 97 cnt 0) (while ... ...) (setq 
ntable ...) (insert "\n") (goto-char ...) (if ... ...) (setq rtn ...) (if rtn 
current nil)))
  org-agenda-query-selection(nil "+" nil (("REMINDER" . 114) ("DONE" . 107) 
("CANCELLED" . 99) ("DOING" . 100) ("TODO" . 116)))
  (let ((q ...)) (when q (setq org-agenda-query-string q) (org-agenda-redo)))
  org-agenda-query-generic-cmd("+")
  org-agenda-query-and-cmd()
  call-interactively(org-agenda-query-and-cmd nil nil)

Not sure what's wrong here, because it looks like this works for other
people.

org-agenda-query-string seems to be nil by default and it's only set
on the first successful query

Emacs  : GNU Emacs 23.1.50.1 (x86_64-unknown-linux-gnu, GTK+ Version 2.18.3)
 of 2009-11-11 on abrasax
Package: Org-mode version 6.33trans (release_6.33c.27.g1bb0d)

current state (redacted):
=========================
(setq
 org-mutt-link-terminal-emulator "runinscreen"
 org-log-done '(state)
 org-clock-in-switch-to-state "DOING"
 org-export-with-LaTeX-fragments t
 org-archive-default-command 'org-toggle-archive-tag
 org-todo-keyword-faces '(("REMINDER" :foreground "green4"))
 org-special-ctrl-a/e t
 org-agenda-files-common-someday '("~/Org/Someday.org")
 org-agenda-custom-commands '(("d" todo "DOING" nil)
                              ("S" tags "STALLED" ((org-use-tag-inheritance 
nil)))
                              ("w" tags "WAITING" ((org-use-tag-inheritance 
nil)))
                              ("r" "Describe command here" todo "REMINDER" nil)
                              ("l" "\"Shopping List\" (just the headings)"
                               tags-todo "List"
                               ((org-agenda-remove-tags t)
                                (org-agenda-prefix-format "")
                                (org-agenda-todo-keyword-format "")
                                (org-agenda-sorting-strategy
                                 (quote (category-up priority-down)))
                                (org-habit-graph-column nil))
                               )
                              ("p" "Project List" tags "Project"
                               ((org-use-tag-inheritance nil)))
                              )
 org-agenda-include-diary t
 org-blocker-hook '(org-depend-block-todo)
 org-export-with-sub-superscripts '{}
 org-hide-leading-stars t
 org-mairix-display-hook 'org-mairix-gnus-display-results
 org-agenda-exporter-settings '((htmlize-output-type (quote inline-css)))
 org-checklist-export-function 'org-export-as-ascii
 org-completion-use-ido t
 org-startup-truncated nil
 org-agenda-skip-timestamp-if-done t
 org-after-todo-state-change-hook '(org-checklist org-clock-out-if-current)
 org-combined-agenda-icalendar-file "~/git/Org/home/org.ics"
 org-agenda-todo-ignore-scheduled t
 org-clock-history-length 15
 org-icalendar-timezone "Europe/Berlin"
 org-startup-folded 'content
 org-odd-levels-only t
 org-use-fast-tag-selection nil
 outline-minor-mode-prefix ""
 org-special-ctrl-k t
 org-id-include-domain t
 org-agenda-remove-times-when-in-prefix 'beg
 org-agenda-sorting-strategy '((agenda time-up priority-down category-keep)
                               (todo priority-down category-keep tag-down)
                               (tags priority-down category-keep tag-down)
                               (search category-keep))
 org-agenda-columns-add-appointments-to-effort-sum t
 org-keep-stored-link-after-insertion t
 org-agenda-skip-scheduled-if-done t
 org-stuck-projects '("+Project/-DONE" ("TODO" "DOING") ("WAITING") "")
 org-clock-in-resume t
 org-trigger-hook '(org-depend-trigger-todo)
 org-export-preprocess-hook '(org-export-blocks-preprocess)
 org-tags-exclude-from-inheritance '("Project")
 org-tab-first-hook '(org-hide-block-toggle-maybe)
 org-src-mode-hook '(org-src-mode-configure-edit-buffer)
 org-export-with-priority t
 org-confirm-shell-link-function 'yes-or-no-p
 org-clock-persist t
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-icalendar-include-sexps nil
 org-effort-property "EFFORT"
 org-icalendar-use-scheduled '(event-if-not-todo event-if-todo)
 org-default-notes-file "~/Org/Notes.org"
 org-use-property-inheritance '("DEADLINE PRIORITY")
 org-directory "~/Org"
 org-insert-heading-hook '((lambda nil
                            (save-excursion (insert "\n")
                             (org-insert-time-stamp (current-time) t t)
                             (org-indent-line-function))
                            )
                           )
 org-export-mark-todo-in-toc t
 org-export-html-use-infojs t
 org-blank-before-new-entry '((heading) (plain-list-item))
 org-habit-graph-column 50
 org-use-extra-keys t
 org-icalendar-verify-function 'my-icalendar-verify
 org-n-level-faces 12
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
                  org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-link-to-org-use-id t
 org-mode-hook '((lambda nil (setf comment-start nil)) imenu-add-menubar-index
                 (lambda nil
                  (org-add-hook (quote change-major-mode-hook)
                   (quote org-show-block-all) (quote append) (quote local))
                  )
                 )
 org-clock-out-remove-zero-time-clocks t
 org-mairix-gnus-select-display-group-function 
'org-mairix-gnus-select-display-group-function-gg
 org-global-properties '(("EFFORT_ALL" .
                          "0 0:02:00 0:05:00 0:10:00 0:20:0 0:30:00 1 2 3 4 5 6 
7 8 16 24 32 40 48 56 64")
                         )
 org-refile-targets '((org-agenda-files :maxlevel . 5))
 org-return-follows-link t
 org-confirm-elisp-link-function 'yes-or-no-p
 org-icalendar-use-deadline '(event-if-not-todo event-if-todo)
 org-refile-use-outline-path 'full-file-path
 org-fast-tag-selection-single-key t
 org-icalendar-categories '(all-tags category todo-state)
 org-log-into-drawer t
 org-agenda-start-on-weekday nil
 org-agenda-skip-deadline-if-done t
 org-refile-allow-creating-parent-nodes 'confirm
 org-insert-heading-respect-content t
 org-icalendar-store-UID t
 org-occur-hook '(org-first-headline-recenter)
 org-icalendar-include-body 1000
 org-icalendar-use-plain-timestamp nil
 org-drawers '("PROPERTIES" "CLOCK" "LOGBOOK" "SCHEDULE" "HIDDEN")
 org-agenda-todo-ignore-deadlines t
 org-modules '(org-bbdb org-bibtex org-gnus org-id org-info org-jsinfo org-habit
               org-irc org-mew org-mhe org-protocol org-rmail org-vm org-wl 
org-w3m
               org-annotate-file org-bookmark org-depend org-elisp-symbol
               org-interactive-query org-mairix org-man org-toc)
 org-columns-default-format "%66ITEM %8TODO %3PRIORITY %SCHEDULED %DEADLINE 
%6EFFORT{:} %TAGS %5CLOCKSUM{:}"
 org-agenda-auto-exclude-function 'org-my-auto-exclude-function
 org-agenda-after-show-hook '(show-all)
 org-remember-templates '(("" 119 "* %?\n%u\n%c\n%a\n%i" "~/Org/Collect.org"
                           "Web links" nil)
                          ("" 116 "* TODO %?\n  %u\n  %a\n  %c\n  %i"
                           "~/Org/Collect.org" "Tasks" nil)
                          ("" 110 "* %?\n  %u\n  %a\n  %c\n  %i"
                           "~/Org/Collect.org" "Notes" nil)
                          )
 org-ellipsis 'org-ellipsis
 )

-- 
        Friedrich Delgado Friedrichs <address@hidden>
                             TauPan on Ircnet and Freenode ;)

pgpS66V3r4Mxn.pgp
Description: PGP signature