X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/7be1c708c5abc7dea388d45454bd19bff07b7943..e82fd952f1548e3873ee78a748078ebc2eeb5119:/lisp/calc/calc-bin.el

diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el
index 20b4a9db5e..9a1e524e60 100644
--- a/lisp/calc/calc-bin.el
+++ b/lisp/calc/calc-bin.el
@@ -1,6 +1,6 @@
 ;;; calc-bin.el --- binary functions for Calc
 
-;; Copyright (C) 1990-1993, 2001-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1990-1993, 2001-2015 Free Software Foundation, Inc.
 
 ;; Author: David Gillespie <daveg@synaptics.com>
 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>
@@ -291,7 +291,7 @@ the size of a Calc bignum digit.")
 	  (if (eq (car-safe b) 'mod)
 	      (if (equal mod (nth 2 b))
 		  (setq b (nth 1 b))
-		(math-reject-arg b "*Inconsistent modulos"))))
+		(math-reject-arg b "*Inconsistent modulus"))))
       (setq mod (nth 2 b)
 	    b (nth 1 b)))
     (if (Math-messy-integerp mod)
@@ -303,9 +303,9 @@ the size of a Calc bignum digit.")
 	  (if w
 	      (if (/= w bits)
 		  (calc-record-why
-		   "*Warning: Modulo inconsistent with word size"))
+		   "*Warning: Modulus inconsistent with word size"))
 	    (setq w bits))
-	(calc-record-why "*Warning: Modulo is not a power of 2"))
+	(calc-record-why "*Warning: Modulus is not a power of 2"))
       (math-make-mod (if b
 			 (funcall f a b w)
 		       (funcall f a w))