Re: error in orgstruct-mode

[Peter Salazar <cycleofsong@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 8644 bytes --]

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 <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 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
>

[-- Attachment #2: Type: text/html, Size: 9851 bytes --]