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
00b05a42
Commit
00b05a42
authored
Jan 10, 1995
by
Richard M. Stallman
Browse files
(show-paren-command-hook): Don't alter paren-mismatch face
if make-face gives it some contents.
parent
93d6fcef
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
8 deletions
+9
-8
lisp/paren.el
lisp/paren.el
+9
-8
No files found.
lisp/paren.el
View file @
00b05a42
...
...
@@ -80,14 +80,15 @@
(
progn
(
and
(
null
show-paren-mismatch-face
)
(
x-display-color-p
)
(
or
(
internal-find-face
'paren-mismatch
)
(
progn
(
make-face
'paren-mismatch
)
(
set-face-background
'paren-mismatch
"purple"
)
(
set-face-foreground
'paren-mismatch
"white"
)))
(
setq
show-paren-mismatch-face
'paren-mismatch
))
(
progn
(
make-face
'paren-mismatch
)
(
or
(
face-nontrivial-p
'paren-mismatch
t
)
(
progn
(
set-face-background
'paren-mismatch
"purple"
)
(
set-face-foreground
'paren-mismatch
"white"
)))
(
setq
show-paren-mismatch-face
'paren-mismatch
)))
(
if
show-paren-mismatch-face
(
setq
face
show-paren-mismatch-face
)
(
message
"Paren mismatch"
))))
...
...
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