mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

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

Browse Source 
if make-face gives it some contents.
This commit is contained in:
Richard M. Stallman 1995-01-10 17:44:28 +00:00
parent 93d6fcef18
commit 00b05a4299
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/paren.el
View File

@ -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"))))