Thread View: fj.editor.mule
2 messages
2 total messages
Started by Junichi Fujita
Thu, 27 Aug 1998 00:00
[Q]拡張子が異なるだけのファイルを読み込むには
Author: Junichi Fujita
Date: Thu, 27 Aug 1998 00:00
Date: Thu, 27 Aug 1998 00:00
33 lines
1602 bytes
1602 bytes
藤田と申します。 例えば foo.cpp というソースファイルを編集している時に、そのヘッダファイ ルである foo.h を編集したくなる時があります。 通常は ^X^F ( find-file ) で、foo.h を指定して読み込めばいいわけですが、 拡張子が異なるだけのファイルを読み込むための便利なコマンドなりモードなり ってあるのでしょうか？ Find file: ~/foo. みたいに、ミニバッファに拡張子を除いたファイル名まで入っていると便利かな と思ってるんですけど。 いちおう、find-file 時のミニバッファでのスペースキーやタブキーによるファ イル名の補完や M-p によるヒストリ、M-r による正規表現の検索は使っていま す。 もしかしたらもっと便利な方法があるかも知れないと思い質問させていたいただ きました。 なにか便利な方法がありましたら教えてください。 ちなみに、使用している環境は 会社： Mule for Windows Windows95 家： Mule ver19.28 FreeBSD 2.2.5 です。 --- 藤田淳一 jeisi@pd-net.co.jp
Re: [Q]拡張子が異なるだけのファイルを読み込むには
Author: Junichi Fujita
Date: Mon, 31 Aug 1998 00:00
Date: Mon, 31 Aug 1998 00:00
67 lines
2768 bytes
2768 bytes
藤田です。
やまもと＠コナミさんが作成された 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
================
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads