mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org: Enable join of multiple lines 

* lisp/org.el (org-delete-indentation): Call delete-indentation via
the call-interactive wrapper to take into account a possibly selected
region.
This commit is contained in:
Marco Wahl 2020-06-17 12:58:34 +02:00
parent e3a7247b68
commit 945f495b94
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org.el
View File

@ -17665,7 +17665,9 @@ Move point to the beginning of first heading or end of buffer."
If previous line is a headline add to headline title. Otherwise
the function calls `delete-indentation'.
With a non-nil optional argument, join it to the following one."
I.e. with a non-nil optional argument, join the line with the
following one. If there is a region then join the lines in that
region."
(interactive "*P")
(if (save-excursion
(beginning-of-line (if arg 1 0))
@ -17690,7 +17692,8 @@ With a non-nil optional argument, join it to the following one."
((not tags-column)) ;no tags
(org-auto-align-tags (org-align-tags))
(t (org--align-tags-here tags-column)))) ;preserve tags column
(delete-indentation arg)))
(let ((current-prefix-arg arg))
(call-interactively #'delete-indentation))))
(defun org-open-line (n)
"Insert a new row in tables, call `open-line' elsewhere.