Mercurial > emacs

comparison lisp/calc/calc-sel.el @ 90133:4da4a09e8b1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-31 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 206-222) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 45-52) - Update from CVS - Update from CVS: texi Makefile.in CVS keyw cruft - Update from CVS: ChangeLog tweaks
author Miles Bader <miles@gnu.org>
date Thu, 31 Mar 2005 09:58:14 +0000
parents cb67264d6096 7b8e42efa46a
children 187d6a1f84f7
comparison
equal deleted inserted replaced
90132:4080fe8b4f0f 90133:4da4a09e8b1b
1 ;;; calc-sel.el --- data selection functions for Calc 1 ;;; calc-sel.el --- data selection functions for Calc
2 2
3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2005
4 ;; Free Software Foundation, Inc.
4 5
5 ;; Author: David Gillespie <daveg@synaptics.com> 6 ;; Author: David Gillespie <daveg@synaptics.com>
6 ;; Maintainer: Jay Belanger <belanger@truman.edu> 7 ;; Maintainer: Jay Belanger <belanger@truman.edu>
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
488 (t 489 (t
489 (cons (car expr) 490 (cons (car expr)
490 (mapcar 'calc-replace-sub-formula-rec (cdr expr)))))) 491 (mapcar 'calc-replace-sub-formula-rec (cdr expr))))))
491 492
492 (defun calc-sel-error () 493 (defun calc-sel-error ()
493 (error "Illegal operation on sub-formulas")) 494 (error "Invalid operation on sub-formulas"))
494 495
495 (defun calc-replace-selections (n vals m) 496 (defun calc-replace-selections (n vals m)
496 (if (calc-top-selected n m) 497 (if (calc-top-selected n m)
497 (let ((num (length vals))) 498 (let ((num (length vals)))
498 (calc-preserve-point) 499 (calc-preserve-point)