Mercurial > emacs

changeset 21891:7d49e4c824b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(show-paren-ring-bell-on-mismatch): New option. (show-paren-function): Beep on mismatch, if requested.
author Richard M. Stallman <rms@gnu.org>
date Fri, 01 May 1998 05:33:39 +0000
parents f28b2d5e921b
children f718f5a51f59
files lisp/paren.el
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/paren.el	Fri May 01 04:52:54 1998 +0000
+++ b/lisp/paren.el	Fri May 01 05:33:39 1998 +0000
@@ -67,6 +67,12 @@
   :type '(number :tag "seconds")
   :group 'paren-showing)
 
+(defcustom show-paren-ring-bell-on-mismatch nil
+  "*If non-nil, beep if mismatched paren is detected."
+  :type 'boolean
+  :group 'paren-showing
+  :version "20.3")
+  
 (defface show-paren-match-face
   '((((class color)) (:background "turquoise"))
     (t (:background "gray")))
@@ -158,7 +164,10 @@
 	;;
 	;; Use the correct face.
 	(if mismatch
-	    (setq face 'show-paren-mismatch-face)
+	    (progn
+	      (if show-paren-ring-bell-on-mismatch
+		  (beep))
+	      (setq face 'show-paren-mismatch-face))
 	  (setq face 'show-paren-match-face))
 	;;
 	;; If matching backwards, highlight the closeparen