error in orgstruct-mode

error in orgstruct-mode

[Peter Salazar]

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

I'm using Aquamacs in markdown-mode with orgstruct-mode turned on.

When I start a numbered list:

1. foo

...at the end of that line, I want to automatically generate the next
number on the list, so I hit OPTION-RETURN

but instead of generating a "2. " on the next line, I get this error:

Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
  byte-code("\b\203

This used to work fine in markdown-mode with orgstruct-mode turned on...

Backtrace:

Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
  byte-code("\b\203

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

Re: error in orgstruct-mode

[Peter Salazar]

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

Oops. Here's the full backtrace. Anyone have any thoughts? Help!


Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
  byte-code("\b\203
  \306\x10\202
\307\310!\210m\203\x16\311\312\306\"\210\313\314!\203!\311\315\306\"\210\316\306w\210i\211\x11\nV\2032\311\315\317\"\210
\nW\203=\311\312\317\"\210\320
\204G\311\312\306\"\210\321\310!\x13\310\224\310\225|\210\310\224b\210\322\f
T\211\x15\"\211\x16\x17c\210\x0e\x17G
GZ\x16\x18\323\x0e\x18!\210\306\x1e\x19\212\x0e\x19\203{\x0e\x19b\210n\203\203\324\202\204\325\326\324`\"\\*\x0e\x1aU\203\227\x0e^[\x0e\x18\\\x16^[\306\207"
[bobp ind1 ind old fmt n nil beginning-of-line 2 throw exit looking-at "[ ]*$"
next " " t org-at-item-p match-string format org-shift-item-indentation 1 0
count-lines new delta pos line col] 5)
  byte-code("\300\301\215\210\202" [next (byte-code "\b\203 \306\x10\202
\307\310!\210m\203\x16\311\312\306\"\210\313\314!\203!\311\315\306\"\210\316\306w\210i\211\x11\nV\2032\311\315\317\"\210
\nW\203=\311\312\317\"\210\320
\204G\311\312\306\"\210\321\310!\x13\310\224\310\225|\210\310\224b\210\322\f
T\211\x15\"\211\x16\x17c\210\x0e\x17G
GZ\x16\x18\323\x0e\x18!\210\306\x1e\x19\212\x0e\x19\203{\x0e\x19b\210n\203\203\324\202\204\325\326\324`\"\\*\x0e\x1aU\203\227\x0e^[\x0e\x18\\\x16^[\306\207"
[bobp ind1 ind old fmt n nil beginning-of-line 2 throw exit looking-at "[ ]*$"
next " " t org-at-item-p match-string format org-shift-item-indentation 1 0
count-lines new delta pos line col] 5)] 2)
  org-renumber-ordered-list(1)
  org-maybe-renumber-ordered-list()
  org-insert-item()
  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-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-nl-done-regexp ...) (org-todo-line-tags-regexp ...)
(org-looking-at-done-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-planning-or-clock-line-re ...) (org-latex-and-specials-regexp ...)
(org-font-lock-keywords ...) (org-table-may-need-update ...)
(comment-start-skip ...) (fill-paragraph-function ...)
(adaptive-fill-regexp ...) (adaptive-fill-function ...)
(org-target-link-regexp ...) (comment-padding ...)
(outline-isearch-open-invisible-function ...) (org-indent-mode ...)
(org-after-demote-entry-hook ...) ...) (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-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-nl-done-regexp ...) (org-todo-line-tags-regexp ...)
(org-looking-at-done-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-planning-or-clock-line-re ...) (org-latex-and-specials-regexp ...)
(org-font-lock-keywords ...) (org-table-may-need-update ...)
(comment-start-skip ...) (fill-paragraph-function ...)
(adaptive-fill-regexp ...) (adaptive-fill-function ...)
(org-target-link-regexp ...) (comment-padding ...)
(outline-isearch-open-invisible-function ...) (org-indent-mode ...)
(org-after-demote-entry-hook ...) ...) (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 Thu, Oct 18, 2012 at 12:52 PM, Peter Salazar <cycleofsong@gmail.com>wrote:

> I'm using Aquamacs in markdown-mode with orgstruct-mode turned on.
>
> When I start a numbered list:
>
> 1. foo
>
> ...at the end of that line, I want to automatically generate the next
> number on the list, so I hit OPTION-RETURN
>
> but instead of generating a "2. " on the next line, I get this error:
>
> Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
>   byte-code(" \203
>
> This used to work fine in markdown-mode with orgstruct-mode turned on...
>
> Backtrace:
>
> Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
>   byte-code(" \203
>

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

Re: error in orgstruct-mode

[Nick Dokos]

Peter Salazar <cycleofsong@gmail.com> wrote:

> Oops. Here's the full backtrace. Anyone have any thoughts? Help!
> 

>   org-maybe-renumber-ordered-list()
>   org-insert-item()
>   org-insert-heading(nil)
>   call-interactively(org-insert-heading)

Well, org-maybe-renumber-ordered-list was removed by this commit:

,----
| commit 15928db323904fe8c892d7289a0cdda89cde8694
| Author: Nicolas Goaziou <n.goaziou@gmail.com>
| Date:   Mon Aug 30 13:55:44 2010 +0200
| 
|     Implement new list definition
| 
|     ...    
|     * org-list.el (org-maybe-renumber-ordered-list): function removed.
`----

so maybe it's time to upgrade.

Nick

Re: error in orgstruct-mode

[Peter Salazar]

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

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?



On Fri, Oct 19, 2012 at 6:54 PM, Nick Dokos <nicholas.dokos@hp.com> wrote:

> Peter Salazar <cycleofsong@gmail.com> wrote:
>
> > Oops. Here's the full backtrace. Anyone have any thoughts? Help!
> >
>
> >   org-maybe-renumber-ordered-list()
> >   org-insert-item()
> >   org-insert-heading(nil)
> >   call-interactively(org-insert-heading)
>
> Well, org-maybe-renumber-ordered-list was removed by this commit:
>
> ,----
> | commit 15928db323904fe8c892d7289a0cdda89cde8694
> | Author: Nicolas Goaziou <n.goaziou@gmail.com>
> | Date:   Mon Aug 30 13:55:44 2010 +0200
> |
> |     Implement new list definition
> |
> |     ...
> |     * org-list.el (org-maybe-renumber-ordered-list): function removed.
> `----
>
> so maybe it's time to upgrade.
>
> Nick
>

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

Re: error in orgstruct-mode

[Nick Dokos]

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

Re: error in orgstruct-mode

[Peter Salazar]

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

Re: error in orgstruct-mode

[Nick Dokos]

Peter Salazar <cycleofsong@gmail.com> wrote:

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

It does that for me too if I leave the item empty, but if I say

1. foo

and press META-RET it generates the 2. line and goes to it.

> In markdown-mode with orgstruct-mode on, I get the following error:
> 

I don't have markdown mode, but in fundamental mode, turning on
orgstruct-mode and adding a numbered list behaves properly for me.
Can you try that? Is markdown mode a necessary prerequisite for the
bug to occur? If so, where does one get markdown mode?

I looked at the code a bit, but it's not obvious to me what's wrong.
The relevant code (in org-list.el:org-list-struct-apply-struct) is

,----
|       ;; 3. Shift each slice in buffer, provided delta isn't 0, from
|       ;;    end to beginning.  Take a special action when beginning is
|       ;;    at item bullet.
|       (mapc (lambda (e)
| 	      (unless (zerop (nth 2 e)) (apply shift-body-ind e))
| 	      (let* ((beg (nth 1 e))
| 		     (cell (assq beg struct)))
| 		(unless (or (not cell) (equal cell (assq beg old-struct)))
| 		  (funcall modify-item beg))))
| 	    sliced-struct))
`----

in the (funcall modify-item beg) line. The modify-item function does

,----
|	       (looking-at org-list-full-item-re)
| 	       ;; a.  Replace bullet
| 	       (unless (equal old-bul new-bul)
| 		 (replace-match new-bul nil nil nil 1))
`----

which is where it blows up. It uses match data from the previous search,
the call to looking-at, but what happens if looking-at returned nil?
Does it set the match data or is it then the case that the replace-match
is trying to use match data from some previous unrelated search?

Nick

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