Re: [O] if: Wrong type argument: stringp, \.\.\.

[Bernt Hansen]

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 <address@hidden> writes:

> Nick Dokos <address@hidden> writes:
>
>> Markus Heller <address@hidden> wrote:
>>
>>> Hello group,
>>> 
>>> 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.
>>> 
>>> I'm using 23.2.1 on Windoze 7 64 bit, and the orgmode from today:
>>> 
>>> M-x org-version: 7.5
>>> 
>>> Here's my entire org-mode related part of my .emacs:
>>> 
>>> ,----
>>> | ;;
>>> | ;; Org Mode
>>> | ;;
>>> | 
>>> | ;; save all org buffers at 1 minute before the hour
>>> | (run-at-time "00:59" 3600 'org-save-all-org-buffers)
>>> | 
>>> | ;; 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)
>>> | 
>>> | ;; 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 "<f6>") 'bh/clock-in-600-install-default-task)
>>> | (global-set-key (kbd "<f8>") 'org-cycle-agenda-files)
>>> | (global-set-key (kbd "<f9> b") 'bh/clock-in-NMR-booking-task)
>>> | (global-set-key (kbd "<f9> g") 'gnus)
>>> | (global-set-key (kbd "<f9> m") 'bh/clock-in-email-task)
>>> | (global-set-key (kbd "<f9> o") 'bh/clock-in-organization-task)
>>> | (global-set-key (kbd "<f9> p") 'bh/clock-in-phone-task)
>>> | (global-set-key (kbd "<f9> r") 'bh/clock-in-read-task)
>>> | (global-set-key (kbd "<f9> R") 'bh/clock-in-repair-task)
>>> | (global-set-key (kbd "<f9> SPC") 'bh/clock-in-last-task)
>>> | (global-set-key (kbd "<f10>") 'hist-org-clock-in-select)
>>> | (global-set-key (kbd "<f11>") 'org-clock-goto)
>>> | (global-set-key (kbd "<f12>") 'org-agenda)
>>> `----
>>> 
>>> Any hints are highly appreciated.
>>> 
>>
>> 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 
> 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-search-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 (quote 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 (quote 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-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 show] ...)) (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 ...)) (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-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-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 (quote 
> local)) (org-add-hook (quote kill-buffer-hook) (quote 
> org-check-running-clock) nil (quote local)) (org-set-autofill-regexps) (setq 
> indent-line-function (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-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-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-variable ...) (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 (...) 
> (outline-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-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 ...) (when ... ...) 
> (org-set-local ... org-outline-regexp) (org-set-local ... ...) (when ... ... 
> ... ...) (org-set-regexps-and-options) (when ... ...) (org-set-local ... "# 
> ") (modify-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 
> org-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 
> 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 show] 
> ...)) (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 ...)) 
> (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-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-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 (quote 
> local)) (org-add-hook (quote kill-buffer-hook) (quote 
> org-check-running-clock) nil (quote local)) (org-set-autofill-regexps) (setq 
> indent-line-function (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-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-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-variable ...) (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")) (unless org-inhibit-startup (when org-startup-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(#<buffer 600_install.org> "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 (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-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-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-buffer-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-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-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.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.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/R0657.org" 
> "h:/org/R0787.org" "h:/org/R0912.org" "h:/org/refile.org" "h:/org/S0423.org" 
> "h:/org/S0424.org" "h:/org/S0425.org" "h:/org/S0812.org" 
> "h:/org/Staffing.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) (setq 
> org-agenda-contributing-files nil) (setq org-agenda-columns-active nil) 
> (org-prepare-agenda-buffers (org-agenda-files nil ...)) (setq 
> org-todo-keywords-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-weekday ...) (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-command (list ... ... start-day ...)) (dotimes (n ...) (push 
> ... day-numbers)) (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 thefiles rtnall nil) (while ... ...) 
> (when rtnall ... ... ... ...)) (unless org-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-agenda-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)) (add-text-properties (point-min) 
> (point-max) (quote ...)) (org-finalize-agenda) (setq buffer-read-only t) 
> (message ""))
>   org-agenda-list(nil)
>   call-interactively(org-agenda-list)
>   (cond ((setq entry ...) (if ... ... ...)) ((equal keys "C") (setq 
> org-agenda-custom-commands org-agenda-custom-commands-orig) 
> (customize-variable ...)) ((equal keys "a") (call-interactively ...)) ((equal 
> keys "s") (call-interactively ...)) ((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-add-hook ... ... t t)) ((equal keys "L") (unless ... 
> ...) (unless restriction ... ...)) ((equal keys "#") (call-interactively 
> ...)) ((equal keys "/") (call-interactively ...)) ((equal keys "!") 
> (customize-variable ...)) (t (error "Invalid agenda key")))
>   (let* ((prefix-descriptions nil) (org-agenda-window-setup ...) 
> (org-agenda-custom-commands-orig org-agenda-custom-commands) 
> (org-agenda-custom-commands ...) (buf ...) (bfn ...) entry key type match 
> lprops ans) (unless org-agenda-overriding-restriction (unless ... ...) (setq 
> org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) 
> (move-marker org-agenda-restrict-end nil)) (put (quote 
> org-agenda-redo-command) (quote org-lprops) nil) (put (quote 
> org-agenda-redo-command) (quote last-args) nil) (setq 
> org-agenda-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 ... ... ... ...) (put 
> ... ... nil) (put ... ... nil) (setq org-agenda-last-dispatch-buffer ...) 
> (unless keys ...) (when ... ... ...) (cond ... ... ... ... ... ... ... ... 
> ... ... ... ... ... ... ...)))
>   org-agenda(nil)
>   call-interactively(org-agenda nil nil)
>
>
>

-- 
Bernt