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

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

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))))))

-- 
亀井哲弥(KAMEI Tetsuya)
kamei@xxxxxxxxxxxx