Richard Stallman <[EMAIL PROTECTED]> writes:
> Does this patch do the right thing?
Not entirely.
Here is a better patch:
*** mouse.el 03 Feb 2007 00:29:40 +0100 1.311
--- mouse.el 26 Feb 2007 11:07:44 +0100
***************
*** 1276,1282 ****
(unless ignore
;; For certain special keys, delete the region.
(if (member key mouse-region-delete-keys)
! (delete-region (mark t) (point))
;; Otherwise, unread the key so it gets executed normally.
(setq unread-command-events
(nconc events unread-command-events))))
--- 1276,1292 ----
(unless ignore
;; For certain special keys, delete the region.
(if (member key mouse-region-delete-keys)
! (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))))
--
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
