Changeset 18431

Timestamp:

08/29/08 17:07:49 (4 months ago)

Author:

holidays-l

Message:

lang/elisp/set-perl5lib: CygPerlに対応してみました。WinPerlで動かなくなってる気がするので誰かなんとかして。

Files:

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

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

@@ -47 +47 @@
   "Set path into PERL5LIB if its file path includes 'lib' directory"
   (interactive)
-  (let* ((path-list (cdr (split-string buffer-file-name "/")))
+  (let* ((path-list (cdr (split-string
+                          (if (string-match "^.:" buffer-file-name)
+                              (concat (cygwin-mount-get-cygdrive-prefix)
+                                      (mapconcat 'identity (split-string buffer-file-name ":") ""))
+                            (buffer-file-name)
+                            )
+                          "/")))
          (lib-path (perllib-check-path path-list ""))
          (current-perl5lib (getenv "PERL5LIB")))