Mercurial > emacs
comparison lisp/faces.el @ 34018:a442998dd573
(face-foreground, face-background, face-stipple):
Return nil if attribute is unspecified, for backward
compatibility.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 29 Nov 2000 19:21:17 +0000 |
| parents | 01da583dbe56 |
| children | 08b928780fd1 |
comparison
equal
deleted
inserted
replaced
| 34017:8cf5499796cc | 34018:a442998dd573 |
|---|---|
| 355 (defun face-foreground (face &optional frame) | 355 (defun face-foreground (face &optional frame) |
| 356 "Return the foreground color name of FACE, or nil if unspecified. | 356 "Return the foreground color name of FACE, or nil if unspecified. |
| 357 If the optional argument FRAME is given, report on face FACE in that frame. | 357 If the optional argument FRAME is given, report on face FACE in that frame. |
| 358 If FRAME is t, report on the defaults for face FACE (for new frames). | 358 If FRAME is t, report on the defaults for face FACE (for new frames). |
| 359 If FRAME is omitted or nil, use the selected frame." | 359 If FRAME is omitted or nil, use the selected frame." |
| 360 (internal-get-lisp-face-attribute face :foreground frame)) | 360 (let ((value (internal-get-lisp-face-attribute face :foreground frame))) |
| 361 (if (eq value 'unspecified) | |
| 362 nil | |
| 363 value))) | |
| 361 | 364 |
| 362 | 365 |
| 363 (defun face-background (face &optional frame) | 366 (defun face-background (face &optional frame) |
| 364 "Return the background color name of FACE, or nil if unspecified. | 367 "Return the background color name of FACE, or nil if unspecified. |
| 365 If the optional argument FRAME is given, report on face FACE in that frame. | 368 If the optional argument FRAME is given, report on face FACE in that frame. |
| 366 If FRAME is t, report on the defaults for face FACE (for new frames). | 369 If FRAME is t, report on the defaults for face FACE (for new frames). |
| 367 If FRAME is omitted or nil, use the selected frame." | 370 If FRAME is omitted or nil, use the selected frame." |
| 368 (internal-get-lisp-face-attribute face :background frame)) | 371 (let ((value (internal-get-lisp-face-attribute face :background frame))) |
| 372 (if (eq value 'unspecified) | |
| 373 nil | |
| 374 value))) | |
| 369 | 375 |
| 370 | 376 |
| 371 (defun face-stipple (face &optional frame) | 377 (defun face-stipple (face &optional frame) |
| 372 "Return the stipple pixmap name of FACE, or nil if unspecified. | 378 "Return the stipple pixmap name of FACE, or nil if unspecified. |
| 373 If the optional argument FRAME is given, report on face FACE in that frame. | 379 If the optional argument FRAME is given, report on face FACE in that frame. |
| 374 If FRAME is t, report on the defaults for face FACE (for new frames). | 380 If FRAME is t, report on the defaults for face FACE (for new frames). |
| 375 If FRAME is omitted or nil, use the selected frame." | 381 If FRAME is omitted or nil, use the selected frame." |
| 376 (internal-get-lisp-face-attribute face :stipple frame)) | 382 (let ((value (internal-get-lisp-face-attribute face :stipple frame))) |
| 383 (if (eq value 'unspecified) | |
| 384 nil | |
| 385 value))) | |
| 377 | 386 |
| 378 | 387 |
| 379 (defalias 'face-background-pixmap 'face-stipple) | 388 (defalias 'face-background-pixmap 'face-stipple) |
| 380 | 389 |
| 381 | 390 |