--- a/ag.el	Thu Mar 30 10:56:58 2017 +0300
+++ b/ag.el	Thu Mar 30 11:00:49 2017 +0300
@@ -3,6 +3,12 @@
 ;;; Commentary:
 ;;
 
+(defgroup my-ag nil
+  "My own ag search front-end."
+  :prefix "my-ag"
+  :group 'tools
+  :group 'processes)
+
 (defun my-ag-goto ()
   (interactive)
   (save-excursion
@@ -36,10 +42,12 @@
 
 (defface my-ag/lineno-face
   '((t :inherit warning))
-  "Face for line number.")
+  "Face for line number."
+  :group 'my-ag)
 (defface my-ag/path-face
   '((t :inherit success))
-  "Face for line number.")
+  "Face for line number."
+  :group 'my-ag)
 
 (defvar my-ag/keywords
   '(("^[1-9][0-9]\\{0,5\\}:" . (0 'my-ag/lineno-face))