Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d352297c
Commit
d352297c
authored
Dec 30, 2001
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(face-set-after-frame-default): Don't change `default' face.
(minibuffer-prompt): Adopt some default colors.
parent
3e5c5091
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
7 deletions
+9
-7
lisp/faces.el
lisp/faces.el
+9
-7
No files found.
lisp/faces.el
View file @
d352297c
...
...
@@ -1595,12 +1595,13 @@ Value is the new frame created."
"Set frame-local faces of FRAME from face specs and resources.
Initialize colors of certain faces from frame parameters."
(
dolist
(
face
(
face-list
))
(
face-spec-set
face
(
face-user-default-spec
face
)
frame
)
(
internal-merge-in-global-face
face
frame
)
(
when
(
and
(
memq
window-system
'
(
x
w32
mac
))
(
or
(
not
(
boundp
'inhibit-default-face-x-resources
))
(
not
(
eq
face
'default
))))
(
make-face-x-resource-internal
face
frame
)))
(
when
(
not
(
equal
face
'default
))
(
face-spec-set
face
(
face-user-default-spec
face
)
frame
)
(
internal-merge-in-global-face
face
frame
)
(
when
(
and
(
memq
window-system
'
(
x
w32
mac
))
(
or
(
not
(
boundp
'inhibit-default-face-x-resources
))
(
not
(
eq
face
'default
))))
(
make-face-x-resource-internal
face
frame
))))
;; Initialize attributes from frame parameters.
(
let
((
params
'
((
foreground-color
default
:foreground
)
...
...
@@ -1767,7 +1768,8 @@ created."
:group
'basic-faces
)
(
defface
minibuffer-prompt
'
((
t
()))
(
defface
minibuffer-prompt
'
((((
background
dark
))
(
:foreground
"cyan"
))
(
t
(
:foreground
"dark blue"
)))
"Face for minibuffer prompts."
:version
"21.3"
:group
'basic-faces
)
...
...
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