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

[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 "\\*+[ 	]+\\([^\r\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 "\\*+[ 	]+\\([^\r\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

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

[Bastien]

"Sebastien Vauban" <wxhgmqzgwmuf@spammotel.com> writes:

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

Make sure you reload Org with M-x org-reload.

`org-outline-regexp-bol' is a new defconst in org.el.

HTH,

-- 
 Bastien

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

[Sebastien Vauban]

Hi Bastien,

Bastien wrote:
> "Sebastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org> writes:
>
>> Since update of 5 mins ago, when `C-c a a':
>
> Make sure you reload Org with M-x org-reload.
>
> `org-outline-regexp-bol' is a new defconst in org.el.

Problem came from org.elc on my disk. Once deleted, I confirm that you've
fixed the problem. Thanks, and sorry.

Best regards,
  Seb

-- 
Sebastien Vauban