mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:36:26 +00:00
org.el: Minor refactoring
* lisp/org.el (org-indent-line): Minor refactoring.
This commit is contained in:
parent
08815085fe
commit
3de19f7c91
|
@ -18568,9 +18568,7 @@ list structure. Instead, use \\<org-mode-map>`\\[org-shiftmetaleft]' or \
|
||||||
|
|
||||||
Also align node properties according to `org-property-format'."
|
Also align node properties according to `org-property-format'."
|
||||||
(interactive)
|
(interactive)
|
||||||
(cond
|
(if (org-at-heading-p) 'noindent
|
||||||
((org-at-heading-p) 'noindent)
|
|
||||||
(t
|
|
||||||
(let* ((element (save-excursion (beginning-of-line) (org-element-at-point)))
|
(let* ((element (save-excursion (beginning-of-line) (org-element-at-point)))
|
||||||
(type (org-element-type element)))
|
(type (org-element-type element)))
|
||||||
(cond ((and (memq type '(plain-list item))
|
(cond ((and (memq type '(plain-list item))
|
||||||
|
@ -18604,7 +18602,7 @@ Also align node properties according to `org-property-format'."
|
||||||
(when (eq type 'node-property)
|
(when (eq type 'node-property)
|
||||||
(let ((column (current-column)))
|
(let ((column (current-column)))
|
||||||
(org--align-node-property)
|
(org--align-node-property)
|
||||||
(org-move-to-column column)))))))))
|
(org-move-to-column column))))))))
|
||||||
|
|
||||||
(defun org-indent-region (start end)
|
(defun org-indent-region (start end)
|
||||||
"Indent each non-blank line in the region.
|
"Indent each non-blank line in the region.
|
||||||
|
|
Loading…
Reference in a new issue