get rid of clean byte compiling warnings

3 files changed, 21 insertions, 21 deletions

diff --git a/hcel-haddorg.el b/hcel-haddorg.el
index 90b0ce6..ea2a168 100644
--- a/hcel-haddorg.el
+++ b/hcel-haddorg.el
@@ -23,13 +23,15 @@
 (require 'org)
 
 (defcustom hcel-haddorg-dir "~/Projects/sedoc/haddock/org-output"
-  "Directory of haddorg org files.")
+  "Directory of haddorg org files."
+  :group 'hcel :type '(string))
 
 (defcustom hcel-haddorg-lax-version t
   "If non-nil, match highest version if no exact match found.
 
 Say we have ghc-8.6.5.org and ghc-9.2.2.org.  If the definition
-is in ghc-8.10.1, hcel will attempt to look up in ghc-9.2.2.org.")
+is in ghc-8.10.1, hcel will attempt to look up in ghc-9.2.2.org."
+  :group 'hcel :type '(string))
 
 (defun hcel-haddorg-to-hcel-definition ()
   (interactive)
diff --git a/hcel-results.el b/hcel-results.el
index d3e2325..58c6f31 100644
--- a/hcel-results.el
+++ b/hcel-results.el
@@ -391,11 +391,11 @@ Start by choosing a package."
                 (number-to-string hcel-ids-live-per-page))))
         hcel-ids--minibuffer-saved-results))))
 
-(defun hcel-global-ids-minibuffer-collection (query pred action)
+(defun hcel-global-ids-minibuffer-collection (query _ action)
   (hcel-ids-minibuffer-collection 'global query action))
 
 (defun hcel-package-ids-minibuffer-collection (package-id)
-  (lambda (query pred action)
+  (lambda (query _ action)
     (hcel-ids-minibuffer-collection 'package query action package-id)))
 
 (defun hcel-ids (scope query &optional package-id)
diff --git a/hcel-source.el b/hcel-source.el
index ef57bcb..dc54e18 100644
--- a/hcel-source.el
+++ b/hcel-source.el
@@ -25,7 +25,21 @@
 (require 'xref)
 
 (defcustom hcel-font-lock-use-haskell-mode nil
-  "If non-nil, will use haskell mode for haskell syntax highlight.")
+  "If non-nil, will use haskell mode for haskell syntax highlight."
+  :group 'hcel :type '(boolean))
+
+
+(defface hcel-type-face '((t :inherit font-lock-type-face))
+  "Face used to highlight types" :group 'hcel-faces)
+(defface hcel-value-face '((t :inherit font-lock-variable-name-face))
+  "Face used to highlight values" :group 'hcel-faces)
+(defface hcel-comment-face '((t :inherit font-lock-comment-face))
+  "Face used to highlight comments" :group 'hcel-faces)
+(defface hcel-pragma-face '((t :inherit font-lock-preprocessor-face))
+  "Face used to highlight pragmas" :group 'hcel-faces)
+
+(defvar hcel-comment-re "^\\ *--.*$")
+(defvar hcel-pragma-re "^\\ *{-# .*? #-}\\ *$")
 
 (defvar-local hcel-identifiers nil)
 (defvar-local hcel-package-id nil)
@@ -349,22 +363,6 @@ the location with pulsing.
   (left-char))
 (define-key hcel-mode-map "p" #'hcel-source-previous-declaration)
 
-(defface hcel-type-face '((t :inherit font-lock-type-face))
-  "Face used to highlight types" :group 'hcel-faces)
-(defface hcel-value-face '((t :inherit font-lock-variable-name-face))
-  "Face used to highlight values" :group 'hcel-faces)
-(defface hcel-comment-face '((t :inherit font-lock-comment-face))
-  "Face used to highlight comments" :group 'hcel-faces)
-(defface hcel-pragma-face '((t :inherit font-lock-preprocessor-face))
-  "Face used to highlight pragmas" :group 'hcel-faces)
-(defface hcel-builtin-face '((t :inherit font-lock-builtin-face))
-  "Face used to highlight builtins" :group 'hcel-faces)
-
-(defvar hcel-comment-re "^\\ *--.*$")
-(defvar hcel-pragma-re "^\\ *{-# .*? #-}\\ *$")
-(defvar hcel-builtin-re "^\\ *\\(module\\|import\\|qualified\\|as\\|if\\|then\\|else\\|in\\|where\\|::\\)\\ *$")
-
-
 (defun hcel-write-html-source-to-buffer (lines occs font-lock)
   (mapc
    (lambda (line)