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

* Org-mode version 6.30trans; 'q' key doesn't quit agenda
@ 2009-09-03 11:43 Neal Thomison
  2009-09-03 11:55 ` Carsten Dominik
  0 siblings, 1 reply; 2+ messages in thread
From: Neal Thomison @ 2009-09-03 11:43 UTC (permalink / raw)
  To: emacs-orgmode

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
 )

^ permalink raw reply	[flat|nested] 2+ messages in thread