> ! (progn
> ! ;; Since notionally this is a separate command,
> ! ;; run all the hooks that would be run if it were
> ! ;; executed separately.
> ! (run-hooks 'post-command-hook)
> ! (setq last-command this-command)
> ! (setq this-original-command 'delete-region)
> ! (setq this-command (or (command-remapping this-original-command)
> ! this-original-command))
> ! (run-hooks 'pre-command-hook)
> ! (call-interactively this-command))
Can you say "yuck"?
BTW, please put this out-of-line (i.e. in its own function). The code is
sufficiently messy and unreadable as is.
Stefan
_______________________________________________
emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
