Browse Source

org.el: Minor refactoring

* lisp/org.el (org-indent-line): Minor refactoring.
Bastien 5 years ago
parent
commit
3de19f7c91
1 changed files with 2 additions and 4 deletions
  1. 2 4
      lisp/org.el

+ 2 - 4
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'."
 Also align node properties according to `org-property-format'."
   (interactive)
   (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)))
     (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.