From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: Org-mode version 6.30trans; 'q' key doesn't quit agenda Date: Thu, 3 Sep 2009 13:55:47 +0200 Message-ID: <8779D2D2-A7F8-466D-86CD-16712E3F9B20@gmail.com> References: <4A9FABDE.7010001@sun.com> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MjAv1-0005Nw-CO for emacs-orgmode@gnu.org; Thu, 03 Sep 2009 07:55:59 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MjAuw-0005Kx-JE for emacs-orgmode@gnu.org; Thu, 03 Sep 2009 07:55:58 -0400 Received: from [199.232.76.173] (port=39668 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MjAuw-0005Kg-Cu for emacs-orgmode@gnu.org; Thu, 03 Sep 2009 07:55:54 -0400 Received: from mail-ew0-f211.google.com ([209.85.219.211]:47463) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MjAuv-0003Bm-Ky for emacs-orgmode@gnu.org; Thu, 03 Sep 2009 07:55:54 -0400 Received: by ewy7 with SMTP id 7so465493ewy.31 for ; Thu, 03 Sep 2009 04:55:51 -0700 (PDT) In-Reply-To: <4A9FABDE.7010001@sun.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Neal Thomison Cc: emacs-orgmode@gnu.org 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 "\\" > 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