diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-07-25 11:29:38 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-09-01 19:05:50 +0200 |
commit | 25de94f3cc04026f52e5446230a154ee97a3adbc (patch) | |
tree | 25aab3f9b2e929798150e838e675c131346fb6d9 | |
parent | 1bfe98bdf6490cc9026fb71f853e5727c38dc7d9 (diff) | |
download | org-mode-25de94f3cc04026f52e5446230a154ee97a3adbc.tar.gz |
Take `org-plain-list-ordered-item-terminator' into consideration when cycling bullets.
* org-list.el (org-cycle-list-bullet): Check
`org-plain-list-ordered-item-terminator' before allowing 1. or 1) as
valid bullets when cycling.
-rw-r--r-- | lisp/org-list.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el index bad8cd6..b387023 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -1055,7 +1055,11 @@ is an integer, 0 means `-', 1 means `+' etc. If WHICH is (looking-at "\\S-")) '("*")) ;; Description items cannot be numbered (unless (and bullet-rule-p - (org-at-description-p)) '("1." "1)")))) + (or (eq org-plain-list-ordered-item-terminator ?.) + (org-at-description-p))) '("1)")) + (unless (and bullet-rule-p + (or (eq org-plain-list-ordered-item-terminator ?\)) + (org-at-description-p))) '("1.")))) (len (length bullet-list)) (item-index (- len (length (member current bullet-list)))) (get-value (lambda (index) (nth (mod index len) bullet-list))) |