diff options
| author | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-07-20 01:20:56 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-09-01 19:05:48 +0200 |
| commit | 8241e9b652404cadaba82780ea8dd94d329fd7e5 (patch) | |
| tree | df1e0133c370e38a23091c1ae33edc2d817c9b35 | |
| parent | a42f8066d4ebdbb48713df7b8ad21c8a6f4669ee (diff) | |
| download | org-mode-8241e9b652404cadaba82780ea8dd94d329fd7e5.tar.gz | |
Refactoring.
| -rw-r--r-- | lisp/org-list.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el index 614d274..6e74e13 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -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)))) |