mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-22 10:18:32 +00:00
Code Releases Activity

Refactoring.

Browse source
This commit is contained in:
Nicolas Goaziou 2010-07-20 01:20:56 +02:00
parent a42f8066d4
commit 8241e9b652
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/org-list.el
View file

@ -1350,12 +1350,9 @@ sublevels as a list of strings."
(while (org-search-forward-unenclosed (org-item-re) end t)
(save-excursion
(beginning-of-line)
(cond ((looking-at-p "^[ \t]*[0-9]")
(setq itemsep "[0-9]+\\(?:\\.\\|)\\)"
ltype 'ordered))
((org-at-description-p)
(setq itemsep "[-+*]" ltype 'descriptive))
(t (setq itemsep "[-+*]" ltype 'unordered))))
(setq ltype (cond ((looking-at-p "^[ \t]*[0-9]") 'ordered)
((org-at-description-p) 'descriptive)
(t 'unordered))))
(let* ((indent1 (org-get-indentation))
(nextitem (or (org-get-next-item (point) end) end))
(item (org-trim (buffer-substring (point) (org-end-of-item-text-before-children))))