chiark / gitweb /
stgit.el: Add an stgit customization group
authorGustav Hållberg <gustav@virtutech.com>
Sun, 21 Dec 2008 10:55:51 +0000 (11:55 +0100)
committerKarl Hasselström <kha@treskal.com>
Sun, 21 Dec 2008 10:55:51 +0000 (11:55 +0100)
This makes it easier to customize faces and (future) variables.

Signed-off-by: Gustav Hållberg <gustav@virtutech.com>
Signed-off-by: Karl Hasselström <kha@treskal.com>
contrib/stgit.el

index 0f47d4d7138b5ba71b0fd56157c5e010678bbfe9..503caf7a333a99de16073c9c37316db83b3d6e22 100644 (file)
@@ -113,28 +113,36 @@ (defun stgit-reload ()
       (goto-line curline)))
   (stgit-refresh-git-status))
 
+(defgroup stgit nil
+  "A user interface for the StGit patch maintenance tool."
+  :group 'tools)
+
 (defface stgit-description-face
   '((((background dark)) (:foreground "tan"))
     (((background light)) (:foreground "dark red")))
-  "The face used for StGit desriptions")
+  "The face used for StGit descriptions"
+  :group 'stgit)
 
 (defface stgit-top-patch-face
   '((((background dark)) (:weight bold :foreground "yellow"))
     (((background light)) (:weight bold :foreground "purple"))
     (t (:weight bold)))
-  "The face used for the top patch names")
+  "The face used for the top patch names"
+  :group 'stgit)
 
 (defface stgit-applied-patch-face
   '((((background dark)) (:foreground "light yellow"))
     (((background light)) (:foreground "purple"))
     (t ()))
-  "The face used for applied patch names")
+  "The face used for applied patch names"
+  :group 'stgit)
 
 (defface stgit-unapplied-patch-face
   '((((background dark)) (:foreground "gray80"))
     (((background light)) (:foreground "orchid"))
     (t ()))
-  "The face used for unapplied patch names")
+  "The face used for unapplied patch names"
+  :group 'stgit)
 
 (defun stgit-expand-patch (patchsym)
   (save-excursion