diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-20 05:59:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-20 05:59:51 +0000 |
| commit | 26a0d317dcf42623cf9257a1e4f2b141296c9ab7 (patch) | |
| tree | be3ac1bfbfe71cc5bbddb5aae2e9cb7d80dd488a /lisp/paren.el | |
| parent | 16e18a46c5500f369e414028ffb2052fdbaf4218 (diff) | |
| download | emacs-26a0d317dcf42623cf9257a1e4f2b141296c9ab7.tar.gz | |
(show-paren-face): New variable.
(show-paren-command-hook): Use it.
Call set-face-background properly.
Diffstat (limited to 'lisp/paren.el')
| -rw-r--r-- | lisp/paren.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/paren.el b/lisp/paren.el index c96efcd1863..cd1c8878180 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -36,12 +36,15 @@ (defvar show-paren-mismatch-face nil) +(defvar show-paren-face 'region + "*Name of face to use for showing the matching paren.") + ;; Find the place to show, if there is one, ;; and show it until input arrives. (defun show-paren-command-hook () (if window-system (let (pos dir mismatch (oldpos (point)) - (face 'region)) + (face show-paren-face)) (cond ((eq (char-syntax (following-char)) ?\() (setq dir 1)) ((eq (char-syntax (preceding-char)) ?\)) @@ -81,7 +84,8 @@ (progn (setq show-paren-mismatch-face (make-face 'paren-mismatch)) - (set-face-background 'paren-mismatch 'purple)))) + (set-face-background 'paren-mismatch + "purple")))) (if show-paren-mismatch-face (setq face show-paren-mismatch-face) (message "Paren mismatch")))) |