From: Carsten Dominik <carsten.dominik@gmail.com>
To: Neal Thomison <Neal.Thomison@Sun.COM>
Cc: emacs-orgmode@gnu.org
Subject: Re: Org-mode version 6.30trans; 'q' key doesn't quit agenda
Date: Thu, 3 Sep 2009 13:55:47 +0200 [thread overview]
Message-ID: <8779D2D2-A7F8-466D-86CD-16712E3F9B20@gmail.com> (raw)
In-Reply-To: <4A9FABDE.7010001@sun.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
prev parent reply other threads:[~2009-09-03 11:55 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-09-03 11:43 Org-mode version 6.30trans; 'q' key doesn't quit agenda Neal Thomison
2009-09-03 11:55 ` Carsten Dominik [this message]
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=8779D2D2-A7F8-466D-86CD-16712E3F9B20@gmail.com \
--to=carsten.dominik@gmail.com \
--cc=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).