The 'q' key fails to quit an agenda buffer.
The error message is:
org-agenda-quit: Wrong number of arguments: window-dedicated-p, 0
I looked at the code and the problem seems to be here:
(defun org-agenda-quit ()
"Exit agenda by removing the window or the buffer."
(interactive)
(if org-agenda-columns-active
(org-columns-quit)
(if (window-dedicated-p) (delete-other-windows))
...))
'window-dedicated-p' requires a window arg
Thanks,
Neal
------------------------------------------------------------------------
Emacs : GNU Emacs 22.3.1 (i386-apple-darwin9.7.0, Carbon Version 1.6.0)
of 2009-08-05 on viewport3-2.local
Package: Org-mode version 6.30trans
current state:
==============
(setq
org-log-done '(done state)
org-todo-keyword-faces '(("TODO" :foreground "green4" :slant italic)
("NEXT" :foreground "green" :slant italic)
("WAIT" :foreground "OrangeRed1" :weight bold)
("DONE" :foreground "SteelBlue1"))
org-agenda-custom-commands '(("p" tags-tree #(":PROJECT:/+TODO|+NEXT" 0
21 (face org-warning)))
("w" tags-tree #(":PROJECT:/WAIT" 0 14 (face
org-warning)))
("i" tags #(":PROJECT:" 0 9 (face org-warning))
((org-agenda-skip-function
(lambda nil
(let ((subtree-end (save-excursion (org-end-of-subtree
t))))
(if (re-search-forward "TODO\\|NEXT\\|WAIT"
subtree-end t)
subtree-end nil)
)
)
)
(org-agenda-overriding-header "Malformed projects: "))
)
("x" tags-tree #(":PROJECT:" 0 9 (face org-warning))
((org-agenda-skip-function
(quote
(org-agenda-skip-entry (quote regexp)
"TODO\\|NEXT\\|WAIT"))
)
(org-agenda-overriding-header "Projects & steps list: "))
)
)
org-agenda-files '("~/Desktop/Org/work.org"
"~/Desktop/Org/home.org")
org-agenda-include-diary t
org-agenda-window-setup 'current-window
org-after-todo-state-change-hook '(org-clock-out-if-current)
org-agenda-sorting-strategy '((agenda time-up category-down
priority-down) (todo priority-down)
(tags priority-down))
org-agenda-restore-windows-after-quit t
org-agenda-skip-scheduled-if-done t
org-agenda-time-grid '((daily today require-timed remove-match)
"----------------"
(800 1000 1200 1400 1600 1800 2000))
org-export-preprocess-hook '(org-export-blocks-preprocess)
org-tab-first-hook '(org-hide-block-toggle-maybe)
org-src-mode-hook '(org-src-mode-configure-edit-buffer)
org-confirm-shell-link-function 'yes-or-no-p
org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "WAIT(w@/!)" "DONE(d!)"))
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-default-notes-file "~/Desktop/Org/notes.org"
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-mode-hook '(#[nil "\300\301\302\303\304$\207"
[org-add-hook change-major-mode-hook org-show-block-all
append local] 5]
)
org-indirect-buffer-display 'new-frame
org-refile-targets '((org-agenda-files :maxlevel . 2))
org-confirm-elisp-link-function 'yes-or-no-p
org-fast-tag-selection-single-key 'expert
org-log-into-drawer t
org-agenda-mode-hook '((lambda nil (hl-line-mode 1)))
org-agenda-skip-deadline-if-done t
org-reverse-note-order t
org-occur-hook '(org-first-headline-recenter)
org-from-is-user-regexp "\\<Neal Thomison\\>"
org-remember-templates '(("home" 104 "* TODO %? %u\n\n"
"~/Desktop/Org/home.org" "Tasks" nil)
("notes" 110 "* %u %?" "~/Desktop/Org/notes.org" "Notes" nil)
("work" 119 "* TODO %? %u\n\n" "~/Desktop/Org/work.org"
"Tasks" nil))
org-icalendar-include-todo t
)
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
