From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: Re: if: Wrong type argument: stringp, \.\.\. Date: Wed, 09 Mar 2011 19:58:27 -0500 Message-ID: <87bp1j94gc.fsf@norang.ca> References: <0vk4g854go.fsf@gmail.com> <14404.1299714502@alphaville.dokosmarshall.org> <0v4o7bvodk.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable Return-path: Received: from [140.186.70.92] (port=36614 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PxUD3-0003uz-Uq for emacs-orgmode@gnu.org; Wed, 09 Mar 2011 19:58:40 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PxUD1-0005MU-Hd for emacs-orgmode@gnu.org; Wed, 09 Mar 2011 19:58:33 -0500 Received: from mho-02-ewr.mailhop.org ([204.13.248.72]:38482) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PxUD1-0005MO-Dd for emacs-orgmode@gnu.org; Wed, 09 Mar 2011 19:58:31 -0500 In-Reply-To: <0v4o7bvodk.fsf@gmail.com> (Markus Heller's message of "Wed, 09 Mar 2011 15:57:11 -0800") 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: Markus Heller Cc: emacs-orgmode@gnu.org Hi Markus, It looks like you have a drawer in your org files that is missing a closing :END: tag. Possibly in file "h:/org/600_install.org" HTH, Bernt Markus Heller writes: > Nick Dokos writes: > >> Markus Heller wrote: >> >>> Hello group, >>>=20 >>> I'm stumped. When I try to bring up the agenda with C-c a, I get the >>> error message mentioned in the subject line. >>>=20 >>> I'm using 23.2.1 on Windoze 7 64 bit, and the orgmode from today: >>>=20 >>> M-x org-version: 7.5 >>>=20 >>> Here's my entire org-mode related part of my .emacs: >>>=20 >>> ,---- >>> | ;; >>> | ;; Org Mode >>> | ;; >>> |=20 >>> | ;; save all org buffers at 1 minute before the hour >>> | (run-at-time "00:59" 3600 'org-save-all-org-buffers) >>> |=20 >>> | ;; no need to compile the sources >>> | (add-to-list 'load-path "~/.emacs.d/org-mode/lisp/") >>> | (add-to-list 'load-path "~/.emacs.d/org-mode/contrib/lisp/") >>> | (setq org-directory "h:/org/") >>> | (require 'org-install) >>> |=20 >>> | ;; Custom Key Bindings >>> | (global-set-key "\C-cl" 'org-store-link) >>> | (global-set-key "\C-ca" 'org-agenda) >>> | (global-set-key "\C-cb" 'org-iswitchb) >>> | (global-set-key (kbd "") 'bh/clock-in-600-install-default-task) >>> | (global-set-key (kbd "") 'org-cycle-agenda-files) >>> | (global-set-key (kbd " b") 'bh/clock-in-NMR-booking-task) >>> | (global-set-key (kbd " g") 'gnus) >>> | (global-set-key (kbd " m") 'bh/clock-in-email-task) >>> | (global-set-key (kbd " o") 'bh/clock-in-organization-task) >>> | (global-set-key (kbd " p") 'bh/clock-in-phone-task) >>> | (global-set-key (kbd " r") 'bh/clock-in-read-task) >>> | (global-set-key (kbd " R") 'bh/clock-in-repair-task) >>> | (global-set-key (kbd " SPC") 'bh/clock-in-last-task) >>> | (global-set-key (kbd "") 'hist-org-clock-in-select) >>> | (global-set-key (kbd "") 'org-clock-goto) >>> | (global-set-key (kbd "") 'org-agenda) >>> `---- >>>=20 >>> Any hints are highly appreciated. >>>=20 >> >> We need a backtrace: see section 1.4, "Feedback", of the Org manual on h= ow >> to get one. >> >> Nick > > Ok, below is the backtrace. Geez, how can one read anything useful out > of this? ;-) > > Cheers > Markus > > Debugger entered--Lisp error: (error ":END: line missing at position 1520= 7") > signal(error (":END: line missing at position 15207")) > error(":END: line missing at position %s" 15207) > (if (re-search-forward "^[ ]*:END:" (save-excursion ... ...) t) (outli= ne-flag-region b (point-at-eol) flag) (error ":END: line missing at positio= n %s" b)) > (let ((b ...) (outline-regexp org-outline-regexp)) (if (re-search-forwa= rd "^[ ]*:END:" ... t) (outline-flag-region b ... flag) (error ":END: line= missing at position %s" b))) > (progn (let (... ...) (if ... ... ...))) > (if (looking-at "^[ ]*:[a-zA-Z][a-zA-Z0-9]*:") (progn (let ... ...))) > (when (looking-at "^[ ]*:[a-zA-Z][a-zA-Z0-9]*:") (let (... ...) (if ..= . ... ...))) > (save-excursion (beginning-of-line 1) (when (looking-at "^[ ]*:[a-zA-Z= ][a-zA-Z0-9]*:") (let ... ...))) > org-flag-drawer(t) > (while (re-search-forward org-drawer-regexp end t) (org-flag-drawer t)) > (let* ((globalp ...) (beg ...) (end ...)) (goto-char beg) (while (re-se= arch-forward org-drawer-regexp end t) (org-flag-drawer t))) > (save-excursion (let* (... ... ...) (goto-char beg) (while ... ...))) > (progn (save-excursion (let* ... ... ...))) > (if (and (org-mode-p) (not ...)) (progn (save-excursion ...))) > (when (and (org-mode-p) (not ...)) (save-excursion (let* ... ... ...))) > org-cycle-hide-drawers(all) > (if (eq org-startup-folded (quote showeverything)) nil (if org-hide-blo= ck-startup (org-hide-block-all)) (org-set-visibility-according-to-property = (quote no-cleanup)) (org-cycle-hide-archived-subtrees (quote all)) (org-cyc= le-hide-drawers (quote all)) (org-cycle-show-empty-lines t)) > (unless (eq org-startup-folded (quote showeverything)) (if org-hide-blo= ck-startup (org-hide-block-all)) (org-set-visibility-according-to-property = (quote no-cleanup)) (org-cycle-hide-archived-subtrees (quote all)) (org-cyc= le-hide-drawers (quote all)) (org-cycle-show-empty-lines t)) > org-set-startup-visibility() > (if org-inhibit-startup-visibility-stuff nil (org-set-startup-visibilit= y)) > (unless org-inhibit-startup-visibility-stuff (org-set-startup-visibilit= y)) > (if org-inhibit-startup nil (when org-startup-align-all-tables (let ...= ... ...)) (when org-startup-with-inline-images (org-display-inline-images)= ) (when org-startup-indented (require ...) (org-indent-mode 1)) (unless org= -inhibit-startup-visibility-stuff (org-set-startup-visibility))) > (unless org-inhibit-startup (when org-startup-align-all-tables (let ...= ... ...)) (when org-startup-with-inline-images (org-display-inline-images)= ) (when org-startup-indented (require ...) (org-indent-mode 1)) (unless org= -inhibit-startup-visibility-stuff (org-set-startup-visibility))) > (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-= mode)) (setq mode-name "Org") (progn (if ... ...) (unless ... ...) (let ...= ...)) (use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table= ) (setq local-abbrev-table org-mode-abbrev-table) (if (featurep ...) (when = ... ... ... ...) (define-key org-mode-map [menu-bar headings] ...) (define-= key org-mode-map [menu-bar hide] ...) (define-key org-mode-map [menu-bar sh= ow] ...)) (org-load-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-= add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links= (add-to-invisibility-spec ...)) (add-to-invisibility-spec (quote ...)) (ad= d-to-invisibility-spec (quote ...)) (when (featurep ...) (org-set-local ...= t)) (org-set-local (quote outline-regexp) org-outline-regexp) (org-set-loc= al (quote outline-level) (quote org-outline-level)) (when (and org-ellipsis= ... ... ...) (unless org-display-table ...) (set-display-table-slot org-di= splay-table 4 ...) (setq buffer-display-table org-display-table)) (org-set-= regexps-and-options) (when (and org-tag-faces ...) (org-set-tag-faces ... o= rg-tag-faces)) (org-set-local (quote calc-embedded-open-mode) "# ") (modify= -syntax-entry 64 "w") (if org-startup-truncated (setq truncate-lines t)) (o= rg-set-local (quote font-lock-unfontify-region-function) (quote org-unfonti= fy-region)) (org-set-local (quote org-table-may-need-update) t) (org-add-ho= ok (quote before-change-functions) (quote org-before-change-function) nil (= quote local)) (org-add-hook (quote kill-buffer-hook) (quote org-check-runni= ng-clock) nil (quote local)) (org-set-autofill-regexps) (setq indent-line-f= unction (quote org-indent-line-function)) (org-update-radio-target-regexp) = (org-set-local (quote beginning-of-defun-function) (quote org-beginning-of-= defun)) (org-set-local (quote end-of-defun-function) (quote org-end-of-defu= n)) (org-set-local (quote next-error-function) (quote org-occur-next-match)= ) (if org-enforce-todo-dependencies (add-hook ... ...) (remove-hook ... ...= )) (if org-enforce-todo-checkbox-dependencies (add-hook ... ...) (remove-ho= ok ... ...)) (org-set-local (quote comment-start) "#") (org-set-local (quot= e comment-padding) " ") (org-set-local (quote align-mode-rules-list) (quote= ...)) (org-set-local (quote imenu-create-index-function) (quote org-imenu-= get-tree)) (if (or ... ...) (org-add-hook ... ... ... ...) (org-set-local .= .. ...)) (and org-startup-with-beamer-mode (org-beamer-mode 1)) (set (make-= local-variable ...) (quote org-pcomplete-initial)) (set (make-local-variabl= e ...) (quote org-command-at-point)) (set (make-local-variable ...) (quote = ignore)) (set (make-local-variable ...) (quote org-parse-arguments)) (set (= make-local-variable ...) "") (if (and org-insert-mode-line-in-empty-file ..= . ...) (insert "# -*- mode: org -*-\n\n")) ...) > (progn (make-local-variable (quote delay-mode-hooks)) (let (...) (outli= ne-mode) (setq major-mode ...) (setq mode-name "Org") (progn ... ... ...) (= use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq = local-abbrev-table org-mode-abbrev-table) (if ... ... ... ... ...) (org-loa= d-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) = (org-install-agenda-files-menu) (if org-descriptive-links ...) (add-to-invi= sibility-spec ...) (add-to-invisibility-spec ...) (when ... ...) (org-set-l= ocal ... org-outline-regexp) (org-set-local ... ...) (when ... ... ... ...)= (org-set-regexps-and-options) (when ... ...) (org-set-local ... "# ") (mod= ify-syntax-entry 64 "w") (if org-startup-truncated ...) (org-set-local ... = ...) (org-set-local ... t) (org-add-hook ... ... nil ...) (org-add-hook ...= ... nil ...) (org-set-autofill-regexps) (setq indent-line-function ...) (o= rg-update-radio-target-regexp) (org-set-local ... ...) (org-set-local ... .= ..) (org-set-local ... ...) (if org-enforce-todo-dependencies ... ...) (if = org-enforce-todo-checkbox-dependencies ... ...) (org-set-local ... "#") (or= g-set-local ... " ") (org-set-local ... ...) (org-set-local ... ...) (if ..= . ... ...) (and org-startup-with-beamer-mode ...) (set ... ...) (set ... ..= .) (set ... ...) (set ... ...) (set ... "") (if ... ...) ...)) > (delay-mode-hooks (outline-mode) (setq major-mode (quote org-mode)) (se= tq mode-name "Org") (progn (if ... ...) (unless ... ...) (let ... ...)) (us= e-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq lo= cal-abbrev-table org-mode-abbrev-table) (if (featurep ...) (when ... ... ..= . ...) (define-key org-mode-map [menu-bar headings] ...) (define-key org-mo= de-map [menu-bar hide] ...) (define-key org-mode-map [menu-bar show] ...)) = (org-load-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-add org-tb= l-menu) (org-install-agenda-files-menu) (if org-descriptive-links (add-to-i= nvisibility-spec ...)) (add-to-invisibility-spec (quote ...)) (add-to-invis= ibility-spec (quote ...)) (when (featurep ...) (org-set-local ... t)) (org-= set-local (quote outline-regexp) org-outline-regexp) (org-set-local (quote = outline-level) (quote org-outline-level)) (when (and org-ellipsis ... ... .= ..) (unless org-display-table ...) (set-display-table-slot org-display-tabl= e 4 ...) (setq buffer-display-table org-display-table)) (org-set-regexps-an= d-options) (when (and org-tag-faces ...) (org-set-tag-faces ... org-tag-fac= es)) (org-set-local (quote calc-embedded-open-mode) "# ") (modify-syntax-en= try 64 "w") (if org-startup-truncated (setq truncate-lines t)) (org-set-loc= al (quote font-lock-unfontify-region-function) (quote org-unfontify-region)= ) (org-set-local (quote org-table-may-need-update) t) (org-add-hook (quote = before-change-functions) (quote org-before-change-function) nil (quote loca= l)) (org-add-hook (quote kill-buffer-hook) (quote org-check-running-clock) = nil (quote local)) (org-set-autofill-regexps) (setq indent-line-function (q= uote org-indent-line-function)) (org-update-radio-target-regexp) (org-set-l= ocal (quote beginning-of-defun-function) (quote org-beginning-of-defun)) (o= rg-set-local (quote end-of-defun-function) (quote org-end-of-defun)) (org-s= et-local (quote next-error-function) (quote org-occur-next-match)) (if org-= enforce-todo-dependencies (add-hook ... ...) (remove-hook ... ...)) (if org= -enforce-todo-checkbox-dependencies (add-hook ... ...) (remove-hook ... ...= )) (org-set-local (quote comment-start) "#") (org-set-local (quote comment-= padding) " ") (org-set-local (quote align-mode-rules-list) (quote ...)) (or= g-set-local (quote imenu-create-index-function) (quote org-imenu-get-tree))= (if (or ... ...) (org-add-hook ... ... ... ...) (org-set-local ... ...)) (= and org-startup-with-beamer-mode (org-beamer-mode 1)) (set (make-local-vari= able ...) (quote org-pcomplete-initial)) (set (make-local-variable ...) (qu= ote org-command-at-point)) (set (make-local-variable ...) (quote ignore)) (= set (make-local-variable ...) (quote org-parse-arguments)) (set (make-local= -variable ...) "") (if (and org-insert-mode-line-in-empty-file ... ...) (in= sert "# -*- mode: org -*-\n\n")) (unless org-inhibit-startup (when org-s= tartup-align-all-tables ...) (when org-startup-with-inline-images ...) (whe= n org-startup-indented ... ...) (unless org-inhibit-startup-visibility-stuf= f ...))) > org-mode() > set-auto-mode-0(org-mode nil) > set-auto-mode() > normal-mode(t) > after-find-file(nil t) > find-file-noselect-1(# "h:/org/600_install.org"= nil nil "h:/org/600_install.org" (0 (9885 . 5800))) > find-file-noselect("h:/org/600_install.org") > (setq buf (find-file-noselect file)) > (if buf buf (setq buf (find-file-noselect file)) (if buf (push buf org-= agenda-new-buffers)) buf) > (let ((buf ...)) (if buf buf (setq buf ...) (if buf ...) buf)) > org-get-agenda-file-buffer("h:/org/600_install.org") > (set-buffer (org-get-agenda-file-buffer file)) > (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-= buffer (org-get-agenda-file-buffer file))) > (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check= -agenda-file file) (set-buffer ...)) (widen) (setq bmp (buffer-modified-p))= (org-refresh-category-properties) (setq org-todo-keywords-for-agenda (appe= nd org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywor= ds-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (set= q org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agen= da org-todo-key-alist)) (setq org-drawers-for-agenda (append org-drawers-fo= r-agenda org-drawers)) (setq org-tag-alist-for-agenda (append org-tag-alist= -for-agenda org-tag-alist)) (save-excursion (remove-text-properties ... ...= pall) (when org-agenda-skip-archived-trees ... ...) (goto-char ...) (setq = re ...) (while ... ...)) (set-buffer-modified-p bmp)) > (while (setq file (pop files)) (catch (quote nextfile) (if ... ... ... = ...) (widen) (setq bmp ...) (org-refresh-category-properties) (setq org-tod= o-keywords-for-agenda ...) (setq org-done-keywords-for-agenda ...) (setq or= g-todo-keyword-alist-for-agenda ...) (setq org-drawers-for-agenda ...) (set= q org-tag-alist-for-agenda ...) (save-excursion ... ... ... ... ...) (set-b= uffer-modified-p bmp))) > (save-restriction (while (setq file ...) (catch ... ... ... ... ... ...= ... ... ... ... ... ...))) > (save-excursion (save-restriction (while ... ...))) > (let ((pa ...) (pc ...) (pall ...) (inhibit-read-only t) (rea ...) bmp = file re) (save-excursion (save-restriction ...)) (setq org-todo-keywords-fo= r-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq org-todo-keywor= d-alist-for-agenda (org-uniquify org-todo-keyword-alist-for-agenda) org-tag= -alist-for-agenda (org-uniquify org-tag-alist-for-agenda))) > org-prepare-agenda-buffers(("h:/org/600_install.org" "h:/org/Admin.org"= "h:/org/C0946.org" "h:/org/Career.org" "h:/org/G0439.org" "h:/org/G0580.or= g" "h:/org/G0731.org" "h:/org/G0749.org" "h:/org/G0933.org" "h:/org/GTD.org= " "h:/org/Infra.org" "h:/org/NMR.org" "h:/org/Portfolio.org" "h:/org/R0006.= org" "h:/org/R0015.org" "h:/org/R0029.org" "h:/org/R0032.org" "h:/org/R0047= .org" "h:/org/R0048.org" "h:/org/R0279.org" "h:/org/R0349.org" "h:/org/R065= 7.org" "h:/org/R0787.org" "h:/org/R0912.org" "h:/org/refile.org" "h:/org/S0= 423.org" "h:/org/S0424.org" "h:/org/S0425.org" "h:/org/S0812.org" "h:/org/S= taffing.org" "h:/org/Training.org" "h:org/Unassgnd.org")) > (if org-agenda-multi (progn (setq buffer-read-only nil) (goto-char ...)= (unless ... ...) (narrow-to-region ... ...)) (org-agenda-reset-markers) (s= etq org-agenda-contributing-files nil) (setq org-agenda-columns-active nil)= (org-prepare-agenda-buffers (org-agenda-files nil ...)) (setq org-todo-key= words-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq org-don= e-keywords-for-agenda (org-uniquify org-done-keywords-for-agenda)) (setq or= g-drawers-for-agenda (org-uniquify org-drawers-for-agenda)) (let* (... ...)= (cond ... ... ... ... ... ... ...) (unless ... ...)) (setq buffer-read-onl= y nil) (let (...) (erase-buffer)) (org-agenda-mode) (and name (not org-agen= da-name) (org-set-local ... name))) > org-prepare-agenda("Day/Week") > (let* ((span ...) (today ...) (sd ...) (ndays ...) (org-agenda-start-on= -weekday ...) (thefiles ...) (files thefiles) (start ...) (day-numbers ...)= (day-cnt 0) (inhibit-redisplay ...) s e rtn rtnall file date d start-pos e= nd-pos todayp clocktable-start clocktable-end filter) (setq org-agenda-redo= -command (list ... ... start-day ...)) (dotimes (n ...) (push ... day-numbe= rs)) (setq day-numbers (nreverse day-numbers)) (setq clocktable-start (car = day-numbers) clocktable-end (1+ ...)) (org-prepare-agenda "Day/Week") (org-= set-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote= org-include-all-loc) include-all) (org-set-local (quote org-agenda-current= -span) (org-agenda-ndays-to-span span)) (when (and ... ...) (setq files the= files rtnall nil) (while ... ...) (when rtnall ... ... ... ...)) (unless or= g-agenda-compact-blocks (let* ... ... ...) (add-text-properties s ... ...) = (org-agenda-mark-header-line s)) (while (setq d ...) (setq date ... s ...) = (if ... ... ...) (setq files thefiles rtnall nil) (while ... ...) (if org-a= genda-include-diary ...) (if ... ...)) (when (and org-agenda-clockreport-mo= de clocktable-start) (let ... ... ... ... ... ... ... ...)) (goto-char (poi= nt-min)) (or org-agenda-multi (org-fit-agenda-window)) (unless (and ... ...= ) (goto-char ...) (recenter -1) (if ... ...)) (goto-char (or start-pos 1)) = (add-text-properties (point-min) (point-max) (quote ...)) (org-finalize-age= nda) (setq buffer-read-only t) (message "")) > org-agenda-list(nil) > call-interactively(org-agenda-list) > (cond ((setq entry ...) (if ... ... ...)) ((equal keys "C") (setq org-a= genda-custom-commands org-agenda-custom-commands-orig) (customize-variable = ...)) ((equal keys "a") (call-interactively ...)) ((equal keys "s") (call-i= nteractively ...)) ((equal keys "t") (call-interactively ...)) ((equal keys= "T") (org-call-with-arg ... ...)) ((equal keys "m") (call-interactively ..= .)) ((equal keys "M") (org-call-with-arg ... ...)) ((equal keys "e") (call-= interactively ...)) ((equal keys "?") (org-tags-view nil "+FLAGGED") (org-a= dd-hook ... ... t t)) ((equal keys "L") (unless ... ...) (unless restrictio= n ... ...)) ((equal keys "#") (call-interactively ...)) ((equal keys "/") (= call-interactively ...)) ((equal keys "!") (customize-variable ...)) (t (er= ror "Invalid agenda key"))) > (let* ((prefix-descriptions nil) (org-agenda-window-setup ...) (org-age= nda-custom-commands-orig org-agenda-custom-commands) (org-agenda-custom-com= mands ...) (buf ...) (bfn ...) entry key type match lprops ans) (unless org= -agenda-overriding-restriction (unless ... ...) (setq org-agenda-restrict n= il) (move-marker org-agenda-restrict-begin nil) (move-marker org-agenda-res= trict-end nil)) (put (quote org-agenda-redo-command) (quote org-lprops) nil= ) (put (quote org-agenda-redo-command) (quote last-args) nil) (setq org-age= nda-last-dispatch-buffer (current-buffer)) (unless keys (setq ans ... keys = ... restriction ...)) (when (and ... restriction) (put ... ... ...) (cond .= .. ...)) (cond (... ...) (... ... ...) (... ...) (... ...) (... ...) (... .= ..) (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (... ...) (..= . ...) (... ...) (t ...))) > (catch (quote exit) (let* (... ... ... ... ... ... entry key type match= lprops ans) (unless org-agenda-overriding-restriction ... ... ... ...) (pu= t ... ... nil) (put ... ... nil) (setq org-agenda-last-dispatch-buffer ...)= (unless keys ...) (when ... ... ...) (cond ... ... ... ... ... ... ... ...= ... ... ... ... ... ... ...))) > org-agenda(nil) > call-interactively(org-agenda nil nil) > > > --=20 Bernt