/[emacs]/emacs/lisp/faces.el
ViewVC logotype

Diff of /emacs/lisp/faces.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.304 by dann, Mon Apr 11 20:47:25 2005 UTC revision 1.305 by rms, Mon May 16 03:31:11 2005 UTC
# Line 1257  If FRAME is omitted or nil, use the sele Line 1257  If FRAME is omitted or nil, use the sele
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))) ?\ )
# Line 2047  Note: Other faces cannot inherit from th Line 2062  Note: Other faces cannot inherit from th
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")

Legend:
Removed from v.1.304  
changed lines
  Added in v.1.305

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26