diff options
| author | Werner LEMBERG | 2005-03-25 08:16:06 +0000 |
|---|---|---|
| committer | Werner LEMBERG | 2005-03-25 08:16:06 +0000 |
| commit | 25f72ec049aaf1414a260a27317a545b3793f8bb (patch) | |
| tree | 0ce8cc268e00802ff34c634ff1c0d9a77b330780 | |
| parent | dc3a0017dbbde6024a57cb7d20e23c7604338f0d (diff) | |
| download | emacs-25f72ec049aaf1414a260a27317a545b3793f8bb.tar.gz emacs-25f72ec049aaf1414a260a27317a545b3793f8bb.zip | |
* calc/calc-forms.el, calc/calc-sel: Replace `illegal' with
`invalid'.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/calc/calc-forms.el | 7 | ||||
| -rw-r--r-- | lisp/calc/calc-sel.el | 5 |
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 @@ | |||
| 1 | 2005-03-25 Werner Lemberg <wl@gnu.org> | ||
| 2 | |||
| 3 | * calc/calc-forms.el, calc/calc-sel: Replace `illegal' with | ||
| 4 | `invalid'. | ||
| 5 | |||
| 1 | 2005-03-24 Stefan Monnier <monnier@iro.umontreal.ca> | 6 | 2005-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) |