Changeset 7060 for lang/elisp

Timestamp:

02/23/08 12:14:15 (9 months ago)

Author:

taiyoh

Message:

lang/elisp/set-perl5lib: ifとかletが連続してキモかったのでリファクタリング

Files:

• lang/elisp/set-perl5lib/set-perl5lib.el (modified) (1 diff)

lang/elisp/set-perl5lib/set-perl5lib.el

@@ -36 +36 @@
 
 (defun perllib-check-path (lst lib-path)
-  (let ((dir (car lst)) (lst (cdr lst)))
-    (let ((set-lib-path (concat lib-path "/lib")))
-      (if lst
-          (if (string= dir "lib")
-              set-lib-path
-            (if (and (string= dir "t")
-                     (file-readable-p set-lib-path))
-                set-lib-path
-              (perllib-check-path lst (concat lib-path "/" dir))))))))
+  (let ((dir (car lst))
+        (set-lib-path (concat lib-path "/lib")))
+    (if (setf stock-lst (cdr lst))
+        (cond ((string= dir "lib") set-lib-path)
+              ((and (string= dir "t")
+                    (file-readable-p set-lib-path)) set-lib-path)
+              (t (perllib-check-path stock-lst (concat lib-path "/" dir)))))))
 
 (defun set-perl5lib ()
   "set path into PERL5LIB if its file path includes 'lib' directory"
   (interactive)
-  (setf path-list (cdr (split-string buffer-file-name "/"))
-        lib-path (perllib-check-path path-list ""))
-  (if lib-path
-      (let ()
-        (setenv "PERL5LIB" lib-path)
-        (message (concat "PERL5LIB=" lib-path)))))
+  (let ((path-list (cdr (split-string buffer-file-name "/"))))
+    (if (setf lib-path (perllib-check-path path-list ""))
+        (let ()
+          (setenv "PERL5LIB" lib-path)
+          (message (concat "PERL5LIB=" lib-path))))))
 
 (provide 'set-perl5lib)