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

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

[elpa] externals/marginalia 88ba686 090/241: remove unnecessary :group s


From: Stefan Monnier
Subject: [elpa] externals/marginalia 88ba686 090/241: remove unnecessary :group specification
Date: Fri, 28 May 2021 20:49:03 -0400 (EDT)

branch: externals/marginalia
commit 88ba6864278cdd01f622c4a6d0f3f000273f704c
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    remove unnecessary :group specification
---
 marginalia.el | 69 ++++++++++++++++++++---------------------------------------
 1 file changed, 23 insertions(+), 46 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 0ceefa9..6686b4b 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -41,90 +41,73 @@
 
 (defface marginalia-key
   '((t :inherit font-lock-keyword-face))
-  "Face used to highlight keys in `marginalia-mode'."
-  :group 'marginalia)
+  "Face used to highlight keys in `marginalia-mode'.")
 
 (defface marginalia-lighter
   '((t :inherit marginalia-size))
-  "Face used to highlight lighters in `marginalia-mode'."
-  :group 'marginalia)
+  "Face used to highlight lighters in `marginalia-mode'.")
 
 (defface marginalia-on
   '((t :inherit success))
-  "Face used to signal enabled modes."
-  :group 'marginalia)
+  "Face used to signal enabled modes.")
 
 (defface marginalia-off
   '((t :inherit error))
-  "Face used to signal disabled modes."
-  :group 'marginalia)
+  "Face used to signal disabled modes.")
 
 (defface marginalia-documentation
   '((t :inherit completions-annotations))
-  "Face used to highlight documentation string in `marginalia-mode'."
-  :group 'marginalia)
+  "Face used to highlight documentation string in `marginalia-mode'.")
 
 (defface marginalia-variable
   '((t :inherit marginalia-key))
-  "Face used to highlight variable values in `marginalia-mode'."
-  :group 'marginalia)
+  "Face used to highlight variable values in `marginalia-mode'.")
 
 (defface marginalia-mode
   '((t :inherit marginalia-key))
-  "Face used to highlight major modes in `marginalia-mode'."
-  :group 'marginalia)
+  "Face used to highlight major modes in `marginalia-mode'.")
 
 (defface marginalia-date
   '((t :inherit marginalia-key))
-  "Face used to highlight dates in `marginalia-mode'."
-  :group 'marginalia)
+  "Face used to highlight dates in `marginalia-mode'.")
 
 (defface marginalia-version
   '((t :inherit marginalia-size))
-  "Face used to highlight package version in `marginalia-mode'."
-  :group 'marginalia)
+  "Face used to highlight package version in `marginalia-mode'.")
 
 (defface marginalia-archive
   '((t :inherit warning))
-  "Face used to highlight package archives in `marginalia-mode'."
-  :group 'marginalia)
+  "Face used to highlight package archives in `marginalia-mode'.")
 
 (defface marginalia-installed
   '((t :inherit success))
-  "Face used to highlight package status in `marginalia-mode'."
-  :group 'marginalia)
+  "Face used to highlight package status in `marginalia-mode'.")
 
 (defface marginalia-size
   '((t :inherit font-lock-constant-face))
-  "Face used to highlight sizes in `marginalia-mode'."
-  :group 'marginalia)
+  "Face used to highlight sizes in `marginalia-mode'.")
 
 (defface marginalia-modified
   '((t :inherit font-lock-negation-char-face))
-  "Face used to highlight modification indicators in `marginalia-mode'."
-  :group 'marginalia)
+  "Face used to highlight modification indicators in `marginalia-mode'.")
 
 (defface marginalia-file-name
   '((t :inherit marginalia-documentation))
-  "Face used to highlight file names in `marginalia-mode'."
-  :group 'marginalia)
+  "Face used to highlight file names in `marginalia-mode'.")
 
 (defface marginalia-file-modes
   '((t :inherit font-lock-string-face))
-  "Face used to highlight file modes in `marginalia-mode'."
-  :group 'marginalia)
+  "Face used to highlight file modes in `marginalia-mode'.")
 
 (defface marginalia-file-owner
   '((t :inherit font-lock-preprocessor-face))
-  "Face used to highlight file owners in `marginalia-mode'."
-  :group 'marginalia)
+  "Face used to highlight file owners in `marginalia-mode'.")
 
 (defcustom marginalia-truncate-width 80
   "Maximum truncation width of annotation fields.
 
 This value is adjusted in the `minibuffer-setup-hook' depending on the 
`window-width'."
-  :type 'integer
-  :group 'marginalia)
+  :type 'integer)
 
 (defcustom marginalia-annotators
   '(marginalia-annotators-light marginalia-annotators-heavy)
@@ -139,8 +122,7 @@ only with the annotations that come with Emacs) without 
disabling
   :type '(repeat (choice (const :tag "Light" marginalia-annotators-light)
                          (const :tag "Heavy" marginalia-annotators-heavy)
                          (const :tag "None" nil)
-                         (symbol :tag "Other")))
-  :group 'marginalia)
+                         (symbol :tag "Other"))))
 
 (defcustom marginalia-annotators-light
   '((command . marginalia-annotate-binding)
@@ -162,8 +144,7 @@ Associates completion categories with annotation functions.
 Each annotation function must return a string,
 which is appended to the completion candidate.
 See also `marginalia-annotators-heavy'."
-  :type '(alist :key-type symbol :value-type function)
-  :group 'marginalia)
+  :type '(alist :key-type symbol :value-type function))
 
 (defcustom marginalia-annotators-heavy
   (append
@@ -178,8 +159,7 @@ Associates completion categories with annotation functions.
 Each annotation function must return a string,
 which is appended to the completion candidate.
 See also `marginalia-annotators-light'."
-  :type '(alist :key-type symbol :value-type function)
-  :group 'marginalia)
+  :type '(alist :key-type symbol :value-type function))
 
 (defcustom marginalia-classifiers
   '(marginalia-classify-by-command-name
@@ -190,8 +170,7 @@ See also `marginalia-annotators-light'."
 Each function should take no arguments and return a symbol
 indicating the category, or nil to indicate it could not
 determine it."
-  :type 'hook
-  :group 'marginalia)
+  :type 'hook)
 
 (defcustom marginalia-prompt-categories
   '(("\\<group\\>" . customize-group)
@@ -205,14 +184,12 @@ determine it."
     ("\\<coding system\\>" . coding-system)
     ("\\<minor mode\\>" . minor-mode))
   "Associates regexps to match against minibuffer prompts with categories."
-  :type '(alist :key-type regexp :value-type symbol)
-  :group 'marginalia)
+  :type '(alist :key-type regexp :value-type symbol))
 
 (defcustom marginalia-command-categories
   '((imenu . imenu))
   "Associate commands with a completion category."
-  :type '(alist :key-type symbol :value-type symbol)
-  :group 'marginalia)
+  :type '(alist :key-type symbol :value-type symbol))
 
 ;;;; Pre-declarations for external packages
 



reply via email to

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