Browse Source

`org-maybe-renumber-ordered-list' do not call `org-fix-bullet-type'.

* org-list.el (org-maybe-renumber-ordered-list): Removed call for
  `org-fix-bullet-type' to prevent infinite loop, and some checks
  already done in `org-renumber-ordered-list'.
* org-list.el (org-fix-bullet-type): Remove a check and call directly
  `org-maybe-renumber-ordered-list'
Nicolas Goaziou 15 years ago
parent
commit
aed0cb3b9e
1 changed files with 3 additions and 7 deletions
  1. 3 7
      lisp/org-list.el

+ 3 - 7
lisp/org-list.el

@@ -926,8 +926,7 @@ Also, fix the indentation."
 		 ;; sublist accordingly
 		 (org-shift-item-indentation (- (length bullet) (length old))))))))
      (org-apply-on-list replace-bullet nil bullet)
-     ;; Fix item numbers if necessary
-     (when (string-match "[0-9]" bullet) (org-renumber-ordered-list)))))
+     (org-maybe-renumber-ordered-list))))
 
 (defun org-renumber-ordered-list (&optional arg)
   "Renumber an ordered plain list.
@@ -969,11 +968,8 @@ with something like \"1.\" or \"2)\". Start to count at ARG or 1."
 This tests the user option `org-auto-renumber-ordered-lists' before
 doing the renumbering."
   (interactive)
-  (when (and org-auto-renumber-ordered-lists
-	     (org-at-item-p))
-    (if (match-beginning 3)
-	(org-renumber-ordered-list 1)
-      (org-fix-bullet-type))))
+  (when org-auto-renumber-ordered-lists
+    (org-renumber-ordered-list)))
 
 (defun org-maybe-renumber-ordered-list-safe ()
   (ignore-errors