From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Andrews, Kyle (KC)" Subject: Bug: org-agenda-get-todos: Wrong type argument: integer-or-marker-p, nil [7.9.2 (7.9.2-181-ge8aaca-elpa @ c:/users/--------/documents/store/.emacs.d/elpa/org-20121231/)] Date: Thu, 3 Jan 2013 15:54:14 +0000 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([208.118.235.92]:35952) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Tqn7z-0004ON-Ih for emacs-orgmode@gnu.org; Thu, 03 Jan 2013 10:54:48 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Tqn7s-0006Am-S8 for emacs-orgmode@gnu.org; Thu, 03 Jan 2013 10:54:43 -0500 Received: from co1ehsobe005.messaging.microsoft.com ([216.32.180.188]:50188 helo=co1outboundpool.messaging.microsoft.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Tqn7s-0006AA-Ef for emacs-orgmode@gnu.org; Thu, 03 Jan 2013 10:54:36 -0500 Received: from mail89-co1 (localhost [127.0.0.1]) by mail89-co1-R.bigfish.com (Postfix) with ESMTP id 6F9F7680134 for ; Thu, 3 Jan 2013 15:54:34 +0000 (UTC) Received: from CO1EHSMHS014.bigfish.com (unknown [10.243.78.220]) by mail89-co1.bigfish.com (Postfix) with ESMTP id 111B72C008C for ; Thu, 3 Jan 2013 15:54:31 +0000 (UTC) Content-Language: en-US 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@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: "emacs-orgmode@gnu.org" When I try to rebuild the agenda buffer to display only TODO's with "1 r" I= get the error: org-agenda-get-todos: Wrong type argument: integer-or-marker-p, nil And then the buffer is left blank. Here is the backtrace: #+BEGIN_QUOTE Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil) goto-char(nil) (if org-agenda-todo-list-sublevels (goto-char (match-end 2)) (org-end-of-= subtree (quote invisible))) (catch :skip (save-match-data (beginning-of-line) (org-agenda-skip) (setq= beg (point) end (save-excursion (outline-next-heading) (point))) (when (or= g-agenda-check-for-timestamp-as-reason-to-ignore-todo-item end) (goto-char = (1+ beg)) (or org-agenda-todo-list-sublevels (org-end-of-subtree (quote inv= isible))) (throw :skip nil))) (goto-char (match-beginning 2)) (setq marker = (org-agenda-new-marker (match-beginning 0)) category (org-get-category) cat= egory-pos (get-text-property (point) (quote org-category-position)) txt (or= g-trim (buffer-substring (match-beginning 2) (match-end 0))) tags (org-get-= tags-at (point)) txt (org-agenda-format-item "" txt category tags t) priori= ty (1+ (org-get-priority txt)) todo-state (org-get-todo-state)) (org-add-pr= ops txt props (quote org-marker) marker (quote org-hd-marker) marker (quote= priority) priority (quote org-category) category (quote org-category-posit= ion) category-pos (quote type) "todo" (quote todo-state) todo-state) (push = txt ee) (if org-agenda-todo-list-sublevels (goto-char (match-end 2)) (org-e= nd-of-subtree (quote invisible)))) (while (re-search-forward regexp nil t) (catch :skip (save-match-data (be= ginning-of-line) (org-agenda-skip) (setq beg (point) end (save-excursion (o= utline-next-heading) (point))) (when (org-agenda-check-for-timestamp-as-rea= son-to-ignore-todo-item end) (goto-char (1+ beg)) (or org-agenda-todo-list-= sublevels (org-end-of-subtree (quote invisible))) (throw :skip nil))) (goto= -char (match-beginning 2)) (setq marker (org-agenda-new-marker (match-begin= ning 0)) category (org-get-category) category-pos (get-text-property (point= ) (quote org-category-position)) txt (org-trim (buffer-substring (match-beg= inning 2) (match-end 0))) tags (org-get-tags-at (point)) txt (org-agenda-fo= rmat-item "" txt category tags t) priority (1+ (org-get-priority txt)) todo= -state (org-get-todo-state)) (org-add-props txt props (quote org-marker) ma= rker (quote org-hd-marker) marker (quote priority) priority (quote org-cate= gory) category (quote org-category-position) category-pos (quote type) "tod= o" (quote todo-state) todo-state) (push txt ee) (if org-agenda-todo-list-su= blevels (goto-char (match-end 2)) (org-end-of-subtree (quote invisible))))) (let* ((props (list (quote face) nil (quote done-face) (quote org-agenda-= done) (quote org-not-done-regexp) org-not-done-regexp (quote org-todo-regex= p) org-todo-regexp (quote org-complex-heading-regexp) org-complex-heading-r= egexp (quote mouse-face) (quote highlight) (quote help-echo) (format "mouse= -2 or RET jump to org file %s" (abbreviate-file-name buffer-file-name)))) (= regexp (format org-heading-keyword-regexp-format (cond ((and org-select-thi= s-todo-keyword (equal org-select-this-todo-keyword "*")) org-todo-regexp) (= org-select-this-todo-keyword (concat "\\(" (mapconcat ... ... "\\|") "\\)")= ) (t org-not-done-regexp)))) marker priority category category-pos tags tod= o-state ee txt beg end) (goto-char (point-min)) (while (re-search-forward r= egexp nil t) (catch :skip (save-match-data (beginning-of-line) (org-agenda-= skip) (setq beg (point) end (save-excursion (outline-next-heading) (point))= ) (when (org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item end) = (goto-char (1+ beg)) (or org-agenda-todo-list-sublevels (org-end-of-subtree= (quote invisible))) (throw :skip nil))) (goto-char (match-beginning 2)) (s= etq marker (org-agenda-new-marker (match-beginning 0)) category (org-get-ca= tegory) category-pos (get-text-property (point) (quote org-category-positio= n)) txt (org-trim (buffer-substring (match-beginning 2) (match-end 0))) tag= s (org-get-tags-at (point)) txt (org-agenda-format-item "" txt category tag= s t) priority (1+ (org-get-priority txt)) todo-state (org-get-todo-state)) = (org-add-props txt props (quote org-marker) marker (quote org-hd-marker) ma= rker (quote priority) priority (quote org-category) category (quote org-cat= egory-position) category-pos (quote type) "todo" (quote todo-state) todo-st= ate) (push txt ee) (if org-agenda-todo-list-sublevels (goto-char (match-end= 2)) (org-end-of-subtree (quote invisible))))) (nreverse ee)) org-agenda-get-todos() (setq rtn (org-agenda-get-todos)) (cond ((and (eq arg :todo) (equal date (calendar-gregorian-from-absolute = (org-today)))) (setq rtn (org-agenda-get-todos)) (setq results (append resu= lts rtn))) ((eq arg :timestamp) (setq rtn (org-agenda-get-blocks)) (setq re= sults (append results rtn)) (setq rtn (org-agenda-get-timestamps deadline-r= esults)) (setq results (append results rtn))) ((eq arg :sexp) (setq rtn (or= g-agenda-get-sexps)) (setq results (append results rtn))) ((eq arg :schedul= ed) (setq rtn (org-agenda-get-scheduled deadline-results)) (setq results (a= ppend results rtn))) ((eq arg :closed) (setq rtn (org-agenda-get-progress))= (setq results (append results rtn))) ((eq arg :deadline) (setq rtn (org-ag= enda-get-deadlines)) (setq deadline-results (copy-sequence rtn)) (setq resu= lts (append results rtn)))) (while (setq arg (pop args)) (cond ((and (eq arg :todo) (equal date (cale= ndar-gregorian-from-absolute (org-today)))) (setq rtn (org-agenda-get-todos= )) (setq results (append results rtn))) ((eq arg :timestamp) (setq rtn (org= -agenda-get-blocks)) (setq results (append results rtn)) (setq rtn (org-age= nda-get-timestamps deadline-results)) (setq results (append results rtn))) = ((eq arg :sexp) (setq rtn (org-agenda-get-sexps)) (setq results (append res= ults rtn))) ((eq arg :scheduled) (setq rtn (org-agenda-get-scheduled deadli= ne-results)) (setq results (append results rtn))) ((eq arg :closed) (setq r= tn (org-agenda-get-progress)) (setq results (append results rtn))) ((eq arg= :deadline) (setq rtn (org-agenda-get-deadlines)) (setq deadline-results (c= opy-sequence rtn)) (setq results (append results rtn))))) (save-restriction (if org-agenda-restrict (narrow-to-region org-agenda-re= strict-begin org-agenda-restrict-end) (widen)) (while (setq arg (pop args))= (cond ((and (eq arg :todo) (equal date (calendar-gregorian-from-absolute (= org-today)))) (setq rtn (org-agenda-get-todos)) (setq results (append resul= ts rtn))) ((eq arg :timestamp) (setq rtn (org-agenda-get-blocks)) (setq res= ults (append results rtn)) (setq rtn (org-agenda-get-timestamps deadline-re= sults)) (setq results (append results rtn))) ((eq arg :sexp) (setq rtn (org= -agenda-get-sexps)) (setq results (append results rtn))) ((eq arg :schedule= d) (setq rtn (org-agenda-get-scheduled deadline-results)) (setq results (ap= pend results rtn))) ((eq arg :closed) (setq rtn (org-agenda-get-progress)) = (setq results (append results rtn))) ((eq arg :deadline) (setq rtn (org-age= nda-get-deadlines)) (setq deadline-results (copy-sequence rtn)) (setq resul= ts (append results rtn)))))) (save-excursion (save-restriction (if org-agenda-restrict (narrow-to-regi= on org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq= arg (pop args)) (cond ((and (eq arg :todo) (equal date (calendar-gregorian= -from-absolute ...))) (setq rtn (org-agenda-get-todos)) (setq results (appe= nd results rtn))) ((eq arg :timestamp) (setq rtn (org-agenda-get-blocks)) (= setq results (append results rtn)) (setq rtn (org-agenda-get-timestamps dea= dline-results)) (setq results (append results rtn))) ((eq arg :sexp) (setq = rtn (org-agenda-get-sexps)) (setq results (append results rtn))) ((eq arg := scheduled) (setq rtn (org-agenda-get-scheduled deadline-results)) (setq res= ults (append results rtn))) ((eq arg :closed) (setq rtn (org-agenda-get-pro= gress)) (setq results (append results rtn))) ((eq arg :deadline) (setq rtn = (org-agenda-get-deadlines)) (setq deadline-results (copy-sequence rtn)) (se= tq results (append results rtn))))))) (let ((case-fold-search nil)) (save-excursion (save-restriction (if org-a= genda-restrict (narrow-to-region org-agenda-restrict-begin org-agenda-restr= ict-end) (widen)) (while (setq arg (pop args)) (cond ((and (eq arg :todo) (= equal date ...)) (setq rtn (org-agenda-get-todos)) (setq results (append re= sults rtn))) ((eq arg :timestamp) (setq rtn (org-agenda-get-blocks)) (setq = results (append results rtn)) (setq rtn (org-agenda-get-timestamps deadline= -results)) (setq results (append results rtn))) ((eq arg :sexp) (setq rtn (= org-agenda-get-sexps)) (setq results (append results rtn))) ((eq arg :sched= uled) (setq rtn (org-agenda-get-scheduled deadline-results)) (setq results = (append results rtn))) ((eq arg :closed) (setq rtn (org-agenda-get-progress= )) (setq results (append results rtn))) ((eq arg :deadline) (setq rtn (org-= agenda-get-deadlines)) (setq deadline-results (copy-sequence rtn)) (setq re= sults (append results rtn)))))))) (save-current-buffer (set-buffer buffer) (unless (derived-mode-p (quote o= rg-mode)) (error "Agenda file %s is not in `org-mode'" file)) (setq org-age= nda-buffer (or org-agenda-buffer buffer)) (let ((case-fold-search nil)) (sa= ve-excursion (save-restriction (if org-agenda-restrict (narrow-to-region or= g-agenda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq arg = (pop args)) (cond ((and ... ...) (setq rtn ...) (setq results ...)) ((eq ar= g :timestamp) (setq rtn ...) (setq results ...) (setq rtn ...) (setq result= s ...)) ((eq arg :sexp) (setq rtn ...) (setq results ...)) ((eq arg :schedu= led) (setq rtn ...) (setq results ...)) ((eq arg :closed) (setq rtn ...) (s= etq results ...)) ((eq arg :deadline) (setq rtn ...) (setq deadline-results= ...) (setq results ...))))))) results) (with-current-buffer buffer (unless (derived-mode-p (quote org-mode)) (er= ror "Agenda file %s is not in `org-mode'" file)) (setq org-agenda-buffer (o= r org-agenda-buffer buffer)) (let ((case-fold-search nil)) (save-excursion = (save-restriction (if org-agenda-restrict (narrow-to-region org-agenda-rest= rict-begin org-agenda-restrict-end) (widen)) (while (setq arg (pop args)) (= 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 rt= n ...) (setq results ...)) ((eq arg :closed) (setq rtn ...) (setq results .= ..)) ((eq arg :deadline) (setq rtn ...) (setq deadline-results ...) (setq r= esults ...))))))) results) (if (not buffer) (list (format "ORG-AGENDA-ERROR: No such org-file %s" fi= le)) (with-current-buffer buffer (unless (derived-mode-p (quote org-mode)) = (error "Agenda file %s is not in `org-mode'" file)) (setq org-agenda-buffer= (or org-agenda-buffer buffer)) (let ((case-fold-search nil)) (save-excursi= on (save-restriction (if org-agenda-restrict (narrow-to-region org-agenda-r= estrict-begin org-agenda-restrict-end) (widen)) (while (setq arg (pop args)= ) (cond (... ... ...) (... ... ... ... ...) (... ... ...) (... ... ...) (..= . ... ...) (... ... ... ...)))))) results)) (let* ((org-startup-folded nil) (org-startup-align-all-tables nil) (buffe= r (if (file-exists-p file) (org-get-agenda-file-buffer file) (error "No suc= h file %s" file))) arg results rtn deadline-results) (if (not buffer) (list= (format "ORG-AGENDA-ERROR: No such org-file %s" file)) (with-current-buffe= r buffer (unless (derived-mode-p (quote org-mode)) (error "Agenda file %s i= s not in `org-mode'" file)) (setq org-agenda-buffer (or org-agenda-buffer b= uffer)) (let ((case-fold-search nil)) (save-excursion (save-restriction (if= org-agenda-restrict (narrow-to-region org-agenda-restrict-begin org-agenda= -restrict-end) (widen)) (while (setq arg ...) (cond ... ... ... ... ... ...= ))))) results))) org-agenda-get-day-entries("c:/users/-------/documents/store/emacs/emacs.= org" (1 3 2013) :todo) (setq rtn (org-agenda-get-day-entries file date :todo)) (catch (quote nextfile) (org-check-agenda-file file) (setq rtn (org-agend= a-get-day-entries file date :todo)) (setq rtnall (append rtnall rtn))) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-= file file) (setq rtn (org-agenda-get-day-entries file date :todo)) (setq rt= nall (append rtnall rtn)))) (catch (quote exit) (if org-agenda-sticky (setq org-agenda-buffer-name (i= f (stringp org-select-this-todo-keyword) (format "*Org Agenda(%s:%s)*" (or = org-keys "t") org-select-this-todo-keyword) (format "*Org Agenda(%s)*" (or = org-keys "t"))))) (org-agenda-prepare "TODO") (org-compile-prefix-format (q= uote todo)) (org-set-sorting-strategy (quote todo)) (setq org-agenda-redo-c= ommand (\` (org-todo-list (or (and (numberp current-prefix-arg) current-pre= fix-arg) (\, org-select-this-todo-keyword) current-prefix-arg (\, arg))))) = (setq files (org-agenda-files nil (quote ifmode)) rtnall nil) (while (setq = file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (set= q rtn (org-agenda-get-day-entries file date :todo)) (setq rtnall (append rt= nall rtn)))) (if org-agenda-overriding-header (insert (org-add-props (copy-= sequence org-agenda-overriding-header) nil (quote face) (quote org-agenda-s= tructure)) "\n") (insert "Global list of TODO items of type: ") (add-text-p= roperties (point-min) (1- (point)) (list (quote face) (quote org-agenda-str= ucture) (quote short-heading) (concat "ToDo: " (or org-select-this-todo-key= word "ALL")))) (org-agenda-mark-header-line (point-min)) (setq pos (point))= (insert (or org-select-this-todo-keyword "ALL") "\n") (add-text-properties= pos (1- (point)) (list (quote face) (quote org-warning))) (setq pos (point= )) (unless org-agenda-multi (insert "Available with `N r': (0)[ALL]") (let = ((n 0) s) (mapc (lambda (x) (setq s (format "(%d)%s" ... x)) (if (> ... ...= ) (insert "\n ")) (insert " " s)) kwds)) (insert "\n"))= (add-text-properties pos (1- (point)) (list (quote face) (quote org-agenda= -structure)))) (org-agenda-mark-header-line (point-min)) (when rtnall (inse= rt (org-agenda-finalize-entries rtnall) "\n")) (goto-char (point-min)) (or = org-agenda-multi (org-agenda-fit-window-to-buffer)) (add-text-properties (p= oint-min) (point-max) (\` (org-agenda-type todo org-last-args (\, arg) org-= redo-cmd (\, org-agenda-redo-command) org-series-cmd (\, org-cmd)))) (org-a= genda-finalize) (setq buffer-read-only t)) (let* ((today (org-today)) (date (calendar-gregorian-from-absolute today)= ) (kwds org-todo-keywords-for-agenda) (completion-ignore-case t) (org-selec= t-this-todo-keyword (if (stringp arg) arg (and arg (integerp arg) (> arg 0)= (nth (1- arg) kwds)))) rtn rtnall files file pos) (when (equal arg (quote = (4))) (setq org-select-this-todo-keyword (org-icompleting-read "Keyword (or= KWD1|K2D2|...): " (mapcar (quote list) kwds) nil nil))) (and (equal 0 arg)= (setq org-select-this-todo-keyword nil)) (catch (quote exit) (if org-agend= a-sticky (setq org-agenda-buffer-name (if (stringp org-select-this-todo-key= word) (format "*Org Agenda(%s:%s)*" (or org-keys "t") org-select-this-todo-= keyword) (format "*Org Agenda(%s)*" (or org-keys "t"))))) (org-agenda-prepa= re "TODO") (org-compile-prefix-format (quote todo)) (org-set-sorting-strate= gy (quote todo)) (setq org-agenda-redo-command (\` (org-todo-list (or (and = (numberp current-prefix-arg) current-prefix-arg) (\, org-select-this-todo-k= eyword) current-prefix-arg (\, arg))))) (setq files (org-agenda-files nil (= quote ifmode)) rtnall nil) (while (setq file (pop files)) (catch (quote nex= tfile) (org-check-agenda-file file) (setq rtn (org-agenda-get-day-entries f= ile date :todo)) (setq rtnall (append rtnall rtn)))) (if org-agenda-overrid= ing-header (insert (org-add-props (copy-sequence org-agenda-overriding-head= er) nil (quote face) (quote org-agenda-structure)) "\n") (insert "Global li= st of TODO items of type: ") (add-text-properties (point-min) (1- (point)) = (list (quote face) (quote org-agenda-structure) (quote short-heading) (conc= at "ToDo: " (or org-select-this-todo-keyword "ALL")))) (org-agenda-mark-hea= der-line (point-min)) (setq pos (point)) (insert (or org-select-this-todo-k= eyword "ALL") "\n") (add-text-properties pos (1- (point)) (list (quote face= ) (quote org-warning))) (setq pos (point)) (unless org-agenda-multi (insert= "Available with `N r': (0)[ALL]") (let ((n 0) s) (mapc (lambda (x) (setq s= ...) (if ... ...) (insert " " s)) kwds)) (insert "\n")) (add-text-properti= es pos (1- (point)) (list (quote face) (quote org-agenda-structure)))) (org= -agenda-mark-header-line (point-min)) (when rtnall (insert (org-agenda-fina= lize-entries rtnall) "\n")) (goto-char (point-min)) (or org-agenda-multi (o= rg-agenda-fit-window-to-buffer)) (add-text-properties (point-min) (point-ma= x) (\` (org-agenda-type todo org-last-args (\, arg) org-redo-cmd (\, org-ag= enda-redo-command) org-series-cmd (\, org-cmd)))) (org-agenda-finalize) (se= tq buffer-read-only t))) org-todo-list(1) eval((org-todo-list (or (and (numberp current-prefix-arg) current-prefix-= arg) nil current-prefix-arg nil))) (let nil (eval redo-cmd)) eval((let nil (eval redo-cmd))) org-let(nil (eval redo-cmd)) (if series-redo-cmd (eval series-redo-cmd) (org-let lprops (quote (eval r= edo-cmd)))) (let* ((p (or (and (looking-at "\\'") (1- (point))) (point))) (cpa (unles= s (eq all t) current-prefix-arg)) (org-agenda-doing-sticky-redo org-agenda-= sticky) (org-agenda-sticky nil) (org-agenda-buffer-name (or org-agenda-this= -buffer-name org-agenda-buffer-name)) (org-agenda-keep-modes t) (tag-filter= org-agenda-tag-filter) (tag-preset (get (quote org-agenda-tag-filter) :pre= set-filter)) (top-cat-filter org-agenda-top-category-filter) (cat-filter or= g-agenda-category-filter) (cat-preset (get (quote org-agenda-category-filte= r) :preset-filter)) (org-agenda-tag-filter-while-redo (or tag-filter tag-pr= eset)) (cols org-agenda-columns-active) (line (org-current-line)) (window-l= ine (- line (org-current-line (window-start)))) (lprops (get (quote org-age= nda-redo-command) (quote org-lprops))) (redo-cmd (get-text-property p (quot= e org-redo-cmd))) (last-args (get-text-property p (quote org-last-args))) (= org-agenda-overriding-cmd (get-text-property p (quote org-series-cmd))) (or= g-agenda-overriding-cmd-arguments (unless (eq all t) (cond ((listp last-arg= s) (cons (or cpa ...) (cdr last-args))) ((stringp last-args) last-args)))) = (series-redo-cmd (get-text-property p (quote org-series-redo-cmd)))) (put (= quote org-agenda-tag-filter) :preset-filter nil) (put (quote org-agenda-cat= egory-filter) :preset-filter nil) (and cols (org-columns-quit)) (message "R= ebuilding agenda buffer...") (if series-redo-cmd (eval series-redo-cmd) (or= g-let lprops (quote (eval redo-cmd)))) (setq org-agenda-undo-list nil org-a= genda-pending-undo-list nil) (message "Rebuilding agenda buffer...done") (p= ut (quote org-agenda-tag-filter) :preset-filter tag-preset) (put (quote org= -agenda-category-filter) :preset-filter cat-preset) (and (or tag-filter tag= -preset) (org-agenda-filter-apply tag-filter (quote tag))) (and (or cat-fil= ter cat-preset) (org-agenda-filter-apply cat-filter (quote category))) (and= top-cat-filter (org-agenda-filter-top-category-apply top-cat-filter)) (and= cols (org-called-interactively-p (quote any)) (org-agenda-columns)) (org-g= oto-line line) (recenter window-line)) org-agenda-redo(1) call-interactively(org-agenda-redo nil nil) #+END_QUOTE Maybe it is related to this issue? http://lists.gnu.org/archive/html/emacs-orgmode/2012-03/msg00310.html Regards, Kyle Andrews Emacs : GNU Emacs 24.2.1 (i386-mingw-nt6.1.7601) of 2012-08-28 on MARVIN Package: Org-mode version 7.9.2 (7.9.2-181-ge8aaca-elpa @ c:/users/-------/= documents/store/.emacs.d/elpa/org-20121231/)