mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-22 10:18:32 +00:00
Refactoring.
This commit is contained in:
parent
a42f8066d4
commit
8241e9b652
|
@ -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))))
|
||||
|
|
Loading…
Reference in a new issue