[Emacs-diffs] Changes to emacs/lisp/ses.el

[Stefan Monnier]

Index: emacs/lisp/ses.el
diff -c emacs/lisp/ses.el:1.10 emacs/lisp/ses.el:1.11
*** emacs/lisp/ses.el:1.10      Mon Nov 22 01:21:07 2004
--- emacs/lisp/ses.el   Sun Jan  2 01:20:14 2005
***************
*** 1,6 ****
  ;;; ses.el -- Simple Emacs Spreadsheet  -*- coding: utf-8 -*-
  
! ;; Copyright (C) 2002,03,04  Free Software Foundation, Inc.
  
  ;; Author: Jonathan Yavner <address@hidden>
  ;; Maintainer: Jonathan Yavner <address@hidden>
--- 1,6 ----
  ;;; ses.el -- Simple Emacs Spreadsheet  -*- coding: utf-8 -*-
  
! ;; Copyright (C) 2002, 2003, 2004, 2005  Free Software Foundation, Inc.
  
  ;; Author: Jonathan Yavner <address@hidden>
  ;; Maintainer: Jonathan Yavner <address@hidden>
***************
*** 2331,2337 ****
                (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))))
  
  (defun ses-copy-region (beg end)
    "Treat the region as rectangular.  Convert the intangible attributes to
--- 2331,2340 ----
                (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))
!     (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