Re: [O] Orgalist notes

[Gregor Zattler]

Hi Nicolas,
* Nicolas Goaziou <address@hidden> [2018-05-06; 13:32]:
> Gregor Zattler <address@hidden> writes:
>
>> With org-mode in the load-path, the line breaks happen for all
>> lines not only the first one.  But one has to (require 'org) in
>> order for M-RET to work.  This is no problem for me, since I work
>> with org-mode all the time, but is this intended?
>
> No, it is not intended. Orgalist 1.6 (to be released tomorrow) will
> require Org right from the start.

This works now with bullet and numbered lists when called in a
non-configured emacs session.  Thanks.


>> In my highly customized emacs I get line breaks but M-RET gives
>>
>> 1. jesdgf oigjovgjis uh urh udrhfesgh ourhes ouh ouhroe uhos ho
>>    hg uirehui shgourheoug hhsou hogush oguhuishughsoieghoudrhes
>>    uhguhdsh ghourhg
>>
>> orgalist-insert-item: Wrong type argument: integer-or-marker-p, nil
[...]
>> Could you give me a hint on how to debug this?
>
> Please use M-x toggle-debug-on-error and report the backtrace here.
> Loading an un-compiled Orgalist is better.

1. rzhe juhgdhjvhj vghfjs y rvgfhjxd bvjxdbv mh vxnbxgbfvghg drgh
   djhxcjhbnjdfjhvgjhf jhfhjghfj hfjM-RET


gives:

Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
  org-list-insert-item(1504 ((1397 0 "1. " nil nil nil 1505)) ((1397)) nil nil)
  (setq struct (org-list-insert-item (point) struct prevs checkbox desc))
  (let* ((struct (save-excursion (goto-char item\?) (orgalist--struct))) (prevs 
(org-list-prevs-alist struct)) (desc (and (eq 'descriptive 
(org-list-get-list-type item\? struct prevs)) " :: "))) (setq struct 
(org-list-insert-item (point) struct prevs checkbox desc)) 
(org-list-write-struct struct (org-list-parents-alist struct)) (looking-at 
orgalist--item-re) (goto-char (if (and (match-beginning 4) (let 
((save-match-data-internal (match-data))) (unwind-protect (progn (string-match 
"\\." (match-string 1))) (set-match-data save-match-data-internal 
'evaporate)))) (match-beginning 4) (match-end 0))) (if desc (progn 
(backward-char 1))))
  (let ((item\? (orgalist--in-item-p))) (if item\? nil (user-error "Not in a 
list")) (let* ((struct (save-excursion (goto-char item\?) (orgalist--struct))) 
(prevs (org-list-prevs-alist struct)) (desc (and (eq 'descriptive 
(org-list-get-list-type item\? struct prevs)) " :: "))) (setq struct 
(org-list-insert-item (point) struct prevs checkbox desc)) 
(org-list-write-struct struct (org-list-parents-alist struct)) (looking-at 
orgalist--item-re) (goto-char (if (and (match-beginning 4) (let 
((save-match-data-internal (match-data))) (unwind-protect (progn (string-match 
"\\." (match-string 1))) (set-match-data save-match-data-internal 
'evaporate)))) (match-beginning 4) (match-end 0))) (if desc (progn 
(backward-char 1)))))
  orgalist-insert-item(nil)
  funcall-interactively(orgalist-insert-item nil)
  call-interactively(orgalist-insert-item nil nil)
  command-execute(orgalist-insert-item)


I have no clue how to read this.


Thanks for looking into this, Gregor