diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-23 07:45:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-23 07:45:49 +0000 |
| commit | 75f19a0b1ec595b4b17fa9cb6175fb234fcaec4f (patch) | |
| tree | 07a79c3d987586db9216401cac01c61870f773fa /lisp/paren.el | |
| parent | e8b07903db20a7b8766fd5734d68d080f28aebce (diff) | |
| download | emacs-75f19a0b1ec595b4b17fa9cb6175fb234fcaec4f.tar.gz | |
(show-paren-command-hook):
Always set show-paren-mismatch-face to symbol, not face vector.
Diffstat (limited to 'lisp/paren.el')
| -rw-r--r-- | lisp/paren.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/paren.el b/lisp/paren.el index 14d2d0c5b0d..34768396a3d 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -82,14 +82,12 @@ (progn (and (null show-paren-mismatch-face) (x-display-color-p) - (or (setq show-paren-mismatch-face - (internal-find-face 'paren-mismatch)) + (or (internal-find-face 'paren-mismatch) (progn (make-face 'paren-mismatch) - (setq show-paren-mismatch-face - 'paren-mismatch) (set-face-background 'paren-mismatch - "purple")))) + "purple"))) + (setq show-paren-mismatch-face 'paren-mismatch)) (if show-paren-mismatch-face (setq face show-paren-mismatch-face) (message "Paren mismatch")))) |