From mboxrd@z Thu Jan 1 00:00:00 1970 From: Peter Salazar Subject: Re: error in orgstruct-mode Date: Sat, 20 Oct 2012 17:27:10 -0400 Message-ID: References: <12840.1350687277@alphaville.americas.hpqcorp.net> <3572.1350695622@alphaville> Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=0016e6dbea7080d75b04cc8448cd Return-path: Received: from eggs.gnu.org ([208.118.235.92]:42575) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TPgZf-0002BP-4w for emacs-orgmode@gnu.org; Sat, 20 Oct 2012 17:27:17 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TPgZc-0006Pg-Jc for emacs-orgmode@gnu.org; Sat, 20 Oct 2012 17:27:15 -0400 Received: from mail-wg0-f49.google.com ([74.125.82.49]:49017) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TPgZc-0006Pa-8n for emacs-orgmode@gnu.org; Sat, 20 Oct 2012 17:27:12 -0400 Received: by mail-wg0-f49.google.com with SMTP id gg4so906454wgb.30 for ; Sat, 20 Oct 2012 14:27:11 -0700 (PDT) In-Reply-To: <3572.1350695622@alphaville> 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: nicholas.dokos@hp.com Cc: org-mode --0016e6dbea7080d75b04cc8448cd Content-Type: text/plain; charset=ISO-8859-1 OK, I was able to successfully install org-mode 7.9.2. But there's something still wrong with the way org-mode and orgstruct-mode are handling numbered lists. In org-mode itself, when I enter "1. " and then hit OPTION-RETURN, it generates the next line "2. " but my cursor stays on the first line "1. " In markdown-mode with orgstruct-mode on, I get the following error: Debugger entered--Lisp error: (args-out-of-range -1 2) replace-match("- " nil nil nil 1) (if (equal old-bul new-bul) nil (replace-match new-bul nil nil nil 1)) (unless (equal old-bul new-bul) (replace-match new-bul nil nil nil 1)) (let* ((new-ind ...) (old-ind ...) (new-bul ...) (old-bul ...) (new-box ...)) (looking-at org-list-full-item-re) (unless (equal old-bul new-bul) (replace-match new-bul nil nil nil 1)) (cond (...) (... ...) (... ... ...) (t ...)) (unless (= new-ind old-ind) (delete-region ... ...) (indent-to new-ind))) (lambda (item) (goto-char item) (let* (... ... ... ... ...) (looking-at org-list-full-item-re) (unless ... ...) (cond ... ... ... ...) (unless ... ... ...)))(399) funcall((lambda (item) (goto-char item) (let* (... ... ... ... ...) (looking-at org-list-full-item-re) (unless ... ...) (cond ... ... ... ...) (unless ... ... ...))) 399) (if (or (not cell) (equal cell ...)) nil (funcall modify-item beg)) (unless (or (not cell) (equal cell ...)) (funcall modify-item beg)) (let* ((beg ...) (cell ...)) (unless (or ... ...) (funcall modify-item beg))) (lambda (e) (unless (zerop ...) (apply shift-body-ind e)) (let* (... ...) (unless ... ...)))((404 399 0)) mapc((lambda (e) (unless (zerop ...) (apply shift-body-ind e)) (let* (... ...) (unless ... ...))) ((408 404 0) (404 399 0) (399 379 0) (379 300 0) (300 231 0) (231 147 0))) (let (end-list acc-end itm-shift all-ends sliced-struct) (mapc (lambda ... ...) old-struct) (setq all-ends (sort ... ...)) (while (cdr all-ends) (let* ... ...)) (mapc (lambda ... ... ...) sliced-struct)) (let* ((origin ...) (inlinetask-re ...) (item-re ...) (shift-body-ind ...) (modify-item ...)) (let (end-list acc-end itm-shift all-ends sliced-struct) (mapc ... old-struct) (setq all-ends ...) (while ... ...) (mapc ... sliced-struct)) (goto-char origin) (move-marker origin nil)) org-list-struct-apply-struct(((147 1 "- " nil nil nil 231) (231 1 "- " nil nil nil 300) (300 1 "- " nil nil nil 379) (379 1 "- " nil nil nil 399) (399 1 "- " nil nil nil 404) (404 1 "- " nil nil nil 408)) ((147 1 "- " nil nil nil 231) (231 1 "- " nil nil nil 300) (300 1 "- " nil nil nil 379) (379 1 "- " nil nil nil 399) (399 0 "1. " nil nil nil 404) (404 0 "1. " nil nil nil 408))) (let ((old-struct ...)) (org-list-struct-fix-ind struct parents 2) (org-list-struct-fix-item-end struct) (let (...) (org-list-struct-fix-bul struct prevs) (org-list-struct-fix-ind struct parents) (org-list-struct-fix-box struct parents prevs)) (org-list-struct-apply-struct struct old-struct)) org-list-write-struct(((147 1 "- " nil nil nil 231) (231 1 "- " nil nil nil 300) (300 1 "- " nil nil nil 379) (379 1 "- " nil nil nil 399) (399 1 "- " nil nil nil 404) (404 1 "- " nil nil nil 408)) ((147) (231) (300) (379) (399) (404))) (let* ((struct ...) (prevs ...) (desc ...)) (setq struct (org-list-insert-item pos struct prevs checkbox desc)) (org-list-write-struct struct (org-list-parents-alist struct)) (when checkbox (org-update-checkbox-count-maybe)) (looking-at org-list-full-item-re) (goto-char (if ... ... ...)) t) (if (save-excursion (goto-char itemp) (org-at-item-timer-p)) (progn (org-timer-item) t) (let* (... ... ...) (setq struct ...) (org-list-write-struct struct ...) (when checkbox ...) (looking-at org-list-full-item-re) (goto-char ...) t)) (if (or (not itemp) (save-excursion ... ...)) nil (if (save-excursion ... ...) (progn ... t) (let* ... ... ... ... ... ... t))) (unless (or (not itemp) (save-excursion ... ...)) (if (save-excursion ... ...) (progn ... t) (let* ... ... ... ... ... ... t))) (let ((itemp ...) (pos ...)) (unless (or ... ...) (if ... ... ...))) org-insert-item() (not (org-insert-item)) (or force-heading (not (org-insert-item))) (if (or force-heading (not ...)) (progn (let* ... ... ... ... ... ... ... ... ...))) (when (or force-heading (not ...)) (let* (... ... ... ... ... ... pos hide-previous previous-pos) (cond ... ... ...) (insert head) (just-one-space) (setq pos ...) (end-of-line 1) (unless ... ... ...) (when ... ...) (run-hooks ...))) (if (or (= ... 0) (and ... ...)) (progn (insert "\n* ") (run-hooks ...)) (when (or force-heading ...) (let* ... ... ... ... ... ... ... ... ...))) org-insert-heading(nil) call-interactively(org-insert-heading) (let ((auto-fill-function ...) (indent-line-function ...) (paragraph-start ...) (auto-fill-inhibit-regexp ...) (paragraph-separate ...) (outline-regexp ...) (outline-level ...) (org-todo-kwd-alist ...) (org-todo-key-alist ...) (org-todo-key-trigger ...) (org-todo-keywords-1 ...) (org-done-keywords ...) (org-todo-heads ...) (org-todo-sets ...) (org-todo-log-states ...) (org-file-properties ...) (org-file-tags ...) (org-use-sub-superscripts ...) (org-ds-keyword-length ...) (org-drawer-regexp ...) (org-not-done-keywords ...) (org-todo-regexp ...) (org-not-done-regexp ...) (org-todo-line-regexp ...) (org-complex-heading-regexp ...) (org-complex-heading-regexp-format ...) (org-todo-line-tags-regexp ...) (org-deadline-regexp ...) (org-deadline-time-regexp ...) (org-deadline-line-regexp ...) (org-scheduled-regexp ...) (org-scheduled-time-regexp ...) (org-closed-time-regexp ...) (org-keyword-time-regexp ...) (org-keyword-time-not-clock-regexp ...) (org-maybe-keyword-time-regexp ...) (org-all-time-keywords ...) (org-latex-and-specials-regexp ...) (org-font-lock-keywords ...) (org-table-may-need-update ...) (indent-region-function ...) (org-target-link-regexp ...) (fill-paragraph-function ...) (normal-auto-fill-function ...) (comment-line-break-function ...) (comment-use-syntax ...) (comment-start ...) (comment-start-skip ...) (comment-insert-comment-function ...) (comment-region-function ...) ...) (call-interactively (quote org-insert-heading))) eval((let ((auto-fill-function ...) (indent-line-function ...) (paragraph-start ...) (auto-fill-inhibit-regexp ...) (paragraph-separate ...) (outline-regexp ...) (outline-level ...) (org-todo-kwd-alist ...) (org-todo-key-alist ...) (org-todo-key-trigger ...) (org-todo-keywords-1 ...) (org-done-keywords ...) (org-todo-heads ...) (org-todo-sets ...) (org-todo-log-states ...) (org-file-properties ...) (org-file-tags ...) (org-use-sub-superscripts ...) (org-ds-keyword-length ...) (org-drawer-regexp ...) (org-not-done-keywords ...) (org-todo-regexp ...) (org-not-done-regexp ...) (org-todo-line-regexp ...) (org-complex-heading-regexp ...) (org-complex-heading-regexp-format ...) (org-todo-line-tags-regexp ...) (org-deadline-regexp ...) (org-deadline-time-regexp ...) (org-deadline-line-regexp ...) (org-scheduled-regexp ...) (org-scheduled-time-regexp ...) (org-closed-time-regexp ...) (org-keyword-time-regexp ...) (org-keyword-time-not-clock-regexp ...) (org-maybe-keyword-time-regexp ...) (org-all-time-keywords ...) (org-latex-and-specials-regexp ...) (org-font-lock-keywords ...) (org-table-may-need-update ...) (indent-region-function ...) (org-target-link-regexp ...) (fill-paragraph-function ...) (normal-auto-fill-function ...) (comment-line-break-function ...) (comment-use-syntax ...) (comment-start ...) (comment-start-skip ...) (comment-insert-comment-function ...) (comment-region-function ...) ...) (call-interactively (quote org-insert-heading)))) org-run-like-in-org-mode(org-insert-heading) (if (org-context-p (quote headline) (quote item) (and orgstruct-is-++ t ...)) (org-run-like-in-org-mode (quote org-insert-heading)) (let (orgstruct-mode) (call-interactively ...))) orgstruct-hijacker-command-106(1) call-interactively(orgstruct-hijacker-command-106 nil nil) On Fri, Oct 19, 2012 at 9:13 PM, Nick Dokos wrote: > Peter Salazar wrote: > > > Thanks. I tried upgrading my version of org to 7.9.2, but then whenever > I launched Aquamacs, I got > > this message: > > > > Wrong type argument: integer-or-marker-p, nil > > > > I couldn't save or do anything, so I went back to the old version. > > > > Anyone know the solution to the Wrong type argument: > integer-or-marker-p, nil? > > > > Presumably something incompatible in your org initialization. > Does aquamacs allow for --debug-init? If not, then do the aquamacs > equivalent of -q, turn on debug-on-error, load your org initialization > by hand and send the backtrace. > > Nick > --0016e6dbea7080d75b04cc8448cd Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable
OK, I was able to successfully install org-mode 7.9.2. But there's= something still wrong with the way org-mode and orgstruct-mode are handlin= g numbered lists.=A0

In org-mode itself, when I en= ter "1. " and then hit OPTION-RETURN, it generates the next line = "2. " but my cursor stays on the first line "1. "

In markdown-mode with orgstruct-mode on, I get the foll= owing error:


Debugger entered-= -Lisp error: (args-out-of-range -1 2)
=A0 replace-match("- &= quot; nil nil nil 1)
=A0 (if (equal old-bul new-bul) nil (replace-match new-bul nil nil nil= 1))
=A0 (unless (equal old-bul new-bul) (replace-match new-bul n= il nil nil 1))
=A0 (let* ((new-ind ...) (old-ind ...) (new-bul ..= .) (old-bul ...) (new-box ...)) (looking-at org-list-full-item-re) (unless = (equal old-bul new-bul) (replace-match new-bul nil nil nil 1)) (cond (...) = (... ...) (... ... ...) (t ...)) (unless (=3D new-ind old-ind) (delete-regi= on ... ...) (indent-to new-ind)))
=A0 (lambda (item) (goto-char item) (let* (... ... ... ... ...) (looki= ng-at org-list-full-item-re) (unless ... ...) (cond ... ... ... ...) (unles= s ... ... ...)))(399)
=A0 funcall((lambda (item) (goto-char item)= (let* (... ... ... ... ...) (looking-at org-list-full-item-re) (unless ...= ...) (cond ... ... ... ...) (unless ... ... ...))) 399)
=A0 (if (or (not cell) (equal cell ...)) nil (funcall modify-item beg)= )
=A0 (unless (or (not cell) (equal cell ...)) (funcall modify-it= em beg))
=A0 (let* ((beg ...) (cell ...)) (unless (or ... ...) (f= uncall modify-item beg)))
=A0 (lambda (e) (unless (zerop ...) (apply shift-body-ind e)) (let* (.= .. ...) (unless ... ...)))((404 399 0))
=A0 mapc((lambda (e) (unl= ess (zerop ...) (apply shift-body-ind e)) (let* (... ...) (unless ... ...))= ) ((408 404 0) (404 399 0) (399 379 0) (379 300 0) (300 231 0) (231 147 0))= )
=A0 (let (end-list acc-end itm-shift all-ends sliced-struct) (mapc (la= mbda ... ...) old-struct) (setq all-ends (sort ... ...)) (while (cdr all-en= ds) (let* ... ...)) (mapc (lambda ... ... ...) sliced-struct))
=A0 (let* ((origin ...) (inlinetask-re ...) (item-re ...) (shift-body-ind .= ..) (modify-item ...)) (let (end-list acc-end itm-shift all-ends sliced-str= uct) (mapc ... old-struct) (setq all-ends ...) (while ... ...) (mapc ... sl= iced-struct)) (goto-char origin) (move-marker origin nil))
=A0 org-list-struct-apply-struct(((147 1 "- " nil nil nil 23= 1) (231 1 "- " nil nil nil 300) (300 1 "- " nil nil nil= 379) (379 1 "- " nil nil nil 399) (399 1 "- " nil nil = nil 404) (404 1 "- " nil nil nil 408)) ((147 1 "- " nil= nil nil 231) (231 1 "- " nil nil nil 300) (300 1 "- " = nil nil nil 379) (379 1 "- " nil nil nil 399) (399 0 "1. &qu= ot; nil nil nil 404) (404 0 "1. " nil nil nil 408)))
=A0 (let ((old-struct ...)) (org-list-struct-fix-ind struct parents 2)= (org-list-struct-fix-item-end struct) (let (...) (org-list-struct-fix-bul = struct prevs) (org-list-struct-fix-ind struct parents) (org-list-struct-fix= -box struct parents prevs)) (org-list-struct-apply-struct struct old-struct= ))
=A0 org-list-write-struct(((147 1 "- " nil nil nil 231) (231= 1 "- " nil nil nil 300) (300 1 "- " nil nil nil 379) (= 379 1 "- " nil nil nil 399) (399 1 "- " nil nil nil 404= ) (404 1 "- " nil nil nil 408)) ((147) (231) (300) (379) (399) (4= 04)))
=A0 (let* ((struct ...) (prevs ...) (desc ...)) (setq struct (org-list= -insert-item pos struct prevs checkbox desc)) (org-list-write-struct struct= (org-list-parents-alist struct)) (when checkbox (org-update-checkbox-count= -maybe)) (looking-at org-list-full-item-re) (goto-char (if ... ... ...)) t)=
=A0 (if (save-excursion (goto-char itemp) (org-at-item-timer-p)) (prog= n (org-timer-item) t) (let* (... ... ...) (setq struct ...) (org-list-write= -struct struct ...) (when checkbox ...) (looking-at org-list-full-item-re) = (goto-char ...) t))
=A0 (if (or (not itemp) (save-excursion ... ...)) nil (if (save-excurs= ion ... ...) (progn ... t) (let* ... ... ... ... ... ... t)))
=A0= (unless (or (not itemp) (save-excursion ... ...)) (if (save-excursion ... = ...) (progn ... t) (let* ... ... ... ... ... ... t)))
=A0 (let ((itemp ...) (pos ...)) (unless (or ... ...) (if ... ... ...)= ))
=A0 org-insert-item()
=A0 (not (org-insert-item))
=A0 (or force-heading (not (org-insert-item)))
=A0 (if (o= r force-heading (not ...)) (progn (let* ... ... ... ... ... ... ... ... ...= )))
=A0 (when (or force-heading (not ...)) (let* (... ... ... ... ... ... = pos hide-previous previous-pos) (cond ... ... ...) (insert head) (just-one-= space) (setq pos ...) (end-of-line 1) (unless ... ... ...) (when ... ...) (= run-hooks ...)))
=A0 (if (or (=3D ... 0) (and ... ...)) (progn (insert "\n* "= ) (run-hooks ...)) (when (or force-heading ...) (let* ... ... ... ... ... .= .. ... ... ...)))
=A0 org-insert-heading(nil)
=A0 call-= interactively(org-insert-heading)
=A0 (let ((auto-fill-function ...) (indent-line-function ...) (paragra= ph-start ...) (auto-fill-inhibit-regexp ...) (paragraph-separate ...) (outl= ine-regexp ...) (outline-level ...) (org-todo-kwd-alist ...) (org-todo-key-= alist ...) (org-todo-key-trigger ...) (org-todo-keywords-1 ...) (org-done-k= eywords ...) (org-todo-heads ...) (org-todo-sets ...) (org-todo-log-states = ...) (org-file-properties ...) (org-file-tags ...) (org-use-sub-superscript= s ...) (org-ds-keyword-length ...) (org-drawer-regexp ...) (org-not-done-ke= ywords ...) (org-todo-regexp ...) (org-not-done-regexp ...) (org-todo-line-= regexp ...) (org-complex-heading-regexp ...) (org-complex-heading-regexp-fo= rmat ...) (org-todo-line-tags-regexp ...) (org-deadline-regexp ...) (org-de= adline-time-regexp ...) (org-deadline-line-regexp ...) (org-scheduled-regex= p ...) (org-scheduled-time-regexp ...) (org-closed-time-regexp ...) (org-ke= yword-time-regexp ...) (org-keyword-time-not-clock-regexp ...) (org-maybe-k= eyword-time-regexp ...) (org-all-time-keywords ...) (org-latex-and-specials= -regexp ...) (org-font-lock-keywords ...) (org-table-may-need-update ...) (= indent-region-function ...) (org-target-link-regexp ...) (fill-paragraph-fu= nction ...) (normal-auto-fill-function ...) (comment-line-break-function ..= .) (comment-use-syntax ...) (comment-start ...) (comment-start-skip ...) (c= omment-insert-comment-function ...) (comment-region-function ...) ...) (cal= l-interactively (quote org-insert-heading)))
=A0 eval((let ((auto-fill-function ...) (indent-line-function ...) (pa= ragraph-start ...) (auto-fill-inhibit-regexp ...) (paragraph-separate ...) = (outline-regexp ...) (outline-level ...) (org-todo-kwd-alist ...) (org-todo= -key-alist ...) (org-todo-key-trigger ...) (org-todo-keywords-1 ...) (org-d= one-keywords ...) (org-todo-heads ...) (org-todo-sets ...) (org-todo-log-st= ates ...) (org-file-properties ...) (org-file-tags ...) (org-use-sub-supers= cripts ...) (org-ds-keyword-length ...) (org-drawer-regexp ...) (org-not-do= ne-keywords ...) (org-todo-regexp ...) (org-not-done-regexp ...) (org-todo-= line-regexp ...) (org-complex-heading-regexp ...) (org-complex-heading-rege= xp-format ...) (org-todo-line-tags-regexp ...) (org-deadline-regexp ...) (o= rg-deadline-time-regexp ...) (org-deadline-line-regexp ...) (org-scheduled-= regexp ...) (org-scheduled-time-regexp ...) (org-closed-time-regexp ...) (o= rg-keyword-time-regexp ...) (org-keyword-time-not-clock-regexp ...) (org-ma= ybe-keyword-time-regexp ...) (org-all-time-keywords ...) (org-latex-and-spe= cials-regexp ...) (org-font-lock-keywords ...) (org-table-may-need-update .= ..) (indent-region-function ...) (org-target-link-regexp ...) (fill-paragra= ph-function ...) (normal-auto-fill-function ...) (comment-line-break-functi= on ...) (comment-use-syntax ...) (comment-start ...) (comment-start-skip ..= .) (comment-insert-comment-function ...) (comment-region-function ...) ...)= (call-interactively (quote org-insert-heading))))
=A0 org-run-like-in-org-mode(org-insert-heading)
=A0 (if (or= g-context-p (quote headline) (quote item) (and orgstruct-is-++ t ...)) (org= -run-like-in-org-mode (quote org-insert-heading)) (let (orgstruct-mode) (ca= ll-interactively ...)))
=A0 orgstruct-hijacker-command-106(1)
=A0 call-interactively= (orgstruct-hijacker-command-106 nil nil)



=
On Fri, Oct 19, 2012 at 9:13 PM, Nick Dokos <nicholas.dokos@hp.com> wrote:
Peter Salazar <cycleofsong@gmail.com> wrote:

> Thanks. I tried upgrading my version of org to 7.9.2, but then wheneve= r I launched Aquamacs, I got
> this message:
>
> Wrong type argument: integer-or-marker-p, nil
>
> I couldn't save or do anything, so I went back to the old version.= =A0
>
> Anyone know the solution to the=A0Wrong type argument: integer-or-mark= er-p, nil?
>

Presumably something incompatible in your org initialization.
Does aquamacs allow for --debug-init? If not, then do the aquamacs
equivalent of -q, turn on debug-on-error, load your org initialization
by hand and send the backtrace.

Nick

--0016e6dbea7080d75b04cc8448cd--