--- temp/delsel_old.el	2003-02-26 08:54:24.000000000 -0500
+++ c:/cygwin/usr/emacs-cvs/lisp/delsel.el	2003-02-26 08:55:08.000000000 -0500
@@ -75,8 +75,9 @@
   (if killp
       (kill-region (point) (mark))
     (delete-region (point) (mark)))
-  (setq mark-active nil)
-  (run-hooks 'deactivate-mark-hook)
+  (unless transient-mark-mode
+    (setq mark-active nil)
+    (run-hooks 'deactivate-mark-hook))
   t)
 
 (defun delete-selection-pre-hook ()