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

Bug fix. First bullet of *-list would not become "-" when hitting column 0.

Browse source
This commit is contained in:
Nicolas Goaziou 2010-07-27 10:09:00 +02:00
parent 3a91400baa
commit cbc337f285
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/org-list.el
View file

@ -853,7 +853,8 @@ children. Return t if sucessful."
;; 1. If at top-point move the whole list. Moreover, if
;; *-list is going to column 0, change bullet to "-".
((= (point-at-bol) (org-list-top-point))
(when (and (= (+ delta ind) 0) (equal bullet "*")) (org-fix-bullet-type "-"))
(when (and (= (+ delta ind) 0) (equal bullet "*"))
(org-fix-bullet-type (setq bullet "-")))
(setq end (set-marker org-last-indent-end-marker (org-list-bottom-point))))
;; 2. Do not indent before top-item.
((< (+ delta ind) origin-ind)
@ -871,7 +872,8 @@ children. Return t if sucessful."
(goto-char pos)
(error "Cannot outdent an item having children")))))
;; Replace bullet of current item with the bullet it is going to
;; have if we're outdenting.
;; have if we're outdenting. This is needed to prevent indentation
;; problems of subtrees when outdenting changes bullet size.
(when (< delta 0)
(let ((new-bul (concat
(or bul-up bullet) " "