branch: externals/cursory
commit 81b91d8bd8711ed2635ef59fbc096f474e5f0ed5
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Rename a helper function for clarity
---
cursory.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/cursory.el b/cursory.el
index bb8dcd24af..e4bcc1e36c 100644
--- a/cursory.el
+++ b/cursory.el
@@ -279,12 +279,13 @@ Saving is done by the `cursory-store-latest-preset'
function."
"Minibuffer history of `cursory--set-cursor-prompt'.")
(defun cursory--get-presets ()
+(defun cursory--get-preset-symbols ()
"Return the `car' of each named entry in `cursory-presets'."
(delq t (mapcar #'car cursory-presets)))
(defun cursory--preset-p (preset)
"Return non-nil if PRESET is one of the named `cursory-presets'."
- (if-let* ((presets (cursory--get-presets)))
+ (if-let* ((presets (cursory--get-preset-symbols)))
(memq preset presets)
(error "There are no named presets in `cursory-presets'")))
