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

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

[elpa] externals/consult 63391fb2d7: Use hashed symbols


From: ELPA Syncer
Subject: [elpa] externals/consult 63391fb2d7: Use hashed symbols
Date: Sat, 2 Dec 2023 06:57:40 -0500 (EST)

branch: externals/consult
commit 63391fb2d7fbad61ba7a44acbae4da6669c89f31
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Use hashed symbols
---
 consult.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/consult.el b/consult.el
index 0f4a0b3264..f8d3adf745 100644
--- a/consult.el
+++ b/consult.el
@@ -89,8 +89,8 @@ The function takes one boolean argument MAY-PROMPT.  If
 MAY-PROMPT is non-nil, the function may ask the prompt the user
 for a project directory.  The root directory is used by
 `consult-buffer' and `consult-grep'."
-  :type '(choice
-          (const :tag "Default project function" 
consult--default-project-function)
+  :type `(choice
+          (const :tag "Default project function" 
,#'consult--default-project-function)
           (function :tag "Custom function")
           (const :tag "No project integration" nil)))
 
@@ -132,10 +132,10 @@ This applies to asynchronous commands, e.g., 
`consult-grep'."
                  (const :tag "Perl" perl)))
 
 (defcustom consult-async-split-styles-alist
-  '((nil :function consult--split-nil)
-    (comma :separator ?, :function consult--split-separator)
-    (semicolon :separator ?\; :function consult--split-separator)
-    (perl :initial "#" :function consult--split-perl))
+  `((nil :function ,#'consult--split-nil)
+    (comma :separator ?, :function ,#'consult--split-separator)
+    (semicolon :separator ?\; :function ,#'consult--split-separator)
+    (perl :initial "#" :function ,#'consult--split-perl))
   "Async splitting styles."
   :type '(alist :key-type symbol :value-type plist))
 



reply via email to

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