From 3de19f7c9195bf798fb48047c317a691324a4604 Mon Sep 17 00:00:00 2001 From: Bastien Date: Sun, 9 Feb 2020 00:15:30 +0100 Subject: [PATCH] org.el: Minor refactoring * lisp/org.el (org-indent-line): Minor refactoring. --- lisp/org.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index e477b7d65..d2c2691cc 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -18568,9 +18568,7 @@ list structure. Instead, use \\`\\[org-shiftmetaleft]' or \ Also align node properties according to `org-property-format'." (interactive) - (cond - ((org-at-heading-p) 'noindent) - (t + (if (org-at-heading-p) 'noindent (let* ((element (save-excursion (beginning-of-line) (org-element-at-point))) (type (org-element-type element))) (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) (let ((column (current-column))) (org--align-node-property) - (org-move-to-column column))))))))) + (org-move-to-column column)))))))) (defun org-indent-region (start end) "Indent each non-blank line in the region.