[COMMIT] Avoid a distracting warning about custom groups, about.el
APPROVE COMMIT
NOTE: This patch has been committed
# HG changeset patch
# User Aidan Kehoe <kehoea(a)parhasard.net>
# Date 1512157584 0
# Fri Dec 01 19:46:24 2017 +0000
# Node ID 86ddcb2cb737db4e9518b1db0b7e4332a3d1b4d1
# Parent dabe2da63f45bf454afdd10dd4e9b475a2ac8f06
Avoid a distracting warning about custom groups, about.el
lisp/ChangeLog addition:
2017-12-01 Aidan Kehoe <kehoea(a)parhasard.net>
* about.el (about): New custom group for this file.
* about.el (about-headline-face):
* about.el (about-link-face):
Provide and use a custom group for these faces, avoiding a
distracting warning when viewing the about page.
diff -r dabe2da63f45 -r 86ddcb2cb737 lisp/ChangeLog
--- a/lisp/ChangeLog Thu Nov 30 05:15:02 2017 +0000
+++ b/lisp/ChangeLog Fri Dec 01 19:46:24 2017 +0000
＠＠ -1,3 +1,11 ＠＠
+2017-12-01 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * about.el (about): New custom group for this file.
+ * about.el (about-headline-face):
+ * about.el (about-link-face):
+ Provide and use a custom group for these faces, avoiding a
+ distracting warning when viewing the about page.
+
2017-11-16 Aidan Kehoe <kehoea(a)parhasard.net>
* x-faces.el (x-library-search-path):
diff -r dabe2da63f45 -r 86ddcb2cb737 lisp/about.el
--- a/lisp/about.el Thu Nov 30 05:15:02 2017 +0000
+++ b/lisp/about.el Fri Dec 01 19:46:24 2017 +0000
＠＠ -49,13 +49,9 ＠＠
(require 'wid-edit)
-;; People in this list have their individual links from the main page,
-;; or from the `Legion' page. If they have an image, it should be
-;; named after the CAR of the list element (baw -> baw.png).
-;;
-;; If you add to this list, you'll want to update
-;; `about-personal-info' and `about-hackers', and add the name to one
-;; of the three mutually exclusive lists just below.
+;; It's unlikely anyone will customise this, but the warning about a
+;; non-existent group for the faces is distracting.
+(defgroup about nil "Customization group for the `About the Authors'
page.")
(defface about-headline-face
'((((class color) (background dark))
＠＠ -71,7 +67,8 ＠＠
(((class grayscale) (background dark))
(:foreground "DimGray" :bold t))
(t (:bold t)))
- "Face used for color-highlighted headlines in the About page.")
+ "Face used for color-highlighted headlines in the About page."
+ :group 'about)
(defface about-link-face
'((((class color) (background dark))
＠＠ -86,7 +83,16 ＠＠
(((class grayscale) (background dark))
(:foreground "LightGray" :bold t :italic t :underline t))
(t (:underline t)))
- "Face used for links in the About page.")
+ "Face used for links in the About page."
+ :group 'about)
+
+;; People in this list have their individual links from the main page,
+;; or from the `Legion' page. If they have an image, it should be
+;; named after the CAR of the list element (baw -> baw.png).
+;;
+;; If you add to this list, you'll want to update
+;; `about-personal-info' and `about-hackers', and add the name to one
+;; of the three mutually exclusive lists just below.
(defvar xemacs-hackers
'(
--
‘As I sat looking up at the Guinness ad, I could never figure out /
How your man stayed up on the surfboard after forty pints of stout’
(C. Moore)