/[emacs]/emacs/lisp/calc/calc-sel.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-sel.el

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

revision 1.4 by walters, Mon Nov 19 07:37:51 2001 UTC revision 1.4.4.1 by miles, Fri Apr 4 06:20:15 2003 UTC
# Line 3  Line 3 
3  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
4    
5  ;; Author: David Gillespie <daveg@synaptics.com>  ;; Author: David Gillespie <daveg@synaptics.com>
6  ;; Maintainer: Colin Walters <walters@debian.org>  ;; Maintainers: D. Goel <deego@gnufans.org>
7    ;;              Colin Walters <walters@debian.org>
8    
9  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
10    
# Line 49  Line 50 
50             (if once (progn             (if once (progn
51                        (setq calc-keep-selection nil)                        (setq calc-keep-selection nil)
52                        (message "(Selection will apply to next command only)")))                        (message "(Selection will apply to next command only)")))
53             (calc-change-current-selection             (calc-change-current-selection
54              (if found              (if found
55                  (if (and num (> (setq num (prefix-numeric-value num)) 0))                  (if (and num (> (setq num (prefix-numeric-value num)) 0))
56                      (progn                      (progn
# Line 112  Line 113 
113     (calc-prepare-selection)     (calc-prepare-selection)
114     (let ((found (calc-find-selected-part))     (let ((found (calc-find-selected-part))
115           (entry calc-selection-cache-entry))           (entry calc-selection-cache-entry))
116       (calc-change-current-selection       (calc-change-current-selection
117        (and found        (and found
118             (let ((sel (nth 2 entry))             (let ((sel (nth 2 entry))
119                   old index op)                   old index op)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.4.1

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