From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 25 Sep 2005 23:58:28 +0000 (+0000)
Subject: (c-electric-paren): Call old-blink-paren only for close-paren.
X-Git-Tag: emacs-pretest-22.0.90~6946
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=96fdce72bb41205baa8f82abb3580682035805db;p=emacs.git

(c-electric-paren): Call old-blink-paren only for close-paren.
---

diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el
index 039ef3ccebf..42808c3e307 100644
--- a/lisp/progmodes/cc-cmds.el
+++ b/lisp/progmodes/cc-cmds.el
@@ -907,7 +907,8 @@ is nil."
 	     ;; be most disruptive.  We'll blink it ourselves
 	     ;; afterwards.
 	     (old-blink-paren blink-paren-function)
-	     blink-paren-function)
+	     blink-paren-function
+	     (noblink (eq last-input-event ?\()))
 	(self-insert-command (prefix-numeric-value arg))
 	(if c-syntactic-indentation
 	    (indent-according-to-mode))
@@ -982,6 +983,7 @@ is nil."
 		 (delete-region beg end))))
 	(and (not executing-kbd-macro)
 	     old-blink-paren
+	     (not noblink)
 	     (funcall old-blink-paren))))))
 
 (defun c-electric-continued-statement ()