diff lisp/progmodes/cc-cmds.el @ 65694:c2508361021b

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

--- 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 ()