mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-22 19:47:07 +00:00
Code

Newline-and-indent respects list structure

Browse Source 
* lisp/org.el (org-return): when called from inside an item with the
  indent flag, function should keep text moved inside the item. This
  allows to use C-j to separate lines in an item: cursor won't go back
  to column 0.
This commit is contained in:
Nicolas Goaziou 2011-01-23 12:06:32 +01:00
parent dcf23c416f
commit 89c066a10c
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org.el
View File

@ -17490,6 +17490,18 @@ See the individual commands for more information."
((org-at-table-p)
(org-table-justify-field-maybe)
(call-interactively 'org-table-next-row))
;; when `newline-and-indent' is called within a list, make sure
;; text moved stays inside the item.
((and (org-in-item-p) indent)
(if (and (org-at-item-p) (>= (point) (match-end 0)))
(progn
(newline)
(org-indent-line-to (length (match-string 0))))
(let ((ind (org-get-indentation)))
(newline)
(if (org-looking-back org-list-end-re)
(org-indent-line-function)
(org-indent-line-to ind)))))
((and org-return-follows-link
(eq (get-text-property (point) 'face) 'org-link))
(call-interactively 'org-open-at-point))