diff options
author | Bastien <bzg@gnu.org> | 2020-02-09 00:15:30 +0100 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2020-02-09 00:15:30 +0100 |
commit | 3de19f7c9195bf798fb48047c317a691324a4604 (patch) | |
tree | 61b6e84bb5fb8b139b6f3bfb70412a155e2ca562 | |
parent | 08815085fe98979fcda800bde9da2d1d8b468bcd (diff) | |
download | org-mode-3de19f7c9195bf798fb48047c317a691324a4604.tar.gz |
org.el: Minor refactoring
* lisp/org.el (org-indent-line): Minor refactoring.
-rw-r--r-- | lisp/org.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/org.el b/lisp/org.el index e477b7d..d2c2691 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -18568,9 +18568,7 @@ list structure. Instead, use \\<org-mode-map>`\\[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. |