mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(show-paren-face): New variable.

Browse Source 
(show-paren-command-hook): Use it.
Call set-face-background properly.
This commit is contained in:
Richard M. Stallman 1993-07-20 05:59:51 +00:00
parent f5d7a8f2f8
commit 30322a2736
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/paren.el
View File

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