From mboxrd@z Thu Jan 1 00:00:00 1970 From: Neal Thomison Subject: Org-mode version 6.30trans; 'q' key doesn't quit agenda Date: Thu, 03 Sep 2009 07:43:26 -0400 Message-ID: <4A9FABDE.7010001@sun.com> Mime-Version: 1.0 Content-Type: text/plain; CHARSET=US-ASCII Content-Transfer-Encoding: 7BIT Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MjAj9-0002Ms-4J for emacs-orgmode@gnu.org; Thu, 03 Sep 2009 07:43:43 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MjAj3-0002Ij-Dr for emacs-orgmode@gnu.org; Thu, 03 Sep 2009 07:43:42 -0400 Received: from [199.232.76.173] (port=52015 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MjAj2-0002IZ-Iy for emacs-orgmode@gnu.org; Thu, 03 Sep 2009 07:43:36 -0400 Received: from brmea-mail-1.sun.com ([192.18.98.31]:63977) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MjAj2-00019F-38 for emacs-orgmode@gnu.org; Thu, 03 Sep 2009 07:43:36 -0400 Received: from fe-amer-10.sun.com ([192.18.109.80]) by brmea-mail-1.sun.com (8.13.6+Sun/8.12.9) with ESMTP id n83BhWEw018892 for ; Thu, 3 Sep 2009 11:43:32 GMT Received: from conversion-daemon.mail-amer.sun.com by mail-amer.sun.com (Sun Java(tm) System Messaging Server 7u2-7.04 64bit (built Jul 2 2009)) id <0KPE001008FEWV00@mail-amer.sun.com> for emacs-orgmode@gnu.org; Thu, 03 Sep 2009 05:43:32 -0600 (MDT) Received: from viewport3-2.local ([unknown] [71.120.102.122]) by mail-amer.sun.com (Sun Java(tm) System Messaging Server 7u2-7.04 64bit (built Jul 2 2009)) with ESMTPSA id <0KPE0098V8KF1MF0@mail-amer.sun.com> for emacs-orgmode@gnu.org; Thu, 03 Sep 2009 05:43:32 -0600 (MDT) 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: emacs-orgmode@gnu.org 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 )