mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-22 09:48:28 +00:00
Code Releases Activity

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

Browse source 
* 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'
This commit is contained in:
Nicolas Goaziou 2010-07-21 11:40:06 +02:00
parent 4c9eb76846
commit aed0cb3b9e
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/org-list.el
View file

@ -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