From: ueno <ueno>
Date: Fri, 10 Nov 2000 07:28:58 +0000 (+0000)
Subject: Fix paren style.
X-Git-Tag: deisui-1_14_0-2000-12-14~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bdeb3175f4f9ecaa25584dd3c7680d0f0dacca1b;p=elisp%2Fflim.git

Fix paren style.
---

diff --git a/FLIM-CFG b/FLIM-CFG
index 05736ce..7fd366e 100644
--- a/FLIM-CFG
+++ b/FLIM-CFG
@@ -13,8 +13,7 @@
     (progn
       (add-to-list 'default-load-path LISPDIR)
       (add-to-list 'load-path LISPDIR)
-      (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
-      ))
+      (add-to-list 'load-path (expand-file-name "apel" LISPDIR))))
 
 (if (boundp 'VERSION_SPECIFIC_LISPDIR)
     (add-to-list 'load-path VERSION_SPECIFIC_LISPDIR))
diff --git a/FLIM-MK b/FLIM-MK
index 1dc86c9..a0474ae 100644
--- a/FLIM-MK
+++ b/FLIM-MK
@@ -8,37 +8,31 @@
   (let (prefix lisp-dir version-specific-lisp-dir)
     (and (setq prefix (car command-line-args-left))
 	 (or (string-equal "NONE" prefix)
-	     (defvar PREFIX prefix)
-	     ))
+	     (defvar PREFIX prefix)))
     (setq command-line-args-left (cdr command-line-args-left))
     (and (setq lisp-dir (car command-line-args-left))
 	 (or (string-equal "NONE" lisp-dir)
-	     (defvar LISPDIR lisp-dir)
-	     ))
+	     (defvar LISPDIR lisp-dir)))
     (setq command-line-args-left (cdr command-line-args-left))
     (and (setq version-specific-lisp-dir (car command-line-args-left))
 	 (or (string-equal "NONE" version-specific-lisp-dir)
 	     (progn
 	       (defvar VERSION_SPECIFIC_LISPDIR version-specific-lisp-dir)
 	       (princ (format "VERSION_SPECIFIC_LISPDIR=%s\n"
-			      VERSION_SPECIFIC_LISPDIR)))
-	     ))
+			      VERSION_SPECIFIC_LISPDIR)))))
     (setq command-line-args-left (cdr command-line-args-left))
     (load-file "FLIM-CFG")
     (load-file "FLIM-ELS")
     (princ (format "PREFIX=%s
-LISPDIR=%s\n" PREFIX LISPDIR))
-    ))
+LISPDIR=%s\n" PREFIX LISPDIR))))
 
 (defun compile-flim ()
   (config-flim)
-  (compile-elisp-modules flim-modules ".")
-  )
+  (compile-elisp-modules flim-modules "."))
 
 (defun install-flim ()
   (config-flim)
-  (install-elisp-modules flim-modules "./" FLIM_DIR)
-  )
+  (install-elisp-modules flim-modules "./" FLIM_DIR))
 
 (defun check-flim ()
   (config-flim)
@@ -52,8 +46,7 @@ LISPDIR=%s\n" PREFIX LISPDIR))
 	    (lunit-test-suite-add-test
 	     suite (lunit-make-test-suite-from-class
 		    (intern (file-name-sans-extension
-			     (file-name-nondirectory
-			      (car files))))))))
+			     (file-name-nondirectory (car files))))))))
       (setq files (cdr files)))
     (lunit suite)))
 
@@ -61,15 +54,13 @@ LISPDIR=%s\n" PREFIX LISPDIR))
   (let (package-dir)
     (and (setq package-dir (car command-line-args-left))
 	 (or (string= "NONE" package-dir)
-	     (defvar PACKAGEDIR package-dir)
-	     ))
+	     (defvar PACKAGEDIR package-dir)))
     (setq command-line-args-left (cdr command-line-args-left))
     (load-file "FLIM-CFG")
     (load-file "FLIM-ELS")
     (setq flim-modules (append flim-modules
 			       '(auto-autoloads custom-load)))
-    (princ (format "PACKAGEDIR=%s\n" PACKAGEDIR))
-    ))
+    (princ (format "PACKAGEDIR=%s\n" PACKAGEDIR))))
 
 (defun compile-flim-package ()
   (config-flim-package)
@@ -81,8 +72,7 @@ LISPDIR=%s\n" PREFIX LISPDIR))
   (add-to-list 'command-line-args-left ".")
   (Custom-make-dependencies)
 
-  (compile-elisp-modules flim-modules ".")
-  )
+  (compile-elisp-modules flim-modules "."))
 
 (defun install-flim-package ()
   (config-flim-package)
@@ -92,7 +82,6 @@ LISPDIR=%s\n" PREFIX LISPDIR))
 					   (expand-file-name "lisp"
 							     PACKAGEDIR)))
   (delete-file "./auto-autoloads.el")
-  (delete-file "./custom-load.el")
-  )
+  (delete-file "./custom-load.el"))
 
 ;;; FLIM-MK ends here