# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1104628814 0
# Node ID c8adcd0d5e2e2f15a2935269f864ef94f458e64e
# Parent  f9b36c35d6906231372379ae521fd9bbb5212c16
(copy-region-as-kill): Deactivate mark.

diff -r f9b36c35d690 -r c8adcd0d5e2e lisp/ses.el
--- a/lisp/ses.el	Sat Jan 01 22:29:54 2005 +0000
+++ b/lisp/ses.el	Sun Jan 02 01:20:14 2005 +0000
@@ -1,6 +1,6 @@
 ;;; ses.el -- Simple Emacs Spreadsheet  -*- coding: utf-8 -*-
 
-;; Copyright (C) 2002,03,04  Free Software Foundation, Inc.
+;; Copyright (C) 2002, 2003, 2004, 2005  Free Software Foundation, Inc.
 
 ;; Author: Jonathan Yavner <jyavner@member.fsf.org>
 ;; Maintainer: Jonathan Yavner <jyavner@member.fsf.org>
@@ -2331,7 +2331,10 @@
 		(eq (get-text-property beg 'read-only) 'ses)
 		(eq (get-text-property (1- end) 'read-only) 'ses)))
       ad-do-it ;Normal copy-region-as-kill
-    (kill-new (ses-copy-region beg end))))
+    (kill-new (ses-copy-region beg end))
+    (if transient-mark-mode
+	(setq deactivate-mark t))
+    nil))
 
 (defun ses-copy-region (beg end)
   "Treat the region as rectangular.  Convert the intangible attributes to