Changeset 7047 for lang/elisp

Timestamp:

02/22/08 23:15:29 (9 months ago)

Author:

taiyoh

Message:

lang/elisp/set-perl5lib: t/内のファイル編集時に、t/と同階層にlib/があれば、そこをPERL5LIBに登録する

Files:

• lang/elisp/set-perl5lib/set-perl5lib.el (modified) (3 diffs)

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

@@ -24 +24 @@
 ;;; * set-perl5lib について
 
-;;; ファイルのパスに"dir"というディレクトリが含まれていたら、
+;;; ファイルのパスに"lib"というディレクトリが含まれていたら、
 ;;; そこまでのパスをPERL5LIBに登録します。
 ;;;
@@ -31 +31 @@
 ;;; のあとで、Flymakeのflymake-perl-load関数をオーバーライドして
 ;;; (set-perl5lib)
-;;; を関数内に追加すれば、
-;;; 自動的にパスを登録できます。
+;;; を関数内に追加すれば、自動的にパスを登録できます。
 ;;;
 ;;; SeeAlso: http://d.hatena.ne.jp/sun-basix/20080117/1200528765
@@ -38 +37 @@
 (defun perllib-check-path (lst lib-path)
   (let ((dir (car lst)) (lst (cdr lst)))
-    (setf lib-path (concat lib-path "/" dir))
-    (if lst
-        (if (string= dir "lib")
-            lib-path
-          (perllib-check-path lst lib-path)))))
+    (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))))))))
 
 (defun set-perl5lib ()