From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: [bug?] not: Symbol's value as variable is void: org-outline-regexp-bol Date: Mon, 18 Jul 2011 15:41:53 +0200 Message-ID: <808vrvln8e.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org 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 "\\*= +[ ]+\\([^=0D\n]+\\)") (setq head (match-string 1)) (let (...) (setq txt .= ..))) (save-excursion (setq todo-state (org-get-todo-state)) (setq donep (membe= r todo-state org-done-keywords)) (if (and donep org-agenda-skip-timestamp-i= f-done) (throw :skip t)) (setq marker (org-agenda-new-marker ...)) (setq ca= tegory (org-get-category)) (if (not ...) (setq txt org-agenda-no-heading-me= ssage) (goto-char ...) (setq hdmarker ...) (setq tags ...) (looking-at "\\*= +[ ]+\\([^=0D\n]+\\)") (setq head ...) (let ... ...)) (org-add-props txt p= rops (quote org-marker) marker (quote org-hd-marker) hdmarker (quote type) = "block" (quote date) date (quote todo-state) todo-state (quote priority) (o= rg-get-priority txt) (quote org-category) category) (push txt ee)) (if (and (> ... -1) (> ... -1)) (save-excursion (setq todo-state ...) (se= tq 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 (matc= h-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) (s= etq 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 :timesta= mp) (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 result= s ...)) ((eq arg :deadline) (setq rtn ...) (setq deadline-results ...) (set= q results ...))) (while (setq arg (pop args)) (cond (... ... ...) (... ... ... ... ...) (.= .. ... ...) (... ... ...) (... ... ...) (... ... ... ...))) (save-restriction (if org-agenda-restrict (narrow-to-region org-agenda-re= strict-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 "Age= nda file %s is not in `org-mode'" file)) (let (...) (save-excursion ...)) r= esults) (with-current-buffer buffer (unless (org-mode-p) (error "Agenda file %s i= s not in `org-mode'" file)) (let (...) (save-excursion ...)) results) (if (not buffer) (list (format "ORG-AGENDA-ERROR: No such org-file %s" fi= le)) (with-current-buffer buffer (unless ... ...) (let ... ...) results)) (let* ((org-startup-folded nil) (org-startup-align-all-tables nil) (buffe= r ...) 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) :timesta= mp :scheduled :deadline) (append entries (org-agenda-get-day-entries file today :timestamp :schedu= led :deadline)) (setq entries (append entries (org-agenda-get-day-entries file today :tim= estamp :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-prepa= re-agenda-buffers files) (while (setq file ...) (setq entries ...)) (setq e= ntries (delq nil entries)) (mapc (lambda ... ...) entries) (org-release-buf= fers org-agenda-new-buffers) (if (eq cnt 0) (message "No event to add") (me= ssage "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) (set= q org-agenda-contributing-files nil) (setq org-agenda-columns-active nil) (= org-prepare-agenda-buffers (org-agenda-files nil ...)) (setq org-todo-keywo= rds-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-w= eekday ...) (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-c= ommand (list ... ... start-day ...)) (dotimes (n ...) (push ... day-numbers= )) (setq day-numbers (nreverse day-numbers)) (setq clocktable-start (car da= y-numbers) clocktable-end (1+ ...)) (org-prepare-agenda "Day/Week") (org-se= t-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote o= rg-include-all-loc) include-all) (org-set-local (quote org-agenda-current-s= pan) (org-agenda-ndays-to-span span)) (unless org-agenda-compact-blocks (le= t* ... ... ...) (add-text-properties s ... ...) (org-agenda-mark-header-lin= e s)) (while (setq d ...) (setq date ... s ...) (if ... ... ...) (setq file= s thefiles rtnall nil) (while ... ...) (if org-agenda-include-diary ...) (i= f ... ...)) (when (and org-agenda-clockreport-mode clocktable-start) (let .= .. ... ... ... ... ... ... ...)) (goto-char (point-min)) (or org-agenda-mul= ti (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) (me= ssage "")) org-agenda-list(nil) call-interactively(org-agenda-list) (cond ((setq entry ...) (if ... ... ...)) ((equal keys "C") (setq org-age= nda-custom-commands org-agenda-custom-commands-orig) (customize-variable ..= .)) ((equal keys "a") (call-interactively ...)) ((equal keys "s") (call-int= eractively ...)) ((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-in= teractively ...)) ((equal keys "?") (org-tags-view nil "+FLAGGED") (org-add= -hook ... ... t t)) ((equal keys "L") (unless ... ...) (unless restriction = ... ...)) ((equal keys "#") (call-interactively ...)) ((equal keys "/") (ca= ll-interactively ...)) ((equal keys "!") (customize-variable ...)) (t (erro= r "Invalid agenda key"))) (let* ((prefix-descriptions nil) (org-agenda-window-setup ...) (org-agend= a-custom-commands-orig org-agenda-custom-commands) (org-agenda-custom-comma= nds ...) (buf ...) (bfn ...) entry key type match lprops ans) (unless org-a= genda-overriding-restriction (unless ... ...) (setq org-agenda-restrict nil= ) (move-marker org-agenda-restrict-begin nil) (move-marker org-agenda-restr= ict-end nil)) (put (quote org-agenda-redo-command) (quote org-lprops) nil) = (put (quote org-agenda-redo-command) (quote last-args) nil) (setq org-agend= a-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 l= props 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 --=20 Sebastien Vauban