Mercurial > emacs
comparison lisp/faces.el @ 83306:8b66fddd72c5
Merged from miles@gnu.org--gnu-2005 (patch 307-312)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-307
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-308
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-309
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-310
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-311
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-312
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-346
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Mon, 16 May 2005 15:49:27 +0000 |
parents | 6deb860255f3 3eeae124dcab |
children | 21eea50897a7 |
comparison
equal
deleted
inserted
replaced
83305:80cb3fe96145 | 83306:8b66fddd72c5 |
---|---|
1255 (set-buffer standard-output) | 1255 (set-buffer standard-output) |
1256 (dolist (f face) | 1256 (dolist (f face) |
1257 (insert "Face: " (symbol-name f)) | 1257 (insert "Face: " (symbol-name f)) |
1258 (if (not (facep f)) | 1258 (if (not (facep f)) |
1259 (insert " undefined face.\n") | 1259 (insert " undefined face.\n") |
1260 (let ((customize-label "customize this face")) | 1260 (let ((customize-label "customize this face") |
1261 file-name) | |
1261 (princ (concat " (" customize-label ")\n")) | 1262 (princ (concat " (" customize-label ")\n")) |
1262 (insert "Documentation: " | 1263 (insert "Documentation: " |
1263 (or (face-documentation f) | 1264 (or (face-documentation f) |
1264 "Not documented as a face.") | 1265 "Not documented as a face.") |
1265 "\n\n") | 1266 "\n") |
1266 (with-current-buffer standard-output | 1267 (with-current-buffer standard-output |
1267 (save-excursion | 1268 (save-excursion |
1268 (re-search-backward | 1269 (re-search-backward |
1269 (concat "\\(" customize-label "\\)") nil t) | 1270 (concat "\\(" customize-label "\\)") nil t) |
1270 (help-xref-button 1 'help-customize-face f))) | 1271 (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)) | |
1271 (dolist (a attrs) | 1286 (dolist (a attrs) |
1272 (let ((attr (face-attribute f (car a) frame))) | 1287 (let ((attr (face-attribute f (car a) frame))) |
1273 (insert (make-string (- max-width (length (cdr a))) ?\ ) | 1288 (insert (make-string (- max-width (length (cdr a))) ?\ ) |
1274 (cdr a) ": " (format "%s" attr) "\n"))))) | 1289 (cdr a) ": " (format "%s" attr) "\n"))))) |
1275 (terpri))) | 1290 (terpri))) |
2076 (((class color) (background dark)) | 2091 (((class color) (background dark)) |
2077 :background "red1") | 2092 :background "red1") |
2078 (t :inverse-video t)) | 2093 (t :inverse-video t)) |
2079 "Basic face for highlighting trailing whitespace." | 2094 "Basic face for highlighting trailing whitespace." |
2080 :version "21.1" | 2095 :version "21.1" |
2081 :group 'font-lock ; like `show-trailing-whitespace' | 2096 :group 'whitespace ; like `show-trailing-whitespace' |
2082 :group 'basic-faces) | 2097 :group 'basic-faces) |
2083 | 2098 |
2084 (defface escape-glyph '((((background dark)) :foreground "cyan") | 2099 (defface escape-glyph '((((background dark)) :foreground "cyan") |
2085 ;; See the comment in minibuffer-prompt for | 2100 ;; See the comment in minibuffer-prompt for |
2086 ;; the reason not to use blue on MS-DOS. | 2101 ;; the reason not to use blue on MS-DOS. |