Remove redundant :group properties
Those are auto-inferred from the :prefix set in defgroup.
This commit is contained in:
parent
2c08182649
commit
a84d499301
|
@ -71,52 +71,43 @@ with Emacs to provide an enhanced environment."
|
||||||
|
|
||||||
(defcustom utop-command "utop -emacs"
|
(defcustom utop-command "utop -emacs"
|
||||||
"The command to execute for utop."
|
"The command to execute for utop."
|
||||||
:type 'string
|
:type 'string)
|
||||||
:group 'utop)
|
|
||||||
|
|
||||||
(defcustom utop-edit-command t
|
(defcustom utop-edit-command t
|
||||||
"Whether to read the command from the minibuffer before running utop.
|
"Whether to read the command from the minibuffer before running utop.
|
||||||
|
|
||||||
If nil, `utop-command' will be used without modification."
|
If nil, `utop-command' will be used without modification."
|
||||||
:type 'boolean
|
:type 'boolean)
|
||||||
:group 'utop)
|
|
||||||
|
|
||||||
(defcustom utop-prompt 'utop-default-prompt
|
(defcustom utop-prompt 'utop-default-prompt
|
||||||
"The function which create the prompt for utop."
|
"The function which create the prompt for utop."
|
||||||
:type 'function
|
:type 'function)
|
||||||
:group 'utop)
|
|
||||||
|
|
||||||
(defcustom utop-mode-hook nil
|
(defcustom utop-mode-hook nil
|
||||||
"A hook that gets run when `utop-mode' is entered."
|
"A hook that gets run when `utop-mode' is entered."
|
||||||
:type 'hook
|
:type 'hook)
|
||||||
:group 'utop)
|
|
||||||
|
|
||||||
(defcustom utop-exit-hook nil
|
(defcustom utop-exit-hook nil
|
||||||
"A hook that is run whenever `utop' is exited.
|
"A hook that is run whenever `utop' is exited.
|
||||||
This hook is only run if exiting actually kills the buffer."
|
This hook is only run if exiting actually kills the buffer."
|
||||||
:type 'hook
|
:type 'hook)
|
||||||
:group 'utop)
|
|
||||||
|
|
||||||
(defcustom utop-load-packages-without-asking nil
|
(defcustom utop-load-packages-without-asking nil
|
||||||
"Load packages from file local variables without asking"
|
"Load packages from file local variables without asking"
|
||||||
:type 'boolean
|
:type 'boolean)
|
||||||
:group 'utop)
|
|
||||||
|
|
||||||
(defface utop-prompt
|
(defface utop-prompt
|
||||||
'((((background dark)) (:foreground "Cyan1"))
|
'((((background dark)) (:foreground "Cyan1"))
|
||||||
(((background light)) (:foreground "blue")))
|
(((background light)) (:foreground "blue")))
|
||||||
"The face used to highlight the prompt."
|
"The face used to highlight the prompt.")
|
||||||
:group 'utop)
|
|
||||||
|
|
||||||
(defface utop-stdout
|
(defface utop-stdout
|
||||||
nil
|
nil
|
||||||
"The face used to highlight messages comming from stdout."
|
"The face used to highlight messages comming from stdout.")
|
||||||
:group 'utop)
|
|
||||||
|
|
||||||
(defface utop-stderr
|
(defface utop-stderr
|
||||||
nil
|
nil
|
||||||
"The face used to highlight messages comming from stderr."
|
"The face used to highlight messages comming from stderr.")
|
||||||
:group 'utop)
|
|
||||||
|
|
||||||
(defface utop-frozen
|
(defface utop-frozen
|
||||||
'((t (:bold t)))
|
'((t (:bold t)))
|
||||||
|
@ -124,8 +115,7 @@ This hook is only run if exiting actually kills the buffer."
|
||||||
|
|
||||||
(defface utop-error
|
(defface utop-error
|
||||||
'((t (:foreground "#ff4040" :bold t :underline t)))
|
'((t (:foreground "#ff4040" :bold t :underline t)))
|
||||||
"The face used to highlight errors in phrases."
|
"The face used to highlight errors in phrases.")
|
||||||
:group 'utop)
|
|
||||||
|
|
||||||
;; +-----------------------------------------------------------------+
|
;; +-----------------------------------------------------------------+
|
||||||
;; | Constants |
|
;; | Constants |
|
||||||
|
|
Loading…
Reference in New Issue