> 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))))
_______________________________________________
Help-gnu-emacs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs
