diff lisp/calc/calc-maint.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-maint.el	Wed Nov 14 09:08:03 2001 +0000
+++ b/lisp/calc/calc-maint.el	Wed Nov 14 09:09:09 2001 +0000
@@ -1,5 +1,5 @@
 ;; Calculator for GNU Emacs, maintenance routines
-;; 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.
@@ -42,8 +42,7 @@
 	      (calc-do-compile))
 	  (fset 'message old-message)
 	  (fset 'write-region old-write-region)))
-    (calc-do-compile))
-)
+    (calc-do-compile)))
 
 (defun calc-do-compile ()
   (let ((make-backup-files nil)
@@ -133,8 +132,7 @@
 			    (sort rules 'string<))
 		    (save-buffer))))
 	  (error (message "Unable to pre-build tables %s" err))))
-    (message "Done.  Don't forget to install with \"make public\" or \"make private\"."))
-)
+    (message "Done.  Don't forget to install with \"make public\" or \"make private\".")))
 
 (defun calc-compile-message (fmt &rest args)
   (cond ((and (= (length args) 2)
@@ -166,8 +164,7 @@
 	 (send-string-to-terminal (apply 'format fmt args)))
 	((string-match "\\(Preparing\\|Building\\).*\\.\\.\\. *done$" fmt)
 	 (send-string-to-terminal "done\n"))
-	(t (apply old-message fmt args)))
-)
+	(t (apply old-message fmt args))))
 
 (defun calc-compile-write-region (start end filename &optional append visit &rest rest)
   (if (eq visit t)
@@ -182,8 +179,7 @@
 	(setq end (point-max))))
   (apply old-write-region start end filename append 'quietly rest)
   (message "Wrote %s" filename)
-  nil
-)
+  nil)
 
 
 
@@ -241,8 +237,7 @@
     (goto-char 1))
   (message (cond ((eq part 1) "Wrote file calctut.tex")
 		 ((eq part 2) "Wrote file calcref.tex")
-		 (t "Wrote files calctut.tex and calcref.tex")))
-)
+		 (t "Wrote files calctut.tex and calcref.tex"))))
 
 (defun calc-split-volume (number fix name other-name)
   (goto-char 1)
@@ -270,14 +265,12 @@
   (while (search-forward "@c [not-split]\n" nil t)
     (while (not (looking-at "@c"))
       (insert "@c ")
-      (forward-line 1)))
-)
+      (forward-line 1))))
 
 
 (defun calc-inline-summary ()
   "Make a special \"calcsum.tex\" file to be used with main manual."
-  (calc-split-summary nil t)
-)
+  (calc-split-summary nil t))
 
 (defun calc-split-summary (&optional force in-line)
   "Make a special \"calcsum.tex\" file with just the Calc summary."
@@ -392,8 +385,7 @@
 	 "Unable to find Key Index (calc.ky); no page numbers inserted"))
       (switch-to-buffer buf))
     (save-buffer))
-  (message "Wrote file calcsum.tex")
-)
+  (message "Wrote file calcsum.tex"))
 
 
 
@@ -414,8 +406,7 @@
     (find-file name)
     (if buffer-read-only (error "No write permission for \"%s\"" buffer-file-name))
     (goto-char (point-max))
-    (calc-add-autoloads home "calc-public-autoloads"))
-)
+    (calc-add-autoloads home "calc-public-autoloads")))
 
 (defun calc-private-autoloads ()
   "Modify the user's \".emacs\" file to contain the necessary autoload and
@@ -424,8 +415,7 @@
   (let ((home default-directory))
     (find-file "~/.emacs")
     (goto-char (point-max))
-    (calc-add-autoloads home "calc-private-autoloads"))
-)
+    (calc-add-autoloads home "calc-private-autoloads")))
 
 (defun calc-add-autoloads (home cmd)
   (barf-if-buffer-read-only)
@@ -458,9 +448,6 @@
 \(global-set-key \"\\e#\" 'calc-dispatch)
 ;;; End of Calc autoloads.\n")
   (let ((trim-versions-without-asking t))
-    (save-buffer))
-)
+    (save-buffer)))
 
-
-
-;;; End.
+;;; calc-maint.el ends here