mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
Code

org-list: forgot a default case in org-list-struct

Browse Source
This commit is contained in:
Nicolas Goaziou 2011-01-26 13:25:37 +01:00
parent 7ce76a7acc
commit 349196def4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org-list.el
View File

@ -792,7 +792,8 @@ Assume point is at an item."
(push (cons 0 (funcall end-before-blank)) end-lst-2)))
((<= ind (nth 1 (car itm-lst-2)))
(push (cons ind (point)) end-lst-2)
(forward-line 1))))))
(forward-line 1))
(t (forward-line 1))))))
(setq struct (append itm-lst (cdr (nreverse itm-lst-2))))
(setq end-lst (append end-lst (cdr (nreverse end-lst-2))))
;; 3. Correct ill-formed lists by ensuring top item is the least