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
Open sidebar
emacs
emacs
Commits
ee09252a
Commit
ee09252a
authored
Oct 23, 1994
by
Richard M. Stallman
Browse files
(set-face-background): Set either stipple or color,
never both. Do this only for a specific frame, not for t.
parent
368b007a
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
3 deletions
+6
-3
lisp/faces.el
lisp/faces.el
+6
-3
No files found.
lisp/faces.el
View file @
ee09252a
...
...
@@ -109,11 +109,14 @@ in that frame; otherwise change each frame."
If the optional FRAME argument is provided, change only
in that frame; otherwise change each frame."
(
interactive
(
internal-face-interactive
"background"
))
(
if
(
and
frame
(
member
color
'
(
"gray"
"gray1"
"gray3"
))
;; For a specific frame, use gray stipple instead of gray color
;; if the display does not support a gray color.
(
if
(
and
frame
(
not
(
eq
frame
t
))
(
member
color
'
(
"gray"
"gray1"
"gray3"
))
(
not
(
x-display-color-p
frame
))
(
not
(
x-display-grayscale-p
frame
)))
(
set-face-stipple
face
color
frame
)
)
(
internal-set-face-1
face
'background
color
5
frame
))
(
set-face-stipple
face
color
frame
)
(
internal-set-face-1
face
'background
color
5
frame
))
)
(
defsubst
set-face-stipple
(
face
name
&optional
frame
)
"Change the stipple pixmap of face FACE to PIXMAP.
...
...
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