Stefan Monnier <[EMAIL PROTECTED]> writes: >> ! (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"?
It is not pretty, but what's the alternative (at this stage)? > > BTW, please put this out-of-line (i.e. in its own function). The code is > sufficiently messy and unreadable as is. We could add a fourth optional arg, NEW-P, to call-interactively which causes it to execute the given command as a separate command, i.e. by executing the code above. But I would rather like to re-implement the whole command loop in Lisp after the release. -- Kim F. Storm <[EMAIL PROTECTED]> http://www.cua.dk _______________________________________________ emacs-pretest-bug mailing list [email protected] http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
