if: Wrong type argument: stringp, \.\.\.

if: Wrong type argument: stringp, \.\.\.

[Markus Heller]

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.

Thanks
Markus

Re: if: Wrong type argument: stringp, \.\.\.

[Nick Dokos]

Markus Heller <hellerm2@gmail.com> 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

Re: if: Wrong type argument: stringp, \.\.\.

[Markus Heller]

Nick Dokos <nicholas.dokos@hp.com> writes:

> Markus Heller <hellerm2@gmail.com> 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)

Re: 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 <hellerm2@gmail.com> writes:

> Nick Dokos <nicholas.dokos@hp.com> writes:
>
>> Markus Heller <hellerm2@gmail.com> 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

Re: if: Wrong type argument: stringp, \.\.\.

[Markus Heller]

Bernt Hansen <bernt@norang.ca> writes:

> 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"

Hi Bernt and Nick,

yes, there is/was an issue with a missing :END: in that particular
file.  I kept adding it, but for some weird reason, it was automatically
removed again.

But doesn't matter, I'm in the process of overhauling my orgmode files
and use anyway :-)

Thanks and Cheers
Markus

Re: if: Wrong type argument: stringp, \.\.\.

[Bastien]

Hi Markus,

Markus Heller <hellerm2@gmail.com> writes:

> yes, there is/was an issue with a missing :END: in that particular
> file.  I kept adding it, but for some weird reason, it was automatically
> removed again.

If you find a way of reproducing cases where :END: is removed without
you noticing it, that'd be helpful.

Thanks!

-- 
 Bastien

Re: if: Wrong type argument: stringp, \.\.\.

[Nick Dokos]

Markus Heller <hellerm2@gmail.com> wrote:

> 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)

You seem to be missing an :END: line (or it may be malformed, so that the regexp below does
not match) ...

>   (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)

... in a drawer ...

>   (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)
>   ...
>   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))
>   ...
>   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)))

... in this file.

Position 15207 in the file is where the code choked, but it may be
missing earlier in the file. If you can't find it, and you don't mind
making the file public, post it here. If you'd rather not, but still
can't find it, as a last resort, you can send it to me: I promise not to
look unnecessarily :-)

HTH,
Nick