CC Mode 5.25 (C); electricity in keyboard macros

[Fabrice Bauzac]

Dear Barry and Martin,

When I "C-x ( { } C-x )", and when I execute it with e.g. "C-u C-u C-x
e", the electric } flashes for one second each time it is inserted (I
mean, it highlights the matching '{'): I think c-electric-brace should
check for executing-macro and, if not nil, turn off the 1-second
highlight.  It applies to ')' too.

We discussed about it in the bug-gnu-emacs mailing-list, and Eli
Zaretskii and RMS agree.

This is just a suggested improvement.  I would like to help you, but I
don't know Elisp very much at the moment.

I would like to thank you for this great job on cc-mode.

Have a nice day!

--
fabrice bauzac
Software should be free.

Emacs  : GNU Emacs 20.7.2 (i386-debian-linux-gnu, X toolkit)
 of Mon Jul 23 2001 on raven modified by Debian
Package: CC Mode 5.25 (C)
Buffer Style: gnu


c-emacs-features: (1-bit)

current state:
==============
(setq
 c-basic-offset 2
 c-offsets-alist '((string . c-lineup-dont-change)
                   (c . c-lineup-C-comments)
                   (defun-open . 0)
                   (defun-close . 0)
                   (defun-block-intro . +)
                   (class-open . 0)
                   (class-close . 0)
                   (inline-open . 0)
                   (inline-close . 0)
                   (func-decl-cont . +)
                   (knr-argdecl-intro . 5)
                   (knr-argdecl . 0)
                   (topmost-intro . 0)
                   (topmost-intro-cont . 0)
                   (member-init-intro . +)
                   (member-init-cont . 0)
                   (inher-intro . +)
                   (inher-cont . c-lineup-multi-inher)
                   (block-open . 0)
                   (block-close . 0)
                   (brace-list-open . 0)
                   (brace-list-close . 0)
                   (brace-list-intro . +)
                   (brace-list-entry . 0)
                   (brace-entry-open . 0)
                   (statement . 0)
                   (statement-cont . +)
                   (statement-block-intro . +)
                   (statement-case-intro . +)
                   (statement-case-open . +)
                   (substatement . +)
                   (substatement-open . +)
                   (case-label . 0)
                   (access-label . -)
                   (label . 0)
                   (do-while-closure . 0)
                   (else-clause . 0)
                   (catch-clause . 0)
                   (comment-intro . c-lineup-comment)
                   (arglist-intro . c-lineup-arglist-intro-after-paren)
                   (arglist-cont . 0)
                   (arglist-cont-nonempty . c-lineup-arglist)
                   (arglist-close . c-lineup-arglist)
                   (stream-op . c-lineup-streamop)
                   (inclass . +)
                   (cpp-macro . -1000)
                   (cpp-macro-cont . c-lineup-dont-change)
                   (friend . 0)
                   (objc-method-intro . -1000)
                   (objc-method-args-cont . c-lineup-ObjC-method-args)
                   (objc-method-call-cont . c-lineup-ObjC-method-call)
                   (extern-lang-open . 0)
                   (extern-lang-close . 0)
                   (inextern-lang . +)
                   (namespace-open . 0)
                   (namespace-close . 0)
                   (innamespace . +)
                   (template-args-cont . +)
                   (inlambda . c-lineup-inexpr-block)
                   (lambda-intro-cont . +)
                   (inexpr-statement . 0)
                   (inexpr-class . +)
                   )
 c-cleanup-list '(scope-operator)
 c-comment-only-line-offset '(0 . 0)
 c-backslash-column 48
 c-delete-function 'delete-char
 c-electric-pound-behavior nil
 c-hanging-braces-alist '((brace-list-open) (brace-entry-open)
                          (substatement-open after)
                          (block-close . c-snug-do-while)
                          (extern-lang-open after) (inexpr-class-open after)
                          (inexpr-class-close before))
 c-hanging-colons-alist nil
 c-hanging-comment-starter-p t
 c-hanging-comment-ender-p t
 c-indent-comments-syntactically-p nil
 c-tab-always-indent t
 c-comment-continuation-stars ""
 c-label-minimum-indentation 1
 defun-prompt-regexp nil
 tab-width 8
 comment-column 32
 )