diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-01-10 17:44:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-01-10 17:44:28 +0000 |
| commit | 00b05a4299c9092fcad82fdf9f0e9834269f4aa6 (patch) | |
| tree | af09d17371bd2e008da71e7c3787d293de4f4ae0 /lisp/paren.el | |
| parent | 93d6fcef188ddd8a2293dedd8a16bbad67cc714a (diff) | |
| download | emacs-00b05a4299c9092fcad82fdf9f0e9834269f4aa6.tar.gz | |
(show-paren-command-hook): Don't alter paren-mismatch face
if make-face gives it some contents.
Diffstat (limited to 'lisp/paren.el')
| -rw-r--r-- | lisp/paren.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/paren.el b/lisp/paren.el index eb108910e28..0a151d14aab 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -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")))) |