aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorWerner LEMBERG2005-03-25 08:16:06 +0000
committerWerner LEMBERG2005-03-25 08:16:06 +0000
commit25f72ec049aaf1414a260a27317a545b3793f8bb (patch)
tree0ce8cc268e00802ff34c634ff1c0d9a77b330780
parentdc3a0017dbbde6024a57cb7d20e23c7604338f0d (diff)
downloademacs-25f72ec049aaf1414a260a27317a545b3793f8bb.tar.gz
emacs-25f72ec049aaf1414a260a27317a545b3793f8bb.zip
* calc/calc-forms.el, calc/calc-sel: Replace `illegal' with
`invalid'.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/calc/calc-forms.el7
-rw-r--r--lisp/calc/calc-sel.el5
3 files changed, 12 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c87a9df10c7..99ff97a561d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12005-03-25 Werner Lemberg <wl@gnu.org>
2
3 * calc/calc-forms.el, calc/calc-sel: Replace `illegal' with
4 `invalid'.
5
12005-03-24 Stefan Monnier <monnier@iro.umontreal.ca> 62005-03-24 Stefan Monnier <monnier@iro.umontreal.ca>
2 7
3 * comint.el (comint-insert-input): Obey mouse-yank-at-point. 8 * comint.el (comint-insert-input): Obey mouse-yank-at-point.
diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el
index d4ddada6a0c..4870891231a 100644
--- a/lisp/calc/calc-forms.el
+++ b/lisp/calc/calc-forms.el
@@ -1,6 +1,7 @@
1;;; calc-forms.el --- data format conversion functions for Calc 1;;; calc-forms.el --- data format conversion functions for Calc
2 2
3;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2004 Free Software Foundation, Inc. 3;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2004, 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>
@@ -1434,7 +1435,7 @@ and ends on the last Sunday of October at 2 a.m."
1434(defun calcFunc-badd (a b) 1435(defun calcFunc-badd (a b)
1435 (if (eq (car-safe b) 'date) 1436 (if (eq (car-safe b) 'date)
1436 (if (eq (car-safe a) 'date) 1437 (if (eq (car-safe a) 'date)
1437 (math-reject-arg nil "*Illegal combination in date arithmetic") 1438 (math-reject-arg nil "*Invalid combination in date arithmetic")
1438 (calcFunc-badd b a)) 1439 (calcFunc-badd b a))
1439 (if (eq (car-safe a) 'date) 1440 (if (eq (car-safe a) 'date)
1440 (if (Math-realp b) 1441 (if (Math-realp b)
@@ -1452,7 +1453,7 @@ and ends on the last Sunday of October at 2 a.m."
1452 (if hours 1453 (if hours
1453 (setq b (math-div b (cdr hours)))) 1454 (setq b (math-div b (cdr hours))))
1454 (calcFunc-badd a b)) 1455 (calcFunc-badd a b))
1455 (math-reject-arg nil "*Illegal combination in date arithmetic"))) 1456 (math-reject-arg nil "*Invalid combination in date arithmetic")))
1456 (math-reject-arg a 'datep)))) 1457 (math-reject-arg a 'datep))))
1457 1458
1458(defun calcFunc-holiday (a) 1459(defun calcFunc-holiday (a)
diff --git a/lisp/calc/calc-sel.el b/lisp/calc/calc-sel.el
index 4ae0df5d3ba..04cb2bee2bd 100644
--- a/lisp/calc/calc-sel.el
+++ b/lisp/calc/calc-sel.el
@@ -1,6 +1,7 @@
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>
@@ -490,7 +491,7 @@
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)