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