Re: pre-command-hook not run for DEL

[Stefan Monnier]

> !       (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