[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [bug?] not: Symbol's value as variable is void: org-outline-regexp-b
From: |
Sebastien Vauban |
Subject: |
[O] [bug?] not: Symbol's value as variable is void: org-outline-regexp-bol |
Date: |
Mon, 18 Jul 2011 15:41:53 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (windows-nt) |
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
- [O] [bug?] not: Symbol's value as variable is void: org-outline-regexp-bol,
Sebastien Vauban <=