[nongnu] elpa/org-superstar dcb6c56d50 027/162: fixed spurious compose-region for empty regions (level 1 headers)

[Stefan Kangas]

branch: elpa/org-superstar
commit dcb6c56d501eaeb30184c817763097200b2ab7c3
Author: D. Williams <d.williams@posteo.net>
Commit: D. Williams <d.williams@posteo.net>

    fixed spurious compose-region for empty regions (level 1 headers)
---
 org-superstar.el | 40 ++++++++++++++++++++++++----------------
 1 file changed, 24 insertions(+), 16 deletions(-)

diff --git a/org-superstar.el b/org-superstar.el
index 288490add6..8d7769cf4f 100644
--- a/org-superstar.el
+++ b/org-superstar.el
@@ -324,6 +324,13 @@ function for your changes to take effect."
   (setq org-hide-leading-stars t)
   nil)
 
+(defun org-superstar-restart ()
+  "Re-enable ‘\\[org-bullets-mode]’, if the mode is enabled."
+  (interactive)
+  (when org-superstar-mode
+    (org-superstar-mode 0)
+    (org-superstar-mode 1)))
+
 
 ;;; Accessor Functions
 
@@ -424,22 +431,22 @@ block is formatted like the leading asterisks, see
 
 This function uses ‘org-superstar-headline-or-inlinetask-p’ to avoid
 prettifying bullets in (for example) source blocks."
-  (when (org-superstar-headline-or-inlinetask-p)
-    (let* ((level (- (match-end 0) (match-beginning 0) 1))
-           (is-inline-task
-            (and (boundp 'org-inlinetask-min-level)
-                 (>= level org-inlinetask-min-level)))
-           (compose-star (or is-inline-task
-                             (and (not org-hide-leading-stars)
-                                  org-superstar-prettify-leading-stars)))
-           (bullet-char (if is-inline-task
-                            (org-superstar--hbullet level)
-                          (org-superstar-lbullet))))
-      (when compose-star
-        (compose-region (match-beginning 2) (match-end 2)
-                        bullet-char))
-      (cond (is-inline-task 'org-superstar-header-bullet)
-            (org-superstar-prettify-leading-stars 'org-superstar-leading)))))
+  (let ((level (- (match-end 0) (match-beginning 0) 1)))
+    (when (and (> level 1) (org-superstar-headline-or-inlinetask-p))
+      (let* ((is-inline-task
+              (and (boundp 'org-inlinetask-min-level)
+                   (>= level org-inlinetask-min-level)))
+             (compose-star (or is-inline-task
+                               (and (not org-hide-leading-stars)
+                                    org-superstar-prettify-leading-stars)))
+             (bullet-char (if is-inline-task
+                              (org-superstar--hbullet level)
+                            (org-superstar-lbullet))))
+        (when compose-star
+          (compose-region (match-beginning 2) (match-end 2)
+                          bullet-char))
+        (cond (is-inline-task 'org-superstar-header-bullet)
+              (org-superstar-prettify-leading-stars 
'org-superstar-leading))))))
 
 
 (defun org-superstar--prettify-leading-hbullets ()
@@ -525,5 +532,6 @@ routines of ‘\\[org-superstar-mode]’."
     (org-superstar--unprettify-hbullets)
     (org-superstar--fontify-buffer))))
 
+
 (provide 'org-superstar)
 ;;; org-superstar.el ends here