>>800
ありがとうございます。
しかし、うまくいかないようです。
elispはさっぱりわかってないんですが、今
(defun revert-buffer-with-cp932 ()
(let ((coding-system-for-read 'cp932))
(revert-buffer)))
(add-hook 'find-file-hook 'revert-buffer-with-cp932)
などと書いてファイルを開いた時に自動で cp932 を適用させようとしているところです。
まだ書きかけですが、拡張子がtxtの時だけ、問い合わせなしで自動実行させるつもりです。

やっとできたかな．．．
(defvar coding-with-cp932-extension-regexp "\\.txt$")
(defun revert-buffer-with-cp932 ()
(let ((coding-system-for-read 'cp932)
(noconfirm t)
ignore-auto preserve-modes)
(with-current-buffer (or (buffer-base-buffer (current-buffer))
(current-buffer))
(let* ((auto-save-p (and (not ignore-auto)
(recent-auto-save-p)
buffer-auto-save-file-name
(file-readable-p buffer-auto-save-file-name)
(y-or-n-p
"Buffer has been auto-saved recently. Revert from auto-save file? ")))
(file-name (if auto-save-p
buffer-auto-save-file-name
buffer-file-name)))
(when (string-match coding-with-cp932-extension-regexp file-name)
(cond ((null file-name)
(error "Buffer does not seem to be associated with any file"))
((or noconfirm
(and (not (buffer-modified-p))
(catch 'found
(dolist (regexp revert-without-query)
(when (string-match regexp file-name)
(throw 'found t)))))
(yes-or-no-p (format "Revert buffer from file %s? "
file-name)))
(run-hooks 'before-revert-hook)

;; If file was backed up but has changed since,
;; we shd make another backup.
(and (not auto-save-p)
(not (verify-visited-file-modtime (current-buffer)))
(setq buffer-backed-up nil))
;; Effectively copy the after-revert-hook status,
;; since after-find-file will clobber it.
(let ((global-hook (default-value 'after-revert-hook))
(local-hook (when (local-variable-p 'after-revert-hook)
after-revert-hook))
(inhibit-read-only t))
(cond
(revert-buffer-insert-file-contents-function
(unless (eq buffer-undo-list t)
;; Get rid of all undo records for this buffer.
(setq buffer-undo-list nil))
;; Don't make undo records for the reversion.
(let ((buffer-undo-list t))
(funcall revert-buffer-insert-file-contents-function
file-name auto-save-p)))
((not (file-exists-p file-name))
(error (if buffer-file-number
"File %s no longer exists!"
"Cannot revert nonexistent file %s")
file-name))
((not (file-readable-p file-name))
(error (if buffer-file-number
"File %s no longer readable!"
"Cannot revert unreadable file %s")
file-name))

tes

(t
;; Bind buffer-file-name to nil
;; so that we don't try to lock the file.
(let ((buffer-file-name nil))
(or auto-save-p
(unlock-buffer)))
(widen)
(let ((coding-system-for-read
;; Auto-saved file should be read by Emacs'
;; internal coding.
(if auto-save-p 'auto-save-coding
(or coding-system-for-read
buffer-file-coding-system-explicit))))
(if (and (not enable-multibyte-characters)
coding-system-for-read
(not (memq (coding-system-base
coding-system-for-read)
'(no-conversion raw-text))))
;; As a coding system suitable for multibyte
;; buffer is specified, make the current
;; buffer multibyte.
(set-buffer-multibyte t))

;; This force after-insert-file-set-coding
;; (called from insert-file-contents) to set
;; buffer-file-coding-system to a proper value.
(kill-local-variable 'buffer-file-coding-system)

;; Note that this preserves point in an intelligent way.
(if preserve-modes
(let ((buffer-file-format buffer-file-format))
(insert-file-contents file-name (not auto-save-p)
nil nil t))
(insert-file-contents file-name (not auto-save-p)
nil nil t)))))
;; Recompute the truename in case changes in symlinks
;; have changed the truename.
(setq buffer-file-truename
(abbreviate-file-name (file-truename buffer-file-name)))
;(after-find-file nil nil t t preserve-modes)
;; Run after-revert-hook as it was before we reverted.
(setq-default revert-buffer-internal-hook global-hook)
(if local-hook
(set (make-local-variable 'revert-buffer-internal-hook)
local-hook)
(kill-local-variable 'revert-buffer-internal-hook))
(run-hooks 'revert-buffer-internal-hook))
nil)))))))
(add-hook 'find-file-hook 'revert-buffer-with-cp932)

要するに*.txtのときだけ文字コードcp932決め打ちで開きたいってこと?

>>807
そうです。
もっと上手い書き方がありますか？

>>808
それでいいのなら、file-coding-system-alistという仕組みがあるよ。

(modify-coding-system-alist 'file "\\.txt\\'" 'cp932-dos)
かな。

>>809-810
ありがとうございます。うまくいきました。
普段 xyzzy を使っているので elisp はさっぱりなのです。

昔叩かれて育てelispって感じのスレあったけど今はないのかな？
燃料投下してみる。スレチだったらごめん

emacs22, wanderlustにて、送信情報が一発変更できないのが不便だと思った。受信は.foldersで色々設定できるのに！
てことで、ちょっと作ってみた。突っ込みよろしく

補完用とアカウント設定
(setq ven-maffy-smtp-account-table
'(( "completeWord"
"サーバー"
"ドメイン"
"owner"
((reply "Reply-to: xxxxxx"
("To" . "")
("Cc" . "")
("Bcc" . "xxxxx"))))
))

補完機能付送信情報変更
(defun ven-maffy-smtp-account-change ()
"SMTP Account change "
(interactive)
(let ((account)(completion-ignore-case t))
(setq account (cdr (assoc (completing-read
"need Complete a SMTP Account: "
ven-maffy-smtp-account-table nil t "defaultComplete") ven-maffy-smtp-account-table)))
(setq wl-smtp-posting-server (nth 0 account)
smtp-local-domain (nth 1 account)
wl-from (nth 2 account)
wl-draft-cofnig-alist (nth 3 account))))
普段はサマリーモードのdefine-keyで、C-ccで変更してます。

投稿してから思い出したけど、base64-encode-regionしたのを張ったほうがよいのかな？

>>812
wl-draft-config-alistでFrom:についてのパタンをキーにするといい。

elispで書いたprogramをemacsなしの単独で動かす方法ないのでしょうか？

>>815
意訳すると、こんな風にスクリプトとして使いたいってこと？
今月の Software Design の Emacs の特集にあったよ。

#!/usr/local/bin/emacs --script

(message "Hello, world.")

ずーっと以前はスタンドアロンなインタープリターとしてコンパイルでき
たけど(それらしきifdefがはいっていた)、22ではなくなってるな。

君達の中に pymacs を常用しているコアなユーザーはいないのかね？
もしいるのであれば pymacs の情報交換をしないか？

>>818
へぇ、こんなものがあるんだ
ほかのスクリプト言語でもつくられてるのかなぁ？

名前しか知らないけど、climacs

>>819
ちょっとばかし勘違いしているようだから一応説明しておくが、 pymacs は
emacs 内で python の expression や statement を実行し、
返り値を emacs lisp が理解できるデータ構造へ変換するなどのサポートによって
emacs <-> python のコミュニケーションを可能にするパッケージだぞ。
主に Emacs Lisp ができない部分を Python にやらせる、という言語拡張的用途で
使用される。

>>821
うん分かってるよ

なんかrubyといちゃいちゃする奴もあった気がするけど、
るびきちがつくってたから即ページ閉じた記憶がある。

おッパイマックス

るびきちプロダクツは使いたくない

じゃあ俺はC++といちゃいちゃするのを作るよ

じゃ俺はその副産物のC++インタプリンタに期待してテカテカしとくよ

>>814
確かに、賢いね
ありがとー

>>824
ある私の従兄弟が同じ低レベルな駄洒落を言っていたぞ。

>>829
高レベル乙

非常に長い行がある大きなファイルを開くと、ほとんどのモードでフリーズしてしまいます。
これは各モードでのフォントロックの正規表現が原因だと思いますが、ある一定のコラム数
以上の行を含むファイルは開く確認を求めるようにする、又はフォントロックを制限する
ことは可能ですか？

>>831
elispを書けない俺なら、ラップする起動スクリプトを書くだろうなぁ。

>>831
ファイルが決っているなら、そのファイルでだけ font-lock を nil にするとか。

M-x find-file-without-font-lock

diredでファイル移動しようとすると

dired-rename-file: Symbol's value as variable is void: dired-backup-overwrite

って文句言われる事あるけど、
dired.elの中でdired-auxをrequireしとけよって思った。
最新では直ってるのかな。

あ、ズレた事書いてしまったようだ。
とにかく、Rキーにバインドされてるのに、
変数が定義されてなくて素直に使えないのはいただけないな、と。

うちの22.1ではそんなエラーは起きないけど？

(setq special-display-buffer-names '(("*Help*" (:background "LightSteelBlue"))))
これで*Help*の背景色が青っぽくなるはずなんですが、なりません (23.0.60)
一応別のフレームに表示されるようにはなってるんですが、色がdefaultのままです
なんか間違ってますか？

まず
> the FRAME-PARAMETERS are pairs of the form (PARAMETER . VALUE);

で、これ評価すればわかるだろうけど、色指定は background-color
(print (mapcar 'car (frame-parameters)))

かなり需要はあると思ったんだけど、他にやってる人いなさそうなので、
生姜なく自分で実装してやりました。
思ったより時間がかからなかったけど、まんどくさかった。
今は快適快適

>>840
> かなり需要はあると思ったんだけど、
無いと思うよ。

>>841
あんまりファイルを開かない人にとってはね。
emacs のヘビーユーザーだったら、フォントロックのregexpによる
フリーズを既に何度も味わってることだし、そのユーザー層には需要があると思われる。
>>840がライトユーザーなだけでしょ？

>>842
みんなのために、M-x report-emacs-bug しといてくれ

>>842
君はライトユーザなのかｗ

長い行があるファイルを開くことがないなー。
バイナリを開くときは、hexl-find しちゃうし。

>>842
> >>840がライトユーザーなだけでしょ？
今ひどい自演を見た

そのフリーズするとかいうファイルのサンプルが欲しいな。

font-lockが重いファイルは
jit-lock-modeとかlazy-lock-modeとか使えば
改善されるよ。
font-lock-support-mode使ってファイル毎にロックモードかえられる。

appendでlistに追加するときに
追加したい要素が既にlist内にあったら追加しない方法って
処理行う前に要素全部と比較するしかないかな？

>>849
subr.el の add-to-list を見ると、compare-fn が null,eq,eql 以外のとき、そうしてるよね。