From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 2 Jan 2005 01:20:14 +0000 (+0000)
Subject: (copy-region-as-kill): Deactivate mark.
X-Git-Tag: ttn-vms-21-2-B4~2980
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c759a327f3216d5c514e818d779d9678876ed43;p=emacs.git

(copy-region-as-kill): Deactivate mark.
---

diff --git a/lisp/ses.el b/lisp/ses.el
index e10d8c6360e..2a952aab286 100644
--- a/lisp/ses.el
+++ b/lisp/ses.el
@@ -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 @@ hard to override how mouse-1 works."
 		(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