Mercurial > emacs
changeset 3812:0bc757649dd7
(set-face-background-pixmap, face-background-pixmap): Functions commented out.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 17 Jun 1993 22:07:26 +0000 |
| parents | 48b1ef149180 |
| children | 5c622d3241b5 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 16 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Thu Jun 17 22:03:40 1993 +0000 +++ b/lisp/faces.el Thu Jun 17 22:07:26 1993 +0000 @@ -65,11 +65,11 @@ Otherwise report on the defaults for face FACE (for new frames)." (aref (internal-get-face face frame) 5)) -(defsubst face-background-pixmap (face &optional frame) - "Return the background pixmap name of face FACE, or nil if unspecified. -If the optional argument FRAME is given, report on face FACE in that frame. -Otherwise report on the defaults for face FACE (for new frames)." - (aref (internal-get-face face frame) 6)) +;;(defsubst face-background-pixmap (face &optional frame) +;; "Return the background pixmap name of face FACE, or nil if unspecified. +;;If the optional argument FRAME is given, report on face FACE in that frame. +;;Otherwise report on the defaults for face FACE (for new frames)." +;; (aref (internal-get-face face frame) 6)) (defsubst face-underline-p (face &optional frame) "Return t if face FACE is underlined. @@ -102,19 +102,19 @@ (interactive (internal-face-interactive "background")) (internal-set-face-1 face 'background color 5 frame)) -(defsubst set-face-background-pixmap (face name &optional frame) - "Change the background pixmap of face FACE to PIXMAP. -PIXMAP should be a string, the name of a file of pixmap data. -The directories listed in the `x-bitmap-file-path' variable are searched. +;;(defsubst set-face-background-pixmap (face name &optional frame) +;; "Change the background pixmap of face FACE to PIXMAP. +;;PIXMAP should be a string, the name of a file of pixmap data. +;;The directories listed in the `x-bitmap-file-path' variable are searched. -Alternatively, PIXMAP may be a list of the form (WIDTH HEIGHT DATA) -where WIDTH and HEIGHT are the size in pixels, -and DATA is a string, containing the raw bits of the bitmap. +;;Alternatively, PIXMAP may be a list of the form (WIDTH HEIGHT DATA) +;;where WIDTH and HEIGHT are the size in pixels, +;;and DATA is a string, containing the raw bits of the bitmap. -If the optional FRAME argument is provided, change only -in that frame; otherwise change each frame." - (interactive (internal-face-interactive "background-pixmap")) - (internal-set-face-1 face 'background-pixmap name 6 frame)) +;;If the optional FRAME argument is provided, change only +;;in that frame; otherwise change each frame." +;; (interactive (internal-face-interactive "background-pixmap")) +;; (internal-set-face-1 face 'background-pixmap name 6 frame)) (defsubst set-face-underline-p (face underline-p &optional frame) "Specify whether face FACE is underlined. (Yes if UNDERLINE-P is non-nil.)