[elpa] externals/org 1c7c67b3c6 076/101: org-indent-drawer, org-indent-block: Remove unnecessary checks

[ELPA Syncer]

branch: externals/org
commit 1c7c67b3c6e6fd77a1bd2db634205183479295ed
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-indent-drawer, org-indent-block: Remove unnecessary checks
    
    * lisp/org.el:
    (org-indent-block):
    (org-indent-drawer): Do not try to check drawer/block twice.
---
 lisp/org.el | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 8346014623..5854154a7b 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -19179,11 +19179,7 @@ assumed to be significant there."
 (defun org-indent-drawer ()
   "Indent the drawer at point."
   (interactive)
-  (unless (save-excursion
-           (beginning-of-line)
-           (looking-at-p org-drawer-regexp))
-    (user-error "Not at a drawer"))
-  (let ((element (org-element-at-point-no-context)))
+  (let ((element (org-element-at-point)))
     (unless (org-element-type-p element '(drawer property-drawer))
       (user-error "Not at a drawer"))
     (org-with-wide-buffer
@@ -19194,12 +19190,7 @@ assumed to be significant there."
 (defun org-indent-block ()
   "Indent the block at point."
   (interactive)
-  (unless (save-excursion
-           (beginning-of-line)
-           (let ((case-fold-search t))
-             (looking-at-p "[ \t]*#\\+\\(begin\\|end\\)_")))
-    (user-error "Not at a block"))
-  (let ((element (org-element-at-point-no-context)))
+  (let ((element (org-element-at-point)))
     (unless (org-element-type-p
              element
             '(comment-block center-block dynamic-block example-block