Re: pre-command-hook not run for DEL

[Kim F. Storm]

Richard Stallman <address@hidden> 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 <address@hidden> http://www.cua.dk