Re: Another bug with the macro counter

[Stefan]

> ***************
> *** 865,873 ****
>     (if (and (integerp value)
>              (or (not (memq this-command '(eval-last-sexp 
> eval-print-last-sexp)))
>                  (eq this-command last-command)
> !                (and (boundp 'edebug-active) edebug-active)))
>         (let ((char-string
> !              (if (or (and (boundp 'edebug-active) edebug-active)
>                        (memq this-command '(eval-last-sexp 
> eval-print-last-sexp)))
>                    (prin1-char value))))
>           (if char-string
> --- 865,874 ----
>     (if (and (integerp value)
>              (or (not (memq this-command '(eval-last-sexp 
> eval-print-last-sexp)))
>                  (eq this-command last-command)
> !                (and (boundp 'edebug-active) (with-no-warnings 
> edebug-active))))
>         (let ((char-string
> !              (if (or (and (boundp 'edebug-active)
> !                       (with-no-warnings edebug-active))
>                        (memq this-command '(eval-last-sexp 
> eval-print-last-sexp)))
>                    (prin1-char value))))
>           (if char-string

I believe replacing (and (boundp 'foo) foo) with (if (boundp 'foo) foo)
is a better choice because it removes the warning wihtout cluttering the
code and without introducing compatibility problems with older Emacsen.


        Stefan