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

[Markus Heller]

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)