tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Moving top list item will move whole list only if moving by subtree.

Browse source 
* org-list.el (org-list-automatic-rules): doc-string reflects this
  change.
* org-list.el (org-indent-item-tree): prevent whole list from being
  moved when user is not moving subtree. Thus,
  `org-cycle-item-indentation' will not allow to move the list.
This commit is contained in:
Nicolas Goaziou 2010-07-29 14:25:05 +02:00
parent ee568516e8
commit 5903c08447
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/org-list.el
View file

@ -185,10 +185,11 @@ checkbox when non-nil, checkbox statistics is updated each time
you either insert a new checkbox or toggle a checkbox. you either insert a new checkbox or toggle a checkbox.
It also prevents from inserting a checkbox in a It also prevents from inserting a checkbox in a
description item. description item.
indent when non-nil indenting or outdenting list top-item will indent when non-nil indenting or outdenting list top-item with
move the whole list, indenting the first item of a its subtree will move the whole list, all moves that
sub-list will be forbidden and outdenting a list whose would break list will be forbidden, and outdenting a
bullet is * to column 0 will change that bullet to -. list whose bullet is * to column 0 will change that
bullet to -.
insert when non-nil, trying to insert an item inside a block insert when non-nil, trying to insert an item inside a block
will insert it right before the block instead of will insert it right before the block instead of
throwing an error. throwing an error.
@ -844,7 +845,8 @@ children. Return t if sucessful."
(cond (cond
;; 1. If at top-point move the whole list. Moreover, if ;; 1. If at top-point move the whole list. Moreover, if
;; *-list is going to column 0, change bullet to "-". ;; *-list is going to column 0, change bullet to "-".
((= (point-at-bol) (org-list-top-point)) ((and (= (point-at-bol) (org-list-top-point))
(not no-subtree))
(when (and (= (+ delta ind) 0) (equal bullet "*")) (when (and (= (+ delta ind) 0) (equal bullet "*"))
(org-fix-bullet-type (setq bullet "-"))) (org-fix-bullet-type (setq bullet "-")))
(setq end (set-marker org-last-indent-end-marker (org-list-bottom-point)))) (setq end (set-marker org-last-indent-end-marker (org-list-bottom-point))))