Mercurial > emacs

comparison lisp/paren.el @ 7657:5d806a0a50bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 d571ad3c796e
children cbab396695ab
comparison
equal deleted inserted replaced
7656:d50e5481aae2 7657:5d806a0a50bc
80 ;; or print a message. 80 ;; or print a message.
81 (if mismatch 81 (if mismatch
82 (progn 82 (progn
83 (and (null show-paren-mismatch-face) 83 (and (null show-paren-mismatch-face)
84 (x-display-color-p) 84 (x-display-color-p)
85 (or (setq show-paren-mismatch-face 85 (or (internal-find-face 'paren-mismatch)
86 (internal-find-face 'paren-mismatch))
87 (progn 86 (progn
88 (make-face 'paren-mismatch) 87 (make-face 'paren-mismatch)
89 (setq show-paren-mismatch-face
90 'paren-mismatch)
91 (set-face-background 'paren-mismatch 88 (set-face-background 'paren-mismatch
92 "purple")))) 89 "purple")))
90 (setq show-paren-mismatch-face 'paren-mismatch))
93 (if show-paren-mismatch-face 91 (if show-paren-mismatch-face
94 (setq face show-paren-mismatch-face) 92 (setq face show-paren-mismatch-face)
95 (message "Paren mismatch")))) 93 (message "Paren mismatch"))))
96 ))) 94 )))
97 (cond (pos 95 (cond (pos