Re: Japanese Menu

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>]

From: kyota@xxxxxxxxxxxxx (Kyotaro HORIGUCHI) さん曰く
Subject: Re: Japanese Menu
Message-ID: <199912090651.PAA09215@xxxxxxxxxxxxxxxxxxx>
Date: Thu, 09 Dec 1999 15:51:27 +0900 (LMT)

堀口> > ぱん> もしかしたら、 c:/windows/tips.txt のことかも知れません。
堀口> > 
堀口> > おぉぉ、これです、これです。ありがとうございます。昔読んだ記憶が
堀口> > あります。
堀口> 
堀口>  そういえばそういうのもありましたね.
堀口>  私は Power Toys の Explorer Here をインストールした後でファイル
堀口> タイプの定義を眺めたら explorer.exe /root,/e,/idlist,%1 とあった
堀口> のでいみもわからず使ってました^^;

# /idlist って結局なんなのだろう？ わかっていない私。

堀口>  んで, じゃぁなんでさっきの白井さんのブツがちゃんと動かなかったか
堀口> ちょっと見てみたら, argument-editing がしっくりきていないんですね.

ずっとおかしいと思っていたんですけど、まぁいいやと思って。

堀口> (defun argument-editing-function-for-explorer (argument)

堀口>  とりあえずということなら(だれも必要としてないって^^;)こうすると
堀口> コマンドラインパラメータが正しく渡されるようになりますね.

わざわざ explorer ごときのために関数を作るのはいやだから

(define-process-argument-editing "/explorer\\.exe$"
  (lambda (x)
    (general-process-argument-editing-function x nil nil nil)))

(defun explorer (&optional dir)
  (interactive)
  (setq dir (expand-file-name (or dir default-directory)))
  (if (or (not (file-exists-p dir))
	  (and (file-exists-p dir)
	       (not (file-directory-p dir))))
      (message "%s can't open." dir)
    (setq dir (unix-to-dos-filename dir))
    (let ((w32-start-process-show-window t))
      (apply (function start-process)
	     "explorer" nil "explorer.exe" (list (concat "/e,/idlist,/root," dir))))))

でどうでしょうか？(ってだれに聞いているんだ、私は)

# やっと思った通りの explorer が立ち上がりました。

堀口> # trareny-cebprff-nethzrag-rqvgvat 啌嚼啗囃囓艙鼾嚀嚴哮嗾營嗷嗷唸
堀口> # 嗾囮簷營嚀哢嚏喞?

# CVS が待っていますよ。:-) > 堀口さん

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)