Mercurial > emacs
changeset 7657:5d806a0a50bc
(show-paren-command-hook):
Always set show-paren-mismatch-face to symbol, not face vector.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 23 May 1994 07:45:49 +0000 |
| parents | d50e5481aae2 |
| children | c06b9bcb12e7 |
| files | lisp/paren.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/paren.el Mon May 23 07:41:31 1994 +0000 +++ b/lisp/paren.el Mon May 23 07:45:49 1994 +0000 @@ -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"))))