Mercurial > emacs
changeset 76155:2854cd09e515
(mouse-show-mark): Run hooks and perform command
remapping for mouse-region-delete-keys.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Mon, 26 Feb 2007 10:11:34 +0000 |
| parents | db7a28104afb |
| children | 0fd86f055997 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Mon Feb 26 10:11:22 2007 +0000 +++ b/lisp/mouse.el Mon Feb 26 10:11:34 2007 +0000 @@ -1276,7 +1276,17 @@ (unless ignore ;; For certain special keys, delete the region. (if (member key mouse-region-delete-keys) - (delete-region (mark t) (point)) + (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)) ;; Otherwise, unread the key so it gets executed normally. (setq unread-command-events (nconc events unread-command-events))))