diff options
| author | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-07-27 10:09:00 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-09-01 19:05:50 +0200 |
| commit | cbc337f28515ee0bc27584a818a48f5284af8293 (patch) | |
| tree | c93915210d009003610012b480c3f8e93de8ef72 | |
| parent | 3a91400baac11e43a32b13463b593a638e7dc807 (diff) | |
| download | org-mode-cbc337f28515ee0bc27584a818a48f5284af8293.tar.gz | |
Bug fix. First bullet of *-list would not become "-" when hitting column 0.
| -rw-r--r-- | lisp/org-list.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el index 53750b2..3d8f92d 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -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) " " |