🚀 go-pugleaf

藤田です。

やまもと＠コナミさんが作成された elisp をメールで送っていただきました。
メールの内容を後ろに載せておきます。
（やまもとさんには了承を得ています）

> Find file: ~/foo.
> みたいに、ミニバッファに拡張子を除いたファイル名まで入っていると便利かな
> と思ってるんですけど。

まさに、この通りになっており大変便利です。

やまもとさんには改めてお礼申し上げます。

---
藤田淳一
jeisi@pd-net.co.jp


---------------------------------------------------

やまもと＠コナミと申します。

ニュースに投稿できないのでメイルで失礼します。

    > From: Junichi Fujita <jeisi@pd-net.co.jp>
    > Newsgroups: fj.editor.mule
    > Subject: [Q]拡張子が異なるだけのファイルを読み込むには

作ってみました。これでいかがですか？

(defun find-file-same-basename (filename)
  "Find file FILENAME, select its buffer.
When it reads the file name to visit, it inserts
a base name of the default file in the buffer."
  (interactive
   (let ((file buffer-file-name)
         (file-name nil)
         (file-dir nil))
     (cond ((stringp file)
            (setq file-name (file-name-nondirectory file)
                  file-dir (file-name-directory file))
            (if (string-match "\\.[^.]*$" file-name)
                (setq file-name (substring file-name 0 (1+
(match-beginning 0)))))
            (setq file-dir (concat file-dir file-name))))
     (list (read-file-name
            "Find file : " file-dir))))
  (switch-to-buffer (find-file-noselect filename)))


もし頻繁に使うなら、バインディングされていないキーに割り当てでも
すればよいでしょう。

C-x C-j とか、C-x C-m とかが未定義でしょうか。
C-x C-r なんて使ってないよ、というなら、そこでもいいですね。

<例>
(global-set-key "\C-x\C-m" 'find-file-same-basename)

では。

================            ＫＯＮＡＭＩ Co.,Ltd.          
================
     「そこからがおもしろいんだよ」     山本 賢一 yamamoto@konami.co.jp
================      Ken'ichi Yamamoto driving CEFIRO     
================