procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mouse-show-mark): Run hooks and perform command

Browse source 
remapping for mouse-region-delete-keys.
This commit is contained in:
Kim F. Storm 2007-02-26 10:11:34 +00:00
parent 864129b6f7
commit 760a2050ca
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/mouse.el
View file

@ -1276,7 +1276,17 @@ If MODE is 2 then do the same for lines."
(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))))