Re: left brackets insert both

[rgb]

> (defmacro my-bothbraces-if-double (new-txt)
>   "If the last key is the same as this key, insert new-txt and go
back
> a char"
>   `(lambda (cnt)
>      (interactive "p")
>      (if (equal (preceding-char) last-command-char)
>          (progn
>            (insert ,new-txt)
>            (backward-char))
>        (self-insert-command cnt))))

I'm reminded that I've long thought I should make this change:

(if (and (equal (preceding-char) last-command-char)
         (= cnt 1))

I just never got around to it.
Vary rarely does it make any difference.