Abolish variable `SHELL' and `SHELLOPTION'.
authormorioka <morioka>
Fri, 9 Oct 1998 03:43:42 +0000 (03:43 +0000)
committermorioka <morioka>
Fri, 9 Oct 1998 03:43:42 +0000 (03:43 +0000)
SEMI-CFG

index 1fd4929..449cb87 100644 (file)
--- a/SEMI-CFG
+++ b/SEMI-CFG
@@ -4,8 +4,6 @@
 
 ;;; Code:
 
-(require 'cl)
-
 (defvar default-load-path load-path)
 
 (add-to-list 'load-path
 (add-to-list 'load-path
             (expand-file-name "." data-directory))
 
-(when (boundp 'LISPDIR)
-  (add-to-list 'default-load-path LISPDIR)
-  (add-to-list 'load-path LISPDIR)
-  (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
-  )
+(if (boundp 'LISPDIR)
+    (progn
+      (add-to-list 'default-load-path LISPDIR)
+      (add-to-list 'load-path LISPDIR)
+      (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
+      ))
 
 (condition-case nil
     (require 'install)
 (add-latest-path "custom")
 
 
-;;; @ shell
-;;;
-
-;; Please specify shell command path.
-(setq SHELL
-      (find-if (function file-exists-p)
-              '("/bin/sh" "/usr/bin/sh")
-              ))
-
-;; Please specify shell command option.
-(setq SHELLOPTION "-c")
-
-
 ;;; @ Please specify prefix of install directory.
 ;;;