From mboxrd@z Thu Jan 1 00:00:00 1970 From: Markus Heller Subject: Re: if: Wrong type argument: stringp, \.\.\. Date: Wed, 09 Mar 2011 15:57:11 -0800 Message-ID: <0v4o7bvodk.fsf@gmail.com> References: <0vk4g854go.fsf@gmail.com> <14404.1299714502@alphaville.dokosmarshall.org> 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=32872 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PxTG1-0006rR-2j for emacs-orgmode@gnu.org; Wed, 09 Mar 2011 18:57:35 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PxTFy-0002rH-LD for emacs-orgmode@gnu.org; Wed, 09 Mar 2011 18:57:33 -0500 Received: from lo.gmane.org ([80.91.229.12]:51471) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PxTFy-0002qX-0r for emacs-orgmode@gnu.org; Wed, 09 Mar 2011 18:57:30 -0500 Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1PxTFw-0005t1-7Y for emacs-orgmode@gnu.org; Thu, 10 Mar 2011 00:57:28 +0100 Received: from mail.cdrd.ca ([142.103.191.98]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 10 Mar 2011 00:57:28 +0100 Received: from hellerm2 by mail.cdrd.ca with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 10 Mar 2011 00:57:28 +0100 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 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 how > 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 15207") signal(error (":END: line missing at position 15207")) error(":END: line missing at position %s" 15207) (if (re-search-forward "^[ ]*:END:" (save-excursion ... ...) t) (outline= -flag-region b (point-at-eol) flag) (error ":END: line missing at position = %s" b)) (let ((b ...) (outline-regexp org-outline-regexp)) (if (re-search-forward= "^[ ]*:END:" ... t) (outline-flag-region b ... flag) (error ":END: line m= issing 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-sear= ch-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-block= -startup (org-hide-block-all)) (org-set-visibility-according-to-property (q= uote no-cleanup)) (org-cycle-hide-archived-subtrees (quote all)) (org-cycle= -hide-drawers (quote all)) (org-cycle-show-empty-lines t)) (unless (eq org-startup-folded (quote showeverything)) (if org-hide-block= -startup (org-hide-block-all)) (org-set-visibility-according-to-property (q= uote no-cleanup)) (org-cycle-hide-archived-subtrees (quote all)) (org-cycle= -hide-drawers (quote all)) (org-cycle-show-empty-lines t)) org-set-startup-visibility() (if org-inhibit-startup-visibility-stuff nil (org-set-startup-visibility)) (unless org-inhibit-startup-visibility-stuff (org-set-startup-visibility)) (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-i= nhibit-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-i= nhibit-startup-visibility-stuff (org-set-startup-visibility))) (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-mo= de)) (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-ke= y org-mode-map [menu-bar hide] ...) (define-key org-mode-map [menu-bar show= ] ...)) (org-load-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-ad= d org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (= add-to-invisibility-spec ...)) (add-to-invisibility-spec (quote ...)) (add-= to-invisibility-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-disp= lay-table 4 ...) (setq buffer-display-table org-display-table)) (org-set-re= gexps-and-options) (when (and org-tag-faces ...) (org-set-tag-faces ... org= -tag-faces)) (org-set-local (quote calc-embedded-open-mode) "# ") (modify-s= yntax-entry 64 "w") (if org-startup-truncated (setq truncate-lines t)) (org= -set-local (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 (qu= ote local)) (org-add-hook (quote kill-buffer-hook) (quote org-check-running= -clock) nil (quote local)) (org-set-autofill-regexps) (setq indent-line-fun= ction (quote org-indent-line-function)) (org-update-radio-target-regexp) (o= rg-set-local (quote beginning-of-defun-function) (quote org-beginning-of-de= fun)) (org-set-local (quote end-of-defun-function) (quote org-end-of-defun)= ) (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-hook= ... ...)) (org-set-local (quote comment-start) "#") (org-set-local (quote = comment-padding) " ") (org-set-local (quote align-mode-rules-list) (quote .= ..)) (org-set-local (quote imenu-create-index-function) (quote org-imenu-ge= t-tree)) (if (or ... ...) (org-add-hook ... ... ... ...) (org-set-local ...= ...)) (and org-startup-with-beamer-mode (org-beamer-mode 1)) (set (make-lo= cal-variable ...) (quote org-pcomplete-initial)) (set (make-local-variable = ...) (quote org-command-at-point)) (set (make-local-variable ...) (quote ig= nore)) (set (make-local-variable ...) (quote org-parse-arguments)) (set (ma= ke-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 (...) (outline= -mode) (setq major-mode ...) (setq mode-name "Org") (progn ... ... ...) (us= e-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq lo= cal-abbrev-table org-mode-abbrev-table) (if ... ... ... ... ...) (org-load-= modules-maybe) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (o= rg-install-agenda-files-menu) (if org-descriptive-links ...) (add-to-invisi= bility-spec ...) (add-to-invisibility-spec ...) (when ... ...) (org-set-loc= al ... org-outline-regexp) (org-set-local ... ...) (when ... ... ... ...) (= org-set-regexps-and-options) (when ... ...) (org-set-local ... "# ") (modif= y-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 ...) (org= -update-radio-target-regexp) (org-set-local ... ...) (org-set-local ... ...= ) (org-set-local ... ...) (if org-enforce-todo-dependencies ... ...) (if or= g-enforce-todo-checkbox-dependencies ... ...) (org-set-local ... "#") (org-= 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)) (setq= mode-name "Org") (progn (if ... ...) (unless ... ...) (let ... ...)) (use-= local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq loca= l-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 show] ...)) (o= rg-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-inv= isibility-spec ...)) (add-to-invisibility-spec (quote ...)) (add-to-invisib= ility-spec (quote ...)) (when (featurep ...) (org-set-local ... t)) (org-se= t-local (quote outline-regexp) org-outline-regexp) (org-set-local (quote ou= tline-level) (quote org-outline-level)) (when (and org-ellipsis ... ... ...= ) (unless org-display-table ...) (set-display-table-slot org-display-table = 4 ...) (setq buffer-display-table org-display-table)) (org-set-regexps-and-= options) (when (and org-tag-faces ...) (org-set-tag-faces ... org-tag-faces= )) (org-set-local (quote calc-embedded-open-mode) "# ") (modify-syntax-entr= y 64 "w") (if org-startup-truncated (setq truncate-lines t)) (org-set-local= (quote font-lock-unfontify-region-function) (quote org-unfontify-region)) = (org-set-local (quote org-table-may-need-update) t) (org-add-hook (quote be= fore-change-functions) (quote org-before-change-function) nil (quote local)= ) (org-add-hook (quote kill-buffer-hook) (quote org-check-running-clock) ni= l (quote local)) (org-set-autofill-regexps) (setq indent-line-function (quo= te org-indent-line-function)) (org-update-radio-target-regexp) (org-set-loc= al (quote beginning-of-defun-function) (quote org-beginning-of-defun)) (org= -set-local (quote end-of-defun-function) (quote org-end-of-defun)) (org-set= -local (quote next-error-function) (quote org-occur-next-match)) (if org-en= force-todo-dependencies (add-hook ... ...) (remove-hook ... ...)) (if org-e= nforce-todo-checkbox-dependencies (add-hook ... ...) (remove-hook ... ...))= (org-set-local (quote comment-start) "#") (org-set-local (quote comment-pa= dding) " ") (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 ... ...)) (an= d org-startup-with-beamer-mode (org-beamer-mode 1)) (set (make-local-variab= le ...) (quote org-pcomplete-initial)) (set (make-local-variable ...) (quot= e org-command-at-point)) (set (make-local-variable ...) (quote ignore)) (se= t (make-local-variable ...) (quote org-parse-arguments)) (set (make-local-v= ariable ...) "") (if (and org-insert-mode-line-in-empty-file ... ...) (inse= rt "# -*- mode: org -*-\n\n")) (unless org-inhibit-startup (when org-sta= rtup-align-all-tables ...) (when org-startup-with-inline-images ...) (when = org-startup-indented ... ...) (unless org-inhibit-startup-visibility-stuff = ...))) 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" n= il 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-ag= enda-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-bu= ffer (org-get-agenda-file-buffer file))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check-a= genda-file file) (set-buffer ...)) (widen) (setq bmp (buffer-modified-p)) (= org-refresh-category-properties) (setq org-todo-keywords-for-agenda (append= org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords= -for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq = org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda= org-todo-key-alist)) (setq org-drawers-for-agenda (append org-drawers-for-= agenda org-drawers)) (setq org-tag-alist-for-agenda (append org-tag-alist-f= or-agenda org-tag-alist)) (save-excursion (remove-text-properties ... ... p= all) (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-todo-= keywords-for-agenda ...) (setq org-done-keywords-for-agenda ...) (setq org-= todo-keyword-alist-for-agenda ...) (setq org-drawers-for-agenda ...) (setq = org-tag-alist-for-agenda ...) (save-excursion ... ... ... ... ...) (set-buf= fer-modified-p bmp))) (save-restriction (while (setq file ...) (catch ... ... ... ... ... ... .= .. ... ... ... ... ...))) (save-excursion (save-restriction (while ... ...))) (let ((pa ...) (pc ...) (pall ...) (inhibit-read-only t) (rea ...) bmp fi= le re) (save-excursion (save-restriction ...)) (setq org-todo-keywords-for-= agenda (org-uniquify org-todo-keywords-for-agenda)) (setq org-todo-keyword-= alist-for-agenda (org-uniquify org-todo-keyword-alist-for-agenda) org-tag-a= list-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.org"= "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.or= g" "h:/org/R0015.org" "h:/org/R0029.org" "h:/org/R0032.org" "h:/org/R0047.o= rg" "h:/org/R0048.org" "h:/org/R0279.org" "h:/org/R0349.org" "h:/org/R0657.= org" "h:/org/R0787.org" "h:/org/R0912.org" "h:/org/refile.org" "h:/org/S042= 3.org" "h:/org/S0424.org" "h:/org/S0425.org" "h:/org/S0812.org" "h:/org/Sta= ffing.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) (set= q org-agenda-contributing-files nil) (setq org-agenda-columns-active nil) (= org-prepare-agenda-buffers (org-agenda-files nil ...)) (setq org-todo-keywo= rds-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq org-done-= keywords-for-agenda (org-uniquify org-done-keywords-for-agenda)) (setq org-= drawers-for-agenda (org-uniquify org-drawers-for-agenda)) (let* (... ...) (= cond ... ... ... ... ... ... ...) (unless ... ...)) (setq buffer-read-only = nil) (let (...) (erase-buffer)) (org-agenda-mode) (and name (not org-agenda= -name) (org-set-local ... name))) org-prepare-agenda("Day/Week") (let* ((span ...) (today ...) (sd ...) (ndays ...) (org-agenda-start-on-w= eekday ...) (thefiles ...) (files thefiles) (start ...) (day-numbers ...) (= day-cnt 0) (inhibit-redisplay ...) s e rtn rtnall file date d start-pos end= -pos todayp clocktable-start clocktable-end filter) (setq org-agenda-redo-c= ommand (list ... ... start-day ...)) (dotimes (n ...) (push ... day-numbers= )) (setq day-numbers (nreverse day-numbers)) (setq clocktable-start (car da= y-numbers) clocktable-end (1+ ...)) (org-prepare-agenda "Day/Week") (org-se= t-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote o= rg-include-all-loc) include-all) (org-set-local (quote org-agenda-current-s= pan) (org-agenda-ndays-to-span span)) (when (and ... ...) (setq files thefi= les rtnall nil) (while ... ...) (when rtnall ... ... ... ...)) (unless org-= agenda-compact-blocks (let* ... ... ...) (add-text-properties s ... ...) (o= rg-agenda-mark-header-line s)) (while (setq d ...) (setq date ... s ...) (i= f ... ... ...) (setq files thefiles rtnall nil) (while ... ...) (if org-age= nda-include-diary ...) (if ... ...)) (when (and org-agenda-clockreport-mode= clocktable-start) (let ... ... ... ... ... ... ... ...)) (goto-char (point= -min)) (or org-agenda-multi (org-fit-agenda-window)) (unless (and ... ...) = (goto-char ...) (recenter -1) (if ... ...)) (goto-char (or start-pos 1)) (a= dd-text-properties (point-min) (point-max) (quote ...)) (org-finalize-agend= a) (setq buffer-read-only t) (message "")) org-agenda-list(nil) call-interactively(org-agenda-list) (cond ((setq entry ...) (if ... ... ...)) ((equal keys "C") (setq org-age= nda-custom-commands org-agenda-custom-commands-orig) (customize-variable ..= .)) ((equal keys "a") (call-interactively ...)) ((equal keys "s") (call-int= eractively ...)) ((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-in= teractively ...)) ((equal keys "?") (org-tags-view nil "+FLAGGED") (org-add= -hook ... ... t t)) ((equal keys "L") (unless ... ...) (unless restriction = ... ...)) ((equal keys "#") (call-interactively ...)) ((equal keys "/") (ca= ll-interactively ...)) ((equal keys "!") (customize-variable ...)) (t (erro= r "Invalid agenda key"))) (let* ((prefix-descriptions nil) (org-agenda-window-setup ...) (org-agend= a-custom-commands-orig org-agenda-custom-commands) (org-agenda-custom-comma= nds ...) (buf ...) (bfn ...) entry key type match lprops ans) (unless org-a= genda-overriding-restriction (unless ... ...) (setq org-agenda-restrict nil= ) (move-marker org-agenda-restrict-begin nil) (move-marker org-agenda-restr= ict-end nil)) (put (quote org-agenda-redo-command) (quote org-lprops) nil) = (put (quote org-agenda-redo-command) (quote last-args) nil) (setq org-agend= a-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 l= props ans) (unless org-agenda-overriding-restriction ... ... ... ...) (put = ... ... nil) (put ... ... nil) (setq org-agenda-last-dispatch-buffer ...) (= unless keys ...) (when ... ... ...) (cond ... ... ... ... ... ... ... ... .= .. ... ... ... ... ... ...))) org-agenda(nil) call-interactively(org-agenda nil nil)