Mercurial > emacs

changeset 59292:c8adcd0d5e2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(copy-region-as-kill): Deactivate mark.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 02 Jan 2005 01:20:14 +0000
parents f9b36c35d690
children eacd4fd94e38
files lisp/ses.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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