emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/org-superstar 03be6c0a30 162/162: Remove now redundant cal


From: Stefan Kangas
Subject: [nongnu] elpa/org-superstar 03be6c0a30 162/162: Remove now redundant call to org-element-lineage, version bump.
Date: Fri, 31 Dec 2021 19:35:40 -0500 (EST)

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

    Remove now redundant call to org-element-lineage, version bump.
    
    Since SRC blocks are the only case (I'm aware of) where Org syntax
    fundamentally changes it is clearer to use org-in-src-block-p anyway.
    
    See PR #34 for context.
---
 org-superstar.el | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/org-superstar.el b/org-superstar.el
index 337621fd0f..fe0f8a70a2 100644
--- a/org-superstar.el
+++ b/org-superstar.el
@@ -5,7 +5,7 @@
 ;; Author: D. Williams <d.williams@posteo.net>
 ;; Maintainer: D. Williams <d.williams@posteo.net>
 ;; Keywords: faces, outlines
-;; Version: 1.5.0
+;; Version: 1.5.1
 ;; Homepage: https://github.com/integral-dw/org-superstar-mode
 ;; Package-Requires: ((org "9.1.9") (emacs "26.1"))
 
@@ -626,21 +626,17 @@ replaced by their corresponding entry in 
‘org-superstar-item-bullet-alist’."
 
 
 ;;; Predicates
-;; ‘org-list-in-valid-context-p’ is currently not working.
 
-;; Explicitly returning t is redundant, but does not leak information
-;; about how the predicate is implemented.
+;; ‘org-list-in-valid-context-p’ is currently not working.
 (defun org-superstar-plain-list-p ()
-  "Return t if the current match is a proper plain list.
+  "Return non-nil if the current match is a proper plain list.
 
 This function may be expensive for files with very large plain
 lists; consider using ‘org-superstar-toggle-lightweight-lists’ in
 such cases to avoid slowdown."
   (or org-superstar-lightweight-lists
       (save-match-data
-        (and (not (org-in-src-block-p))
-            (org-element-lineage (org-element-at-point)
-                                 '(plain-list) t)))))
+        (not (org-in-src-block-p)))))
 
 (defun org-superstar-headline-or-inlinetask-p ()
   "Return t if the current match is a proper headline or inlinetask."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]