[xyzzy:07291] Re: ネットワークパスについて

["M.Fujimura" <m_fujimura@xxxxxxxxxxxxxx>]

亀井さんこんにちは、藤村です。

動くようになりました。
どうもありがとうございます。


引用メッセージは
日付:2001/07/10 午後 03:26:30
差出人:KAMEI Tetsuya <kamei@xxxxxxxxxxxx>さん
タイトル:[xyzzy:07286] Re: ネットワークパスについて
です。

> M.Fujimuraさん、こんにちは。
> 
> 	2001年7月10日(火)[14:13:22]の、
> 	[xyzzy:07284] ネットワークパスについて
> 	への返事です。
> 
> | バージョン0.2.2.202まで、find-file等で、ネットワークサーバ名を指定すると、
> | 共有ディレクトリが補完されて表示されていましたが、0.2.2.203と0.2.2.204の
> | 両方で試したところ、表示されなくなってしまいました。
> 
> 忘れてました。とりあえずこれで。
> 
> (in-package "editor")
> (defun do-completion-internal (from to type &optional compl not-uniq-ok word last-char)
>   (let ((string (buffer-substring from to)))
>     (when (and (member type '(:file-name :exist-file-name
> 			      :file-name-list :directory-name))
> 	       (string-match "\\(^\\|[\\/]\\)\\.\\.[\\/]?$" string))
>       (delete-region from to)
>       (insert (append-trail-slash (namestring string)))
>       (return-from do-completion-internal t))
>     (long-operation
>       (multiple-value-bind (result list prefix)
> 	  (*do-completion string type word compl)
> 	(cond ((stringp result)
> 	       (cond ((eq string result)
> 		      (cond ((completion-insert-self string list prefix last-char to)
> 			     t)
> 			    (*completion-auto-help*
> 			     (print-completion-list list prefix string)
> 			     't)
> 			    (t
> 			     (setq *completion-last-string* string)
> 			     :ambigous)))
> 		     (t
> 		      (delete-region from to)
> 		      (insert result)
> 		      't)))
> 	      ((eq result :not-unique)
> 	       (cond ((completion-insert-self string list prefix last-char to)
> 		      t)
> 		     (t
> 		      (or not-uniq-ok
> 			  (print-completion-list list prefix string))
> 		      result)))
> 	      (t result))))))
> 
> -- 


************************************************************************
Masahiro Fujimura