# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1127692708 0
# Node ID c2508361021b9cb27d5de140bd8a1e21624c97df
# Parent  8430a6e62d6c59f2eb77f1b811886a9fdc4c07fd
(c-electric-paren): Call old-blink-paren only for close-paren.

diff -r 8430a6e62d6c -r c2508361021b lisp/progmodes/cc-cmds.el
--- a/lisp/progmodes/cc-cmds.el	Sun Sep 25 23:57:10 2005 +0000
+++ b/lisp/progmodes/cc-cmds.el	Sun Sep 25 23:58:28 2005 +0000
@@ -907,7 +907,8 @@
 	     ;; 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 @@
 		 (delete-region beg end))))
 	(and (not executing-kbd-macro)
 	     old-blink-paren
+	     (not noblink)
 	     (funcall old-blink-paren))))))
 
 (defun c-electric-continued-statement ()