haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove redundant :group properties 

Those are auto-inferred from the :prefix set in defgroup.
This commit is contained in:
Bozhidar Batsov 2022-07-16 10:54:16 +03:00 committed by Rudi Grinberg
parent 2c08182649
commit a84d499301
1 changed files with 10 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/top/utop.el
View File

@ -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 |