mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(set-face-background-pixmap, face-background-pixmap): Functions commented out.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-06-17 22:07:26 +00:00
parent 582080c149
commit f0b9055ffa
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/faces.el
View File

@ -65,11 +65,11 @@ 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) 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 @@ in that frame; otherwise change each frame."
(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.)