Fix paren style.
authorueno <ueno>
Fri, 10 Nov 2000 07:28:58 +0000 (07:28 +0000)
committerueno <ueno>
Fri, 10 Nov 2000 07:28:58 +0000 (07:28 +0000)
FLIM-CFG
FLIM-MK

index 05736ce..7fd366e 100644 (file)
--- 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 (file)
--- 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