Mercurial > emacs
comparison lisp/ses.el @ 59292:c8adcd0d5e2e
(copy-region-as-kill): Deactivate mark.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 02 Jan 2005 01:20:14 +0000 |
| parents | 924fa48ab4bf |
| children | e57ef5d6d521 f6b4d0ebf147 |
comparison
equal
deleted
inserted
replaced
| 59291:f9b36c35d690 | 59292:c8adcd0d5e2e |
|---|---|
| 1 ;;; ses.el -- Simple Emacs Spreadsheet -*- coding: utf-8 -*- | 1 ;;; ses.el -- Simple Emacs Spreadsheet -*- coding: utf-8 -*- |
| 2 | 2 |
| 3 ;; Copyright (C) 2002,03,04 Free Software Foundation, Inc. | 3 ;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: Jonathan Yavner <jyavner@member.fsf.org> | 5 ;; Author: Jonathan Yavner <jyavner@member.fsf.org> |
| 6 ;; Maintainer: Jonathan Yavner <jyavner@member.fsf.org> | 6 ;; Maintainer: Jonathan Yavner <jyavner@member.fsf.org> |
| 7 ;; Keywords: spreadsheet | 7 ;; Keywords: spreadsheet |
| 8 | 8 |
| 2329 end temp))) | 2329 end temp))) |
| 2330 (if (not (and (eq major-mode 'ses-mode) | 2330 (if (not (and (eq major-mode 'ses-mode) |
| 2331 (eq (get-text-property beg 'read-only) 'ses) | 2331 (eq (get-text-property beg 'read-only) 'ses) |
| 2332 (eq (get-text-property (1- end) 'read-only) 'ses))) | 2332 (eq (get-text-property (1- end) 'read-only) 'ses))) |
| 2333 ad-do-it ;Normal copy-region-as-kill | 2333 ad-do-it ;Normal copy-region-as-kill |
| 2334 (kill-new (ses-copy-region beg end)))) | 2334 (kill-new (ses-copy-region beg end)) |
| 2335 (if transient-mark-mode | |
| 2336 (setq deactivate-mark t)) | |
| 2337 nil)) | |
| 2335 | 2338 |
| 2336 (defun ses-copy-region (beg end) | 2339 (defun ses-copy-region (beg end) |
| 2337 "Treat the region as rectangular. Convert the intangible attributes to | 2340 "Treat the region as rectangular. Convert the intangible attributes to |
| 2338 SES attributes recording the contents of the cell as of the time of copying." | 2341 SES attributes recording the contents of the cell as of the time of copying." |
| 2339 (let* ((inhibit-point-motion-hooks t) | 2342 (let* ((inhibit-point-motion-hooks t) |