diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-08-23 11:53:08 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-09-01 19:05:55 +0200 |
commit | 595ce4e7f86f3b0635a1a78870c76417cec74319 (patch) | |
tree | 83ea4ed1b064460e4f3474b9cef9eae53ce21611 | |
parent | 5de49d203273b0923925bf445bbaba8ae87450d2 (diff) | |
download | org-mode-595ce4e7f86f3b0635a1a78870c76417cec74319.tar.gz |
Minor fix.
-rw-r--r-- | lisp/org-list.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el index 9543680..99b2d99 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -1995,13 +1995,11 @@ sublevels as a list of strings." (interactive) (if (not (org-in-item-p)) (error "Not in a list") - (goto-char (org-list-top-point)) (let ((list (org-list-parse-list t)) nstars) (save-excursion (if (ignore-errors (org-back-to-heading)) - (progn (org-search-forward-unenclosed - org-complex-heading-regexp nil t) + (progn (looking-at org-complex-heading-regexp) (setq nstars (length (match-string 1)))) (setq nstars 0))) (org-list-make-subtrees list (1+ nstars))))) |