Changeset 30305 for lang/elisp

Timestamp:

02/20/09 08:26:19 (4 years ago)

Author:

imakado

Message:

trampを使い、他のマシン上でC-x C-fでモジュールを開こうとすると落ちる問題を修正。tramp上では動作しないようにして対応

Files:

• lang/elisp/perl-completion/trunk/perl-completion.el (modified) (2 diffs)

lang/elisp/perl-completion/trunk/perl-completion.el

@@ -1930 +1930 @@
   ;; Net::CI`!!'DR::MobileJP
   ;; `ffap-file-at-point' returns CIDR
-  (let ((module (thing-at-point 'symbol)))
-    (ignore-errors
-      (and (plcmp-module-p module)
-           (plcmp-get-module-file-path module)))))
+  (unless (plcmp-tramp-p)
+    (let ((module (thing-at-point 'symbol)))
+      (ignore-errors
+        (and (plcmp-module-p module)
+             (plcmp-get-module-file-path module))))))
 
 ;;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -2030 +2031 @@
               (plcmp-module-filter-list '("strict" "warning")))
           (plcmp--using-modules-filter ls)))
-        
+      (desc "plcmp-ffap-perl tramp")
+      (expect "called"
+        (stub plcmp-get-module-file-path => "called")
+        (stub plcmp-tramp-p => nil)
+        (stub thing-at-point => "Some::Module")
+        (plcmp-ffap-perl "dummy"))
+      (expect nil
+        (stub plcmp-get-module-file-path => "called")
+        (stub plcmp-tramp-p => t)
+        (stub thing-at-point => "Some::Module")
+        (plcmp-ffap-perl "dummy"))
       )))