# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1049410729 0
# Node ID b03765d292c2a1458c19d3892ff2ed4ffc19c175
# Parent  713cf8885bc9b3e4e5abaa1c9881a1ced03a7e9c
(delete-active-region): Don't explicitly deactivate mark.

diff -r 713cf8885bc9 -r b03765d292c2 lisp/delsel.el
--- a/lisp/delsel.el	Thu Apr 03 16:09:02 2003 +0000
+++ b/lisp/delsel.el	Thu Apr 03 22:58:49 2003 +0000
@@ -75,8 +75,6 @@
   (if killp
       (kill-region (point) (mark))
     (delete-region (point) (mark)))
-  (setq mark-active nil)
-  (run-hooks 'deactivate-mark-hook)
   t)
 
 (defun delete-selection-pre-hook ()