Skip to content

GitLab

Commit 00b05a42 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(show-paren-command-hook): Don't alter paren-mismatch face 

if make-face gives it some contents.
parent 93d6fcef
Hide whitespace changes
Inline Side-by-side
Showing with 9 additions and 8 deletions
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"))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment