소스 검색

Minor fix.

Nicolas Goaziou 14 년 전
부모
커밋
595ce4e7f8
1개의 변경된 파일1개의 추가작업 그리고 3개의 파일을 삭제
  1. 1 3
      lisp/org-list.el

+ 1 - 3
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)))))