Re: left brackets insert both

["rgb" <rbielaws@i1.net>]

> 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.

And now I remember why I didn't make it earlier.  It's
really a bit more compilcated than that.   But not much.

    (defmacro my-insert-if-double (new-txt)
   "If last key same as this key, replace both with new-txt."
   `(lambda (cnt raw)
      (interactive "p\nP")
      (if (and (equal (preceding-char) last-command-char)
               (not raw))
          (progn
              (backward-delete-char 1)
              (insert ,new-txt))
          (self-insert-command cnt))))