🚀 go-pugleaf

  駒崎＠住友電工です

> いま、上の設定をして使っているのですが、
> ひとつだけ問題が出てきました。
> いわゆるJISコードで書かれた.htmlのファイルを
> 編集すると(当然ですが)EUCになってしまうのです。
> 
> 拡張子が.htmlのファイルだけは別の漢字コードを使う
> ようにできる方法があれば教えてください。
> 
> 「ここを読めばわかる」という情報でも構いませんので、
> よろしくお願いします。

  さしあげます。好きに使って下さい。
＃使い方は... 見ればわかるでしょう :-)

---------------------------------------------------------------
;;; -*- Mode: Emacs-Lisp -*-
;;;  This is 'my-kanji-util.el'. You can use another kanji-fileio-code by 
;;; suffix.
;;;  Autor: N.Komazaki 92/05/28
;;;  Modified for Mule-2.0 93/08/26

(defun my-favorite-kanji-code ()
  "change fileio-kanji-code by the file name's suffix."
  (let ((alist fileio-kanji-code-alist))
	(while (car alist)
	  (cond ((string-match (car(car alist)) (buffer-name))
			 (set-file-coding-system (car(cdr (car alist))))
			 (setq alist nil))
			(t (setq alist (cdr alist))))
	  )))

(defconst fileio-kanji-code-alist '(
	("\\.signature" *junet*)
	("\\+[a-zA-Z_\\.\\-]*" *junet*)
	("\\.[a-zA-Z_].*" *euc-japan*)
	("[a-zA-Z_\\-\\.].*" *euc-japan*)
))

(or (memq 'my-favorite-kanji-code find-file-hooks)
	(setq find-file-hooks
		  (append find-file-hooks 
				  (list 'my-favorite-kanji-code))
		  ))
(or (memq 'my-favorite-kanji-code find-file-not-found-hooks)
	(setq find-file-not-found-hooks
		  (append find-file-not-found-hooks 
				  (list 'my-favorite-kanji-code))
		  ))

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

＃前にもメールで送ったか、ニュースに流したかしたような覚えがあるんだけ
＃どなぁ。メールで送ったらエラーになって戻ってきたのでニュースに流しま
＃す。

--
----- From N.Komazaki --- 「１割速く作るより１割早く作るべきだ」
    / / /
   ＳＥＩ 情報通信システム事業部 ネットワークシステム部 第２技術課
   E-mail koma@focs.sumiden.co.jp