Mercurial > emacs

comparison lisp/paren.el @ 8019:cbab396695ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(show-paren-command-hook): Set paren foreground to white.
author Richard M. Stallman <rms@gnu.org>
date Thu, 23 Jun 1994 14:31:35 +0000
parents 5d806a0a50bc
children fcf805b27bc5
comparison
equal deleted inserted replaced
8018:518971c497f5 8019:cbab396695ab
84 (x-display-color-p) 84 (x-display-color-p)
85 (or (internal-find-face 'paren-mismatch) 85 (or (internal-find-face 'paren-mismatch)
86 (progn 86 (progn
87 (make-face 'paren-mismatch) 87 (make-face 'paren-mismatch)
88 (set-face-background 'paren-mismatch 88 (set-face-background 'paren-mismatch
89 "purple"))) 89 "purple")
90 (set-face-foreground 'paren-mismatch
91 "white")))
90 (setq show-paren-mismatch-face 'paren-mismatch)) 92 (setq show-paren-mismatch-face 'paren-mismatch))
91 (if show-paren-mismatch-face 93 (if show-paren-mismatch-face
92 (setq face show-paren-mismatch-face) 94 (setq face show-paren-mismatch-face)
93 (message "Paren mismatch")))) 95 (message "Paren mismatch"))))
94 ))) 96 )))