mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-24 03:19:16 +00:00
Code Releases Activity

Checkboxes do not change indentation in lists

Browse source 
* org.el (org-indent-line-function): Indentation of item's body starts
  just after the bullet, not after a checkbox. Moreover, As
  `org-in-item-p' also returns item beginning position when point is
  in a list, do not compute it a second time.
This commit is contained in:
Nicolas Goaziou 2010-12-29 01:42:34 +01:00
parent e223357743
commit c12ce921d7
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/org.el
View file

@ -18817,9 +18817,9 @@ If point is in an inline task, mark that task instead."
(org-get-indentation)
(org-get-indentation (match-string 0)))))
;; Lists
((org-in-item-p)
(org-beginning-of-item)
(looking-at "[ \t]*\\(\\S-+\\)[ \t]*\\(\\(:?\\[@\\(:?start:\\)?[0-9]+\\][ \t]*\\)?\\[[- X]\\][ \t]*\\|.*? :: \\)?")
((let ((in-item-p (org-in-item-p)))
(and in-item-p (goto-char in-item-p)))
(or (org-at-item-description-p) (org-at-item-p))
(setq bpos (match-beginning 1) tpos (match-end 0)
bcol (progn (goto-char bpos) (current-column))
tcol (progn (goto-char tpos) (current-column)))
@ -18840,7 +18840,11 @@ If point is in an inline task, mark that task instead."
(and (looking-at "[ \t]*#\\+end_")
(re-search-backward "[ \t]*#\\+begin_"nil t))
(looking-at "[ \t]*[\n:#|]")
(and (org-in-item-p) (goto-char (org-list-top-point)))
(let ((itemp (org-in-item-p)))
(and itemp
(goto-char itemp)
(goto-char
(org-list-get-top-point (org-list-struct)))))
(and (not inline-task-p)
(featurep 'org-inlinetask)
(org-inlinetask-in-task-p)