Changeset 30305 for lang/elisp

Show
Ignore:
Timestamp:
02/20/09 08:26:19 (6 years ago)
Author:
imakado
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/elisp/perl-completion/trunk/perl-completion.el

    r30270 r30305  
    19301930  ;; Net::CI`!!'DR::MobileJP 
    19311931  ;; `ffap-file-at-point' returns CIDR 
    1932   (let ((module (thing-at-point 'symbol))) 
    1933     (ignore-errors 
    1934       (and (plcmp-module-p module) 
    1935            (plcmp-get-module-file-path module))))) 
     1932  (unless (plcmp-tramp-p) 
     1933    (let ((module (thing-at-point 'symbol))) 
     1934      (ignore-errors 
     1935        (and (plcmp-module-p module) 
     1936             (plcmp-get-module-file-path module)))))) 
    19361937 
    19371938;;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
     
    20302031              (plcmp-module-filter-list '("strict" "warning"))) 
    20312032          (plcmp--using-modules-filter ls))) 
    2032          
     2033      (desc "plcmp-ffap-perl tramp") 
     2034      (expect "called" 
     2035        (stub plcmp-get-module-file-path => "called") 
     2036        (stub plcmp-tramp-p => nil) 
     2037        (stub thing-at-point => "Some::Module") 
     2038        (plcmp-ffap-perl "dummy")) 
     2039      (expect nil 
     2040        (stub plcmp-get-module-file-path => "called") 
     2041        (stub plcmp-tramp-p => t) 
     2042        (stub thing-at-point => "Some::Module") 
     2043        (plcmp-ffap-perl "dummy")) 
    20332044      ))) 
    20342045