/[emacs]/emacs/lisp/ses.el
ViewVC logotype

Diff of /emacs/lisp/ses.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by monnier, Mon Nov 22 01:21:07 2004 UTC revision 1.11 by monnier, Sun Jan 2 01:20:14 2005 UTC
# Line 1  Line 1 
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>
# Line 2331  hard to override how mouse-1 works." Line 2331  hard to override how mouse-1 works."
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

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26