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

Refactoring.

Browse source
This commit is contained in:
Nicolas Goaziou 2010-07-20 12:01:10 +02:00
parent eebd8eb022
commit 3a084384f4
1 changed files with 7 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/org-list.el
View file

@ -989,26 +989,19 @@ is an integer, 0 means `-', 1 means `+' etc."
((string-match "\\." bullet) "1.")
((string-match ")" bullet) "1)")
(t bullet)))
;; Description items cannot be numbered
(bullet-list (if (org-at-description-p)
'("-" "+" "*")
'("-" "+" "*" "1." "1)")))
;; *-bullets are not allowed at column 0
(bullet-list (if (looking-at "\\S-")
(remove "*" bullet-list)
bullet-list))
(bullet-list (append '("-" "+" )
;; *-bullets are not allowed at column 0
(unless (looking-at "\\S-") '("*"))
;; Description items cannot be numbered
(unless (org-at-description-p) '("1." "1)"))))
(item-pos (member current bullet-list))
(new (cond
((and (numberp which)
(nth (mod which (length bullet-list)) bullet-list)))
((member which bullet-list) which)
((and item-pos (cdr item-pos)) (cadr item-pos))
(t "-")))
(old (and (looking-at "\\([ \t]*\\)\\(\\S-+\\)")
(match-string 2))))
(replace-match (concat "\\1" new))
(org-shift-item-indentation (- (length new) (length old)))
(org-fix-bullet-type))))
(t "-"))))
(org-fix-bullet-type new))))
;;; Checkboxes