Mercurial > emacs

comparison lisp/faces.el @ 83306:8b66fddd72c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.