Re: Japanese Menu

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

From: kyota@xxxxxxxxxxxxx (Kyotaro HORIGUCHI) さん曰く
Subject: Re: Japanese Menu
Message-ID: <199912081114.UAA14215@xxxxxxxxxxxxxxxxxxx>
Date: Wed, 08 Dec 1999 20:14:25 +0900 (LMT)

堀口>  添付の opendialog.c をコンパイルして(VC++です)適当なところにおい
堀口> て, さらに添付の emacs-lisp コードを .emacs にでも置くととりあえ
堀口> ずメニューから "Open file..." を選んだときにおなじみのダイアログ
堀口> が出てきます.

## ヒェ〜〜、なんて邪悪なことを。。。:-)

ところで、

(define-key menu-bar-files-menu [open-file]
  '("Open File..." . find-file-dialog))

とか

(substitute-key-definition 'find-file
   'find-file-dialog menu-bar-files-menu)

とか ~/.emacs に書いても、一度 menu bar を選択して active(？)に
しないと上記の変更が有効にならないようです。
この辺りは全然違うから参考にならないと思うのですが、UNIX の(とい
うか X 上の) Emacs 20.5 では一回目から大丈夫でした。
(20.4 は消しちゃった :-)

## ~/.emacs で
## (menu-bar-mode nil) (menu-bar-mode t)
## すると、最初から大丈夫でしたけど。

-- 
白井秀行＠堀口さんに対抗して、大昔のを引っ張り出してみよう。
          Icon に drag & drop したいときは便利かもしれない。

(define-process-argument-editing "/explorer\\.exe$"
  (lambda (x)
    (general-process-argument-editing-function x nil t t nil nil t)))

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

(define-key menu-bar-files-menu [dired] '("Open Directory..." . explorer))