From a84d499301a427d9764b5dddb2ab86a161a46986 Mon Sep 17 00:00:00 2001
From: Bozhidar Batsov <bozhidar@batsov.dev>
Date: Sat, 16 Jul 2022 10:54:16 +0300
Subject: [PATCH] Remove redundant :group properties

Those are auto-inferred from the :prefix set in defgroup.
---
 src/top/utop.el | 30 ++++++++++--------------------
 1 file changed, 10 insertions(+), 20 deletions(-)

diff --git a/src/top/utop.el b/src/top/utop.el
index d63302c..85767f5 100644
--- a/src/top/utop.el
+++ b/src/top/utop.el
@@ -71,52 +71,43 @@ with Emacs to provide an enhanced environment."
 
 (defcustom utop-command "utop -emacs"
   "The command to execute for utop."
-  :type 'string
-  :group 'utop)
+  :type 'string)
 
 (defcustom utop-edit-command t
   "Whether to read the command from the minibuffer before running utop.
 
 If nil, `utop-command' will be used without modification."
-  :type 'boolean
-  :group 'utop)
+  :type 'boolean)
 
 (defcustom utop-prompt 'utop-default-prompt
   "The function which create the prompt for utop."
-  :type 'function
-  :group 'utop)
+  :type 'function)
 
 (defcustom utop-mode-hook nil
   "A hook that gets run when `utop-mode' is entered."
-  :type 'hook
-  :group 'utop)
+  :type 'hook)
 
 (defcustom utop-exit-hook nil
   "A hook that is run whenever `utop' is exited.
 This hook is only run if exiting actually kills the buffer."
-  :type 'hook
-  :group 'utop)
+  :type 'hook)
 
 (defcustom utop-load-packages-without-asking nil
   "Load packages from file local variables without asking"
-  :type 'boolean
-  :group 'utop)
+  :type 'boolean)
 
 (defface utop-prompt
   '((((background dark)) (:foreground "Cyan1"))
     (((background light)) (:foreground "blue")))
-  "The face used to highlight the prompt."
-  :group 'utop)
+  "The face used to highlight the prompt.")
 
 (defface utop-stdout
   nil
-  "The face used to highlight messages comming from stdout."
-  :group 'utop)
+  "The face used to highlight messages comming from stdout.")
 
 (defface utop-stderr
   nil
-  "The face used to highlight messages comming from stderr."
-  :group 'utop)
+  "The face used to highlight messages comming from stderr.")
 
 (defface utop-frozen
   '((t (:bold t)))
@@ -124,8 +115,7 @@ This hook is only run if exiting actually kills the buffer."
 
 (defface utop-error
   '((t (:foreground "#ff4040" :bold t :underline t)))
-  "The face used to highlight errors in phrases."
-  :group 'utop)
+  "The face used to highlight errors in phrases.")
 
 ;; +-----------------------------------------------------------------+
 ;; | Constants                                                       |