From 8241e9b652404cadaba82780ea8dd94d329fd7e5 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 20 Jul 2010 01:20:56 +0200 Subject: [PATCH] Refactoring. --- lisp/org-list.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/lisp/org-list.el b/lisp/org-list.el index 614d2741b..6e74e1304 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))))