Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
emacs
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
4
Issues
4
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
emacs
emacs
Commits
f0b9055f
Commit
f0b9055f
authored
Jun 17, 1993
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(set-face-background-pixmap, face-background-pixmap): Functions commented out.
parent
582080c1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
16 additions
and
16 deletions
+16
-16
lisp/faces.el
lisp/faces.el
+16
-16
No files found.
lisp/faces.el
View file @
f0b9055f
...
@@ -65,11 +65,11 @@ If the optional argument FRAME is given, report on face FACE in that frame.
...
@@ -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)."
Otherwise report on the defaults for face FACE (for new frames)."
(
aref
(
internal-get-face
face
frame
)
5
))
(
aref
(
internal-get-face
face
frame
)
5
))
(
defsubst
face-background-pixmap
(
face
&optional
frame
)
;;
(defsubst face-background-pixmap (face &optional frame)
"Return the background pixmap name of face FACE, or nil if unspecified.
;;
"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.
;;
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)."
;;
Otherwise report on the defaults for face FACE (for new frames)."
(
aref
(
internal-get-face
face
frame
)
6
))
;;
(aref (internal-get-face face frame) 6))
(
defsubst
face-underline-p
(
face
&optional
frame
)
(
defsubst
face-underline-p
(
face
&optional
frame
)
"Return t if face FACE is underlined.
"Return t if face FACE is underlined.
...
@@ -102,19 +102,19 @@ in that frame; otherwise change each frame."
...
@@ -102,19 +102,19 @@ in that frame; otherwise change each frame."
(
interactive
(
internal-face-interactive
"background"
))
(
interactive
(
internal-face-interactive
"background"
))
(
internal-set-face-1
face
'background
color
5
frame
))
(
internal-set-face-1
face
'background
color
5
frame
))
(
defsubst
set-face-background-pixmap
(
face
name
&optional
frame
)
;;
(defsubst set-face-background-pixmap (face name &optional frame)
"Change the background pixmap of face FACE to PIXMAP.
;;
"Change the background pixmap of face FACE to PIXMAP.
PIXMAP should be a string, the name of a file of pixmap data.
;;
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.
;;
The directories listed in the `x-bitmap-file-path' variable are searched.
Alternatively, PIXMAP may be a list of the form (WIDTH HEIGHT DATA)
;;
Alternatively, PIXMAP may be a list of the form (WIDTH HEIGHT DATA)
where WIDTH and HEIGHT are the size in pixels,
;;
where WIDTH and HEIGHT are the size in pixels,
and DATA is a string, containing the raw bits of the bitmap.
;;
and DATA is a string, containing the raw bits of the bitmap.
If the optional FRAME argument is provided, change only
;;
If the optional FRAME argument is provided, change only
in that frame; otherwise change each frame."
;;
in that frame; otherwise change each frame."
(
interactive
(
internal-face-interactive
"background-pixmap"
))
;;
(interactive (internal-face-interactive "background-pixmap"))
(
internal-set-face-1
face
'background-pixmap
name
6
frame
))
;;
(internal-set-face-1 face 'background-pixmap name 6 frame))
(
defsubst
set-face-underline-p
(
face
underline-p
&optional
frame
)
(
defsubst
set-face-underline-p
(
face
underline-p
&optional
frame
)
"Specify whether face FACE is underlined. (Yes if UNDERLINE-P is non-nil.)
"Specify whether face FACE is underlined. (Yes if UNDERLINE-P is non-nil.)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment