X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/7815fe1985833c57457882b415a29358991dabdc..c5ad92de10abe251165a21977b388d3e799660ac:/lisp/calc/calc-bin.el

diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el
index 4ab698ea64..a159488b93 100644
--- a/lisp/calc/calc-bin.el
+++ b/lisp/calc/calc-bin.el
@@ -1,7 +1,6 @@
 ;;; calc-bin.el --- binary functions for Calc
 
-;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 1990-1993, 2001-2013 Free Software Foundation, Inc.
 
 ;; Author: David Gillespie <daveg@synaptics.com>
 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>
@@ -292,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)
@@ -304,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))
@@ -854,5 +853,4 @@ the size of a Calc bignum digit.")
 
 (provide 'calc-bin)
 
-;; arch-tag: f6dba7bc-53b2-41ae-919c-c266ab0ca8b3
 ;;; calc-bin.el ends here