1257 |
(insert "Face: " (symbol-name f)) |
(insert "Face: " (symbol-name f)) |
1258 |
(if (not (facep f)) |
(if (not (facep f)) |
1259 |
(insert " undefined face.\n") |
(insert " undefined face.\n") |
1260 |
(let ((customize-label "customize this face")) |
(let ((customize-label "customize this face") |
1261 |
|
file-name) |
1262 |
(princ (concat " (" customize-label ")\n")) |
(princ (concat " (" customize-label ")\n")) |
1263 |
(insert "Documentation: " |
(insert "Documentation: " |
1264 |
(or (face-documentation f) |
(or (face-documentation f) |
1265 |
"Not documented as a face.") |
"Not documented as a face.") |
1266 |
"\n\n") |
"\n") |
1267 |
(with-current-buffer standard-output |
(with-current-buffer standard-output |
1268 |
(save-excursion |
(save-excursion |
1269 |
(re-search-backward |
(re-search-backward |
1270 |
(concat "\\(" customize-label "\\)") nil t) |
(concat "\\(" customize-label "\\)") nil t) |
1271 |
(help-xref-button 1 'help-customize-face f))) |
(help-xref-button 1 'help-customize-face f))) |
1272 |
|
;; The next 4 sexps are copied from describe-function-1 |
1273 |
|
;; and simplified. |
1274 |
|
(setq file-name (symbol-file f 'defface)) |
1275 |
|
(when file-name |
1276 |
|
(princ "Defined in `") |
1277 |
|
(princ file-name) |
1278 |
|
(princ "'") |
1279 |
|
;; Make a hyperlink to the library. |
1280 |
|
(save-excursion |
1281 |
|
(re-search-backward "`\\([^`']+\\)'" nil t) |
1282 |
|
(help-xref-button 1 'help-face-def f file-name)) |
1283 |
|
(princ ".") |
1284 |
|
(terpri) |
1285 |
|
(terpri)) |
1286 |
(dolist (a attrs) |
(dolist (a attrs) |
1287 |
(let ((attr (face-attribute f (car a) frame))) |
(let ((attr (face-attribute f (car a) frame))) |
1288 |
(insert (make-string (- max-width (length (cdr a))) ?\ ) |
(insert (make-string (- max-width (length (cdr a))) ?\ ) |
2062 |
(t :inverse-video t)) |
(t :inverse-video t)) |
2063 |
"Basic face for highlighting trailing whitespace." |
"Basic face for highlighting trailing whitespace." |
2064 |
:version "21.1" |
:version "21.1" |
2065 |
:group 'font-lock ; like `show-trailing-whitespace' |
:group 'whitespace ; like `show-trailing-whitespace' |
2066 |
:group 'basic-faces) |
:group 'basic-faces) |
2067 |
|
|
2068 |
(defface escape-glyph '((((background dark)) :foreground "cyan") |
(defface escape-glyph '((((background dark)) :foreground "cyan") |