1 |
;;; ses.el -- Simple Emacs Spreadsheet -*- coding: utf-8 -*- |
;;; ses.el -- Simple Emacs Spreadsheet -*- coding: utf-8 -*- |
2 |
|
|
3 |
;; Copyright (C) 2002,03,04 Free Software Foundation, Inc. |
;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Jonathan Yavner <jyavner@member.fsf.org> |
;; Author: Jonathan Yavner <jyavner@member.fsf.org> |
6 |
;; Maintainer: Jonathan Yavner <jyavner@member.fsf.org> |
;; Maintainer: Jonathan Yavner <jyavner@member.fsf.org> |
2331 |
(eq (get-text-property beg 'read-only) 'ses) |
(eq (get-text-property beg 'read-only) 'ses) |
2332 |
(eq (get-text-property (1- end) 'read-only) 'ses))) |
(eq (get-text-property (1- end) 'read-only) 'ses))) |
2333 |
ad-do-it ;Normal copy-region-as-kill |
ad-do-it ;Normal copy-region-as-kill |
2334 |
(kill-new (ses-copy-region beg end)))) |
(kill-new (ses-copy-region beg end)) |
2335 |
|
(if transient-mark-mode |
2336 |
|
(setq deactivate-mark t)) |
2337 |
|
nil)) |
2338 |
|
|
2339 |
(defun ses-copy-region (beg end) |
(defun ses-copy-region (beg end) |
2340 |
"Treat the region as rectangular. Convert the intangible attributes to |
"Treat the region as rectangular. Convert the intangible attributes to |