[O] [bug?] not: Symbol's value as variable is void: org-outline-regexp-bol

[Sebastien Vauban]

Hello,

Since update of 5 mins ago, when `C-c a a':

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (void-variable org-outline-regexp-bol)
  (re-search-backward org-outline-regexp-bol nil t)
  (not (re-search-backward org-outline-regexp-bol nil t))
  (if (not (re-search-backward org-outline-regexp-bol nil t)) (setq txt 
org-agenda-no-heading-message) (goto-char (match-beginning 0)) (setq hdmarker 
(org-agenda-new-marker ...)) (setq tags (org-get-tags-at)) (looking-at "\\*+[   
  ]+\\([^
\n]+\\)") (setq head (match-string 1)) (let (...) (setq txt ...)))
  (save-excursion (setq todo-state (org-get-todo-state)) (setq donep (member 
todo-state org-done-keywords)) (if (and donep 
org-agenda-skip-timestamp-if-done) (throw :skip t)) (setq marker 
(org-agenda-new-marker ...)) (setq category (org-get-category)) (if (not ...) 
(setq txt org-agenda-no-heading-message) (goto-char ...) (setq hdmarker ...) 
(setq tags ...) (looking-at "\\*+[       ]+\\([^
\n]+\\)") (setq head ...) (let ... ...)) (org-add-props txt props (quote 
org-marker) marker (quote org-hd-marker) hdmarker (quote type) "block" (quote 
date) date (quote todo-state) todo-state (quote priority) (org-get-priority 
txt) (quote org-category) category) (push txt ee))
  (if (and (> ... -1) (> ... -1)) (save-excursion (setq todo-state ...) (setq 
donep ...) (if ... ...) (setq marker ...) (setq category ...) (if ... ... ... 
... ... ... ... ...) (org-add-props txt props ... marker ... hdmarker ... 
"block" ... date ... todo-state ... ... ... category) (push txt ee)))
  (let ((start-time ...) (end-time ...)) (setq s1 (match-string 1) s2 
(match-string 2) d1 (time-to-days ...) d2 (time-to-days ...)) (if (and ... ...) 
(save-excursion ... ... ... ... ... ... ... ...)))
  (catch :skip (org-agenda-skip) (setq pos (point)) (let (... ...) (setq s1 ... 
s2 ... d1 ... d2 ...) (if ... ...)) (goto-char pos))
  (while (re-search-forward regexp nil t) (catch :skip (org-agenda-skip) (setq 
pos ...) (let ... ... ...) (goto-char pos)))
  (let* ((props ...) (regexp org-tr-regexp) (d0 ...) marker hdmarker ee txt d1 
d2 s1 s2 category todo-state tags pos head donep) (goto-char (point-min)) 
(while (re-search-forward regexp nil t) (catch :skip ... ... ... ...)) 
(nreverse ee))
  org-agenda-get-blocks()
  (setq rtn (org-agenda-get-blocks))
  (cond ((and ... ...) (setq rtn ...) (setq results ...)) ((eq arg :timestamp) 
(setq rtn ...) (setq results ...) (setq rtn ...) (setq results ...)) ((eq arg 
:sexp) (setq rtn ...) (setq results ...)) ((eq arg :scheduled) (setq rtn ...) 
(setq results ...)) ((eq arg :closed) (setq rtn ...) (setq results ...)) ((eq 
arg :deadline) (setq rtn ...) (setq deadline-results ...) (setq results ...)))
  (while (setq arg (pop args)) (cond (... ... ...) (... ... ... ... ...) (... 
... ...) (... ... ...) (... ... ...) (... ... ... ...)))
  (save-restriction (if org-agenda-restrict (narrow-to-region 
org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq arg 
...) (cond ... ... ... ... ... ...)))
  (save-excursion (save-restriction (if org-agenda-restrict ... ...) (while ... 
...)))
  (let ((case-fold-search nil)) (save-excursion (save-restriction ... ...)))
  (save-current-buffer (set-buffer buffer) (unless (org-mode-p) (error "Agenda 
file %s is not in `org-mode'" file)) (let (...) (save-excursion ...)) results)
  (with-current-buffer buffer (unless (org-mode-p) (error "Agenda file %s is 
not in `org-mode'" file)) (let (...) (save-excursion ...)) results)
  (if (not buffer) (list (format "ORG-AGENDA-ERROR: No such org-file %s" file)) 
(with-current-buffer buffer (unless ... ...) (let ... ...) results))
  (let* ((org-startup-folded nil) (org-startup-align-all-tables nil) (buffer 
...) arg results rtn deadline-results) (if (not buffer) (list ...) 
(with-current-buffer buffer ... ... results)))
  org-agenda-get-day-entries("~/Personal/Scorpios.org" (7 18 2011) :timestamp 
:scheduled :deadline)
  (append entries (org-agenda-get-day-entries file today :timestamp :scheduled 
:deadline))
  (setq entries (append entries (org-agenda-get-day-entries file today 
:timestamp :scheduled :deadline)))
  (while (setq file (pop files)) (setq entries (append entries ...)))
  (let* ((cnt 0) (org-agenda-new-buffers nil) (org-deadline-warning-days 0) 
(today ...) (org-agenda-restrict nil) (files ...) entries file) 
(org-prepare-agenda-buffers files) (while (setq file ...) (setq entries ...)) 
(setq entries (delq nil entries)) (mapc (lambda ... ...) entries) 
(org-release-buffers org-agenda-new-buffers) (if (eq cnt 0) (message "No event 
to add") (message "Added %d event%s for today" cnt ...)))
  org-agenda-to-appt()
  (lambda nil (setq appt-time-msg-list nil) (org-agenda-to-appt))()
  run-hooks(org-agenda-mode-hook)
  apply(run-hooks org-agenda-mode-hook)
  run-mode-hooks(org-agenda-mode-hook)
  apply(run-mode-hooks org-agenda-mode-hook)
  org-agenda-mode()
  (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)) (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 ...)) (if 
(eq org-agenda-show-log ...) (org-agenda-show-clocking-issues)) 
(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)
--8<---------------cut here---------------end--------------->8---

Best regards,
  Seb

-- 
Sebastien Vauban