Re: Org-mode version 6.30trans; 'q' key doesn't quit agenda

[Carsten Dominik <carsten.dominik@gmail.com>]

Hi Neal,

Yes, in Emacs 22 it seems that this argument is needed.

Fixed, thanks.

- Carsten

On Sep 3, 2009, at 1:43 PM, Neal Thomison wrote:

>
> 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