APPROVE COMMIT NOTE: This patch has been committed # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # 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&gt; * 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&gt; + + * 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&gt; * 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)