mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-13 00:40:04 +00:00
Checkboxes do not change indentation in lists
* 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:
parent
e223357743
commit
c12ce921d7
12
lisp/org.el
12
lisp/org.el
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue