From: Neal Thomison <Neal.Thomison@Sun.COM>
To: emacs-orgmode@gnu.org
Subject: Org-mode version 6.30trans; 'q' key doesn't quit agenda
Date: Thu, 03 Sep 2009 07:43:26 -0400 [thread overview]
Message-ID: <4A9FABDE.7010001@sun.com> (raw)
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
)
next reply other threads:[~2009-09-03 11:43 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-09-03 11:43 Neal Thomison [this message]
2009-09-03 11:55 ` Org-mode version 6.30trans; 'q' key doesn't quit agenda Carsten Dominik
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=4A9FABDE.7010001@sun.com \
--to=neal.thomison@sun.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).