[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ses.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ses.el |
Date: |
Sat, 01 Jan 2005 20:31:43 -0500 |
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
- [Emacs-diffs] Changes to emacs/lisp/ses.el,
Stefan Monnier <=