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

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

[elpa] externals/orderless e0ce965047 3/6: Use hashed symbols everywhere


From: ELPA Syncer
Subject: [elpa] externals/orderless e0ce965047 3/6: Use hashed symbols everywhere for consistency
Date: Fri, 10 Nov 2023 12:58:13 -0500 (EST)

branch: externals/orderless
commit e0ce965047acda61a2c63e3dc4391849b5051d57
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Use hashed symbols everywhere for consistency
---
 orderless.el | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/orderless.el b/orderless.el
index d2db61790a..e914a6b8a1 100644
--- a/orderless.el
+++ b/orderless.el
@@ -93,11 +93,11 @@
   "Component separators for orderless completion.
 This can either be a string, which is passed to `split-string',
 or a function of a single string argument."
-  :type '(choice (const :tag "Spaces" " +")
+  :type `(choice (const :tag "Spaces" " +")
                  (const :tag "Spaces, hyphen or slash" " +\\|[-/]")
                  (const :tag "Escapable space"
-                        orderless-escapable-split-on-space)
-                 (const :tag "Quotable spaces" split-string-and-unquote)
+                        ,#'orderless-escapable-split-on-space)
+                 (const :tag "Quotable spaces" ,#'split-string-and-unquote)
                  (regexp :tag "Custom regexp")
                  (function :tag "Custom function")))
 
@@ -110,7 +110,7 @@ or a function of a single string argument."
   :type '(vector face))
 
 (defcustom orderless-matching-styles
-  '(orderless-literal orderless-regexp)
+  (list #'orderless-literal #'orderless-regexp)
   "List of component matching styles.
 If this variable is nil, regexp matching is assumed.
 
@@ -121,11 +121,11 @@ highlighted, otherwise just the captured groups are.  
Several are
 provided with this package: try customizing this variable to see
 a list of them."
   :type 'hook
-  :options '(orderless-regexp
-             orderless-literal
-             orderless-initialism
-             orderless-prefixes
-             orderless-flex))
+  :options (list #'orderless-regexp
+                 #'orderless-literal
+                 #'orderless-initialism
+                 #'orderless-prefixes
+                 #'orderless-flex))
 
 (defcustom orderless-affix-dispatch-alist
   `((?% . ,#'char-fold-to-regexp)
@@ -139,16 +139,16 @@ determine how to match a pattern component: if the 
component
 either starts or ends with a character used as a key in this
 alist, the character is removed from the component and the rest is
 matched according the style associated to it."
-  :type '(alist
+  :type `(alist
           :key-type character
           :value-type (choice
-                       (const :tag "Literal" orderless-literal)
-                       (const :tag "Regexp" orderless-regexp)
-                       (const :tag "Without" orderless-without-literal)
-                       (const :tag "Flex" orderless-flex)
-                       (const :tag "Initialism" orderless-initialism)
-                       (const :tag "Prefixes" orderless-prefixes)
-                       (const :tag "Ignore diacritics" char-fold-to-regexp)
+                       (const :tag "Literal" ,#'orderless-literal)
+                       (const :tag "Regexp" ,#'orderless-regexp)
+                       (const :tag "Without" ,#'orderless-without-literal)
+                       (const :tag "Flex" ,#'orderless-flex)
+                       (const :tag "Initialism" ,#'orderless-initialism)
+                       (const :tag "Prefixes" ,#'orderless-prefixes)
+                       (const :tag "Ignore diacritics" ,#'char-fold-to-regexp)
                        (function :tag "Custom matching style"))))
 
 (defun orderless-affix-dispatch (component _index _total)
@@ -173,7 +173,7 @@ style associated to the character."
                                  orderless-affix-dispatch-alist)))
       (cons style (substring component 0 -1))))))
 
-(defcustom orderless-style-dispatchers '(orderless-affix-dispatch)
+(defcustom orderless-style-dispatchers (list #'orderless-affix-dispatch)
   "List of style dispatchers.
 Style dispatchers are used to override the matching styles
 based on the actual component and its place in the list of



reply via email to

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