diff lisp/calc/calc-stuff.el @ 41047:73f364fd8aaa

Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.

--- a/lisp/calc/calc-stuff.el	Wed Nov 14 09:08:03 2001 +0000
+++ b/lisp/calc/calc-stuff.el	Wed Nov 14 09:09:09 2001 +0000
@@ -1,5 +1,5 @@
 ;; Calculator for GNU Emacs, part II [calc-stuff.el]
-;; Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
+;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
 ;; Written by Dave Gillespie, [e-mail].
 
 ;; This file is part of GNU Emacs.
@@ -43,8 +43,7 @@
 	   (error "Argument must be a small integer"))
        (calc-pop-stack 1)
        (setq prefix-arg num)
-       (message "%d-" num))))    ; a (lame) simulation of the real thing...
-)
+       (message "%d-" num)))))    ; a (lame) simulation of the real thing...
 
 
 (defun calc-more-recursion-depth (n)
@@ -56,8 +55,7 @@
        (if (> n 1)
 	   (setq max-specpdl-size (* max-specpdl-size n)
 		 max-lisp-eval-depth (* max-lisp-eval-depth n))))
-     (message "max-lisp-eval-depth is now %d" max-lisp-eval-depth)))
-)
+     (message "max-lisp-eval-depth is now %d" max-lisp-eval-depth))))
 
 (defun calc-less-recursion-depth (n)
   (interactive "P")
@@ -67,8 +65,7 @@
 	      (max (/ max-specpdl-size n) 600)
 	      max-lisp-eval-depth
 	      (max (/ max-lisp-eval-depth n) 200))))
-  (message "max-lisp-eval-depth is now %d" max-lisp-eval-depth)
-)
+  (message "max-lisp-eval-depth is now %d" max-lisp-eval-depth))
 
 
 (defun calc-explain-why (why &optional more)
@@ -137,8 +134,7 @@
 					  (car why)
 					(math-format-flat-expr (car why) 0)))
 		 punc ", ")))
-    (message "%s%s" msg (if more "  [w=more]" "")))
-)
+    (message "%s%s" msg (if more "  [w=more]" ""))))
 
 (defun calc-why ()
   (interactive)
@@ -154,8 +150,7 @@
 	(progn
 	  (message "(No further explanations available)")
 	  (setq calc-which-why calc-why))
-      (message "No explanations available")))
-)
+      (message "No explanations available"))))
 (setq calc-which-why nil)
 (setq calc-last-why-command nil)
 
@@ -184,8 +179,7 @@
 	 math-format-date-cache nil
 	 math-holidays-cache-tag t)
    (mapcar (function (lambda (x) (set x -100))) math-cache-list)
-   (message "All internal calculator caches have been reset."))
-)
+   (message "All internal calculator caches have been reset.")))
 
 
 ;;; Conversions.
@@ -203,8 +197,7 @@
 				     (if (<= n 0)
 					 (+ n calc-internal-prec)
 				       n)))
-			   (list func (calc-top-n 1)))))))
-)
+			   (list func (calc-top-n 1))))))))
 
 (defun calc-clean-num (num)
   (interactive "P")
@@ -213,8 +206,7 @@
 		   (if (and (>= last-command-char ?0)
 			    (<= last-command-char ?9))
 		       (- last-command-char ?0)
-		     (error "Number required")))))
-)
+		     (error "Number required"))))))
 
 
 (defun calcFunc-clean (a &optional prec)   ; [X X S] [Public]
@@ -257,27 +249,22 @@
 	     a))
 	  ((Math-objectp a) a)
 	  ((math-infinitep a) a)
-	  (t (list 'calcFunc-clean a))))
-)
+	  (t (list 'calcFunc-clean a)))))
 (setq math-chopping-small nil)
 
 (defun calcFunc-pclean (a &optional prec)
   (math-map-over-constants (function (lambda (x) (calcFunc-clean x prec)))
-			   a)
-)
+			   a))
 
 (defun calcFunc-pfloat (a)
-  (math-map-over-constants 'math-float a)
-)
+  (math-map-over-constants 'math-float a))
 
 (defun calcFunc-pfrac (a &optional tol)
   (math-map-over-constants (function (lambda (x) (calcFunc-frac x tol)))
-			   a)
-)
+			   a))
 
 (defun math-map-over-constants (func expr)
-  (math-map-over-constants-rec expr)
-)
+  (math-map-over-constants-rec expr))
 
 (defun math-map-over-constants-rec (expr)
   (cond ((or (Math-primp expr)
@@ -292,9 +279,6 @@
 	 (list (car expr)
 	       (math-map-over-constants-rec (nth 1 expr))
 	       (nth 2 expr)))
-	(t (cons (car expr) (mapcar 'math-map-over-constants-rec (cdr expr)))))
-)
+	(t (cons (car expr) (mapcar 'math-map-over-constants-rec (cdr expr))))))
 
-
-
-
+;;; calc-stuff.el ends here