Emacs Part 39

**名無しさん＠お腹いっぱい。** · 2011/11/29(火) 17:50:44.24

前スレ

Emacs Part 38
http://hibari.2ch.net/test/read.cgi/unix/1308635178/

**名無しさん＠お腹いっぱい。** · 2011/12/29(木) 22:49:44.35

いや、計算が多いコードだと明らかに速くなるよ。

**名無しさん＠お腹いっぱい。** · 2011/12/29(木) 23:14:35.22

現行のバイトコンパイラはlucid製の最適化コンパイラで実行速度も速い。

**327** · 2011/12/29(木) 23:28:18.08

分かりました

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 11:12:48.18

キャラクタセット毎にフォントを指定する時の疑問なんですが、
(set-fontset-font "xxx" 'japanese-jisx0208 "SomeFont") みたいに直接指定するのと
(set-fontset-font "xxx" 'japanese-jisx0208 (font-spec :family "SomeFont"
:registry "unicode-bmp" :lang 'ja))
みたいにfont-specで指定するのってどう違いがあるんでしょう？

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 11:18:48.69

set-fontset-font is a built-in function in `C source code'.
(set-fontset-font NAME TARGET FONT-SPEC &optional FRAME ADD)

FONT-SPEC may one of these:
* A font-spec object made by the function `font-spec' (which see).
* A cons (FAMILY . REGISTRY), where FAMILY is a font family name and
REGISTRY is a font registry name. FAMILY may contain foundry
name, and REGISTRY may contain encoding name.
* A font name string.
* nil, which explicitly specifies that there's no font for TARGET.

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 11:44:46.71

ということは、SomeFont の特定の registry に属するものだけ指定したい場合とかだけ
font-spec 使ったり cons セル渡したりすれば良いということなんですね。

font と fontset の仕組みがなかなか理解できないなぁ・・・
list-fontsets で出てくるフォントセット名って必ずしもそこで指定された family に属してるフォントだけってわけでもないんですよね。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 12:15:08.17

> フォントセット名って必ずしもそこで
「そこ」ってどこよ? set-fontset-fontの事?

フォントセットはcreate-fontset*で作成し、その時にフォントセット名を指定する。
set-fontset-fontで指定してないフォントセット名がリストされても何も不思議じゃないんだが。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 12:29:14.72

>>335
create-fontset* したときにフォントセット名を未指定だと
そのフォントの XLFD がフォントセット名になるじゃないですか。

それがあったから自分にはわかりづらかったんですよ。
なんで Family が * じゃないのに別の Family のフォントが使えるの？？？みたいに。
フォントセット名って結局は単純に名前なだけで内容は別に XLFD とは関係ないってことなんですよね。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 12:50:29.54

set-frame-font等でフォントファミリーで指定することもできるので無関係というわけでもない。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 12:55:33.81

正月休みに読もうと、図書館でるびきち本を借りようとしたら貸し出し中だった
自分以外にも買わないで済ます奴がいるんだなｗ

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 13:23:40.98

本屋で平積みになってたので
上に『いまどきのアセンブラプログラミング』を乗せてきた

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 14:29:28.44

いまどきのアセンブラプログラミングちょっと気になるな

とおもって書評見に行ったらメタクソでワロタ。
中身もトンデモだった。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 14:54:17.74

キチの本は評判どうなんだろう

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 15:00:56.70

るびきちのemacs本を2冊とも持っているけど
誤植が結構ある気がするんだよな（とくにemacs lispの方）
正誤表がネットにあればいいのに

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 15:04:58.08

Emacsテクニックバイブルの方は正誤表あった
http://d.hatena.ne.jp/rubikitch/20100810/emacsbookerrata
Emacs Lispテクニックバイブルの方は知らん

電子書籍で販売しないあたりがオールドタイプ

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 15:07:51.32

>奇跡はまだ終わりません。ちょうど1年後、2008年にanythingの開発を引
>き継ぐことになりました。原作者はanything開発の時間が取れないとの
>ことで、熱烈なanythingファンの筆者がすぐに次期開発者として名乗りを
>上げ、了承されました。バグを修正し、使いやすくするために大幅に機
>能を追加しました。その結果、コードは約4倍に膨れ上がりました。熱
>狂的なファンも増えました。 anythingを使ったLispプログラムもたくさ
>ん登場しました。いつしかanythingがないと生きていけない様を表す
>「anything脳」という言葉も登場しました。 anythingで生産性が上がっ
>た人がたくさんいます。そして現在は「anythingのるびきち」として知
>られるようになりました。

きんもーい

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 15:10:59.90

これもきもい
> 42歳のおっさんです。前著作とともに購入しました。
> ともに自宅用、会社用に１冊ずつ、合計４冊購入しました。
> ただ、すでに痛み始めているので、ともに、あと１冊ずつ購入することになると思います。
> メルマガも先ほど、購読の手続きを完了しました。楽しみにしています。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 15:58:14.87

別にきもくはない。年齢的にも金持ってるんだろうし、俺もリファレンス的
な本は会社と自宅で2冊買ってたりしてた。

**342** · 2011/12/30(金) 16:00:32.43

>>343
ありがとう。手元にあるemacsテクニックバイブルは2刷りだけど
日本語の文章としておかしい箇所があった気がする
メモをしていなかったので場所は忘れた
コードはざっと見た限りひどい間違いはなさそう
もう一度通読してみるか

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 16:55:04.23

>>293
嘘よくない…。post できるヨ…。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 18:45:36.05

無知乙。10年前ぐらいはPOSTできないのが常識だった事も知らんのか。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 19:02:40.92

誰に対して無知なんだよ…

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 19:04:55.83

HTTP/0.9にはGETメソッドしかなかったからな。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 19:25:34.59

バカだとかアホだとかおよそ書籍に似つかわしくない単語が並んでた。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 21:05:55.40

>>352
？どういうこと？

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 21:23:42.61

キチボンにそういう単語が並んでるってこと?

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 21:29:48.87

そう。cl に関する記述の部分だったかな。
おれはこのことに怒っているぞみたいなこと書いてあった。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 21:32:26.59

ああいう表現って編集の人に止められないもんなのかね。
触らぬキに祟りなしとかで何も言わないのか。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 23:04:23.29

cl に関しては公式が正しいと思うけどな。
Common LispだけがLispじゃないんだし。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 23:09:10.31

ただ、dolist みたいな便利マクロが標準で用意されててもいいだろとは思ったわ。
どうせみんな書くんだろうし。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 23:11:07.88

>>348
リクエストメソッドをPOSTに出来るだけでしょ。
マルチパートの送信も出来ないのにPOST出来るとはとてもとても。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 23:39:38.22

>>356
clマクロを取りまく現状について
「こうしたねじれた事態は馬鹿げている」と強い口調で書いてはある
けれどバカと馬鹿げているではニュアンスがまるで違うからキとか言うのはよくない

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 23:42:51.17

キについては自称だからなぁ。

**名無しさん＠お腹いっぱい。** · 2011/12/30(金) 23:44:13.73

cl 使うなっていうなら標準で添付するなよなとは思うわ。
意味わからん。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 00:31:14.97

>>358
dolist, dotimes は subr.el に標準で用意されている。
正直 cl とマージすればいいと思うんだけど、何かポリシー
があるんだろうな。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 00:33:53.26

自前の使い捨てスクリプト書くときは便利だし。
パッケージとして作るものに (require 'cl) するなって意味だったような。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 00:51:35.45

> バカと馬鹿げているではニュアンスがまるで違う

単語だけ切り出したらそう思うかもしれないけど、
全体の文脈からしてかなり烈しい内容だったと思うけどな。
この辺が幼稚な印象を強くしちゃうんだよ。rbktせんせ。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 00:58:58.98

なんで subr に入れないんだろうね。
find-if とかの cl-seq の中身便利なのに。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 01:07:28.40

文字数をモード列に表示することはできるのでしょうか

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 02:34:37.32

>>364
すみません、私はcl.el大好きなんですが、
eval-when-compileで囲んでもやはり使うべきではない、
というのが現在の一般的な意見、ということになっているのでしょうか?

>>366
RMSがキーワード引数が好きではないから、という説を
どこかで聞いた気がします。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 02:41:52.98

FMV-BIBLO LOOX（６インチモニタのノート）でemacs常用している猛者はいないか？
買うかどうか悩んでるんだ。ソースコード編集してC-c C-cで部分実行するだけならこの画面で十分な気がするんだけどどうだろ

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 02:51:04.54

(eval-when-compile (require 'cl)) して使っていいのがCLマクロ
使っちゃダメなのがCL関数
じゃないの？

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 04:32:15.06

Richard Stallmanは以下のように書いているのですが、

The rule against using CL functions at run time is for the sake of the
user. The CL functions are not a standard part of the Emacs Lisp
namespace. Thus, loading CL can conflict with the user's function
definitions.

subr.elでdefunされているremoveと、
cl-seq.elでdefunされているremove-ifとでは、

「can conflict with the user's function definitions」という点で
どのような違いがあるのでしょうか。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 09:34:41.01

皆でガンガンclの関数使って形骸化させようぜみたいなのにならなかったのだろうか

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 09:38:21.89

clの実装は小汚いからな。
喜んで使うのは三流グラマだけ。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 09:52:56.96

>>371
subr.el で定義されている -> ぶつかったらユーザの責任
cl.el で定義されている -> ぶつかったら cl.el をロードしたやつの責任

という点で異なる

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 10:01:45.63

下手に準拠唄うとアレがダメだこれがダメだと重箱の角ツツク
ゴミッカスが喜び勢い付くだけだからね～

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 10:18:28.75

anythingに関しても今のところはつっこまれてないだけで、これからつっこま
れる可能性は高いよね。ところでanythingの標準添付の作業ってどこでされて
るんだ？trunk見ても見当たらないんだけど。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 11:45:32.41

きちさんの脳内じゃない？
cedet もそうだけどあえて一緒にしない方がいいパッケージってあるよな

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 13:02:19.33

アレが添付されると臭くなりそうだな。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 13:08:23.97

emacs本体の一部として配布されるEmacs Lispコードの中でremove-ifを使いたいという要求があったとして、
仮にremove-ifがcl-remove-ifという名前でcl-seq.elでdefunされていたとすると、

-> ぶつかったらユーザの責任、なので
-> -> emacs本体の一部として配布されるEmacs Lispコードでeval-when-compileで囲まずに(require 'cl)してOK

と言えるんでしょうか?

あるいは、remove-ifがマクロなら(eval-when-compile (require 'cl))して標準配布物内で使ってOK、だとして、
remove-ifをマクロとして再実装するのはすごくたいへんなんでしょうか?

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 13:14:40.25

そういや remove-if の実装どうなってんだろと思ってみにいったら
関数に cl-* の接頭辞が付きまくってて目眩がした
ネームスペースの仕組みあればねえ。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 14:00:39.92

c--がよくわかりません
describe-keyで調べたらこう出ました

(negative-argument ARG)

Begin a negative numeric argument for the next command.
C-u following digits or minus sign ends the argument.

具体的にはどういうことなのでしょうか
使い道を知りたいです

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 14:12:24.79

>>381
C-- 数字コマンドでそのコマンドに -数字の引数を与えられるってこと。
C-- 3 C-p とかやると三行「下に」移動する。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 14:31:15.96

>>382
なるほど、C-uの繰り返しがデフォルトで4となっていましたが、
それの基本的な機能なのですね
わかりました

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 14:34:32.20

>>383
C-- はあくまで負の数な。
正の数の動作が基本だから
C-3 C-p とか M-3 C-p とかの方が普通。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 14:56:23.71

>>293
え、POSTできるけど……

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 15:01:55.78

フォントを設定するとき、ある family に属するフォントが無い場合、別の family を使う、というのを実現するのに
以下のような関数を作ったのですが、もっと妥当なやり方があれば教えていただけると助かります。

(require 'cl)
(defun safe-font (&rest family-list)
"有効なフォントファミリを返す。"
(find-if (lambda (f) (find-font (font-spec :family f))) family-list))

(set-face-attribute 'default nil
:font (safe-font "あずきフォントL" "MeiryoKe_Console" "MS Gothic" "mono"))

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 15:02:52.09

>>385
>>359

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 15:10:04.48

flet で作ったローカルな関数をスコープから外れてからも呼ぶ方法はありませんでしょうか？
具体的にはこんな感じです。

(flet ((greeting (msg) (message "%s" msg)))
(defun say-hello ()
(greeting "hello"))
(defun say-good-bye ()
(greeting "good bye")))

(say-hello) ;; greeting が無いって怒られないようにしたい
(say-good-bye) ;; 同上
(greeting "nono") ;; でも greeting は外から見せたくない

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 15:24:12.63

>>388
flet の代わりに labels を使う。
ダイナミックスコープとレキシカルスコープを調べるべし。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 15:24:53.27

macroletなら。

Emacsの関数はただのlambda式(か、それをバイトコンパイルしたもの)なので、
fletじゃ無理。実行時にgreetingが見えなければエラーになって終わり。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 15:36:12.19

>>389
ありがとうございます。macrolet だとマクロとしてその場に展開、
labels だと文脈依存の関数としてちゃんと関数として定義されるってことですね。

レキシカルとダイナミックを見てて思ったんですが、
純粋なローカル変数を使いたい場合は let より lexical-let を使うべきな気がするんですけど
(内部の関数で参照しているシンボルを不用意に束縛しないため)
そういう認識であっていますか？

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 15:44:04.23

いや。クロージャとして持ち出したい場合以外は普通のletの方がいい。
なぜならEmacsには基本的にそっちしかないから。

レキシカルスコープは擬似的なものなんだよ。
基本的にはgensymで作った「変な名前の内緒のグローバル変数」に
値や式を持っておいてそれをsymbol-valueで取り出す。
labelsにせよ、lexical-letにせよ、適当な式をmacroexpand-allすればわかる。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 16:17:46.66

>>392
なるほど。そうすると let で使うシンボル名は
せめて既に使われているようなのを不用意に使わないよう気をつけるしかないですか。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 21:45:31.70

次のようなテキストファイルがあります
Test1243
(@import "./foo/foo.txt")
(@import "/usr/mytext.txt")
Pipipi
テキスト中に(@import path)と書いてある時はPathのファイルを埋め込んで別のテキストファイルとして出力したいです
Elispの正規表現でpathの文字列を取り出すのは分かるのですが
ファイルを読み込んだ上でファイルを作るのが良くわかりません
よろしくお願いします

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 22:00:24.55

こんな感じのこと？

;; 文字コードてきとー
(defun hoge-func ()
(let ((in (read-file-name "入力ファイル: "))
(out (read-file-name "出力先ファイル: ")))
(with-temp-buffer
(insert-file-contents in)
(goto-char (point-min))
;; 正規表現てきとー
(while (re-search-forward "(@import \"\\([^\"]+\\)\")" nil t)
(let* ((fn (match-string 1))
(contents (save-match-data
(with-temp-buffer
(insert-file-contents fn)
(buffer-string)))))
(replace-match contents nil nil nil 0)))
(write-region (point-min) (point-max) out))))

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 22:22:46.05

emacsのtext-modeで、タブを押したときにインデントを、
前の行には関係なく、一定量に設定するにはどうすればよいでしょうか？
(1)ではなく(2)となるようにしたいのですが。

(1)前の行を参照するタブ
123456789 abc
　　　　　　←スペースの後の位置に移動

(2)タブの移動量を8に
123456789 abc//
　　　　　←ここに移動

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 22:32:56.01

よーわからんけど C-q C-i でタブ文字強制入力じゃだめ？

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 22:33:24.10

C-q TAB で純粋にタブ移動できるけど恒久的にやる方法はちょっとわからない。
というかいつの間に indented-text-mode = text-mode になってたんだ・・気づかなかった。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 22:41:12.31

もっとまともな方法があるとは思うけど↓でtext-modeのTABは強制的に\tになる。
(add-hook 'text-mode-hook
(lambda ()
(setq indent-line-function (lambda () (insert " ")))
))

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 22:41:52.06

" " のところは C-q C-i でタブが入力されてると思ってくれ。

**396** · 2011/12/31(土) 22:54:22.58

>>397-400
ありがとうございます。
>>399
これで完璧に解決しました。とても助かりました。

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 23:11:00.92

TAB関連で
tab-to-tab-stop の文字位置へ移動するにはどんなコード書けばいいんだろう？

**名無しさん＠お腹いっぱい。** · 2011/12/31(土) 23:14:38.73

(move-to-tab-stop)じゃあかんの？

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 00:07:44.48

Elispをすらすら書ける人は
普段からlispに慣れている人なのかな
尊敬するわ

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 01:15:55.55

一口にLispっつーても色々あって、それぞれノウハウ違うから
elispをスラスラ書ける人は普段からelispに慣れてる人だと思う

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 01:48:01.75

リストの処理とかがスラスラ書けても
バッファの弄り方とかテキストプロパティとかオーバレイとか辺りになってくると
あんまりLisp関係ないもんね。

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 12:40:54.90

暇なので elisp 紹介

■emacs で google map 表示

http://julien.danjou.info/software/google-maps.el
M-x google-maps して地名を入れるとpopupしたバッファに地図が表示される

そのままだと地名がアルファベットになっちゃうので以下を追加
(eval-after-load "google-maps"
'(defadvice google-maps-static-show (before google-maps-set-lang activate)
(ad-set-args 0 (append '(:language "ja")) (ad-get-args 0))))

popwin の管理下に入れておくとうっとおしくなくて良い。

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 12:43:07.23

oh... ちょっと間違った
↓ね。
(defadvice google-maps-static-show (before google-maps-set-lang activate)
(ad-set-args 0 (append '(:language "ja") (ad-get-args 0))))

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 13:35:41.22

>>407
㌧㌧、これはいいねぇ

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 13:46:38.69

おれもー
どっかから拾ってきた奴
yankしたとき貼りつけた内容がハイライトされる
popup-kill-ring つこうてる人は popup-kill-ring-interactive-insert が t じゃないと
ちゃんと反応してくれない

(defadvice yank (after yank-highlight-string activate)
(let ((ol (make-overlay (mark t) (point))))
(overlay-put ol 'face 'highlight)
(sit-for 0.5)
(delete-overlay ol)))

(defadvice yank-pop (after yank-pop-highlight-string activate)
(when (eq last-command 'yank)
(let ((ol (make-overlay (mark t) (point))))
(overlay-put ol 'face 'highlight)
(sit-for 0.5)
(delete-overlay ol))))

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 15:04:21.29

せめて unwind-protect で overlay の後始末はするべきだな。

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 15:08:16.25

>>411にならって直してみた

(defadvice yank (after yank-highlight-string activate)
(let ((ol (make-overlay (mark t) (point))))
(unwind-protect
(progn (overlay-put ol 'face 'highlight)
(sit-for 0.5))
(delete-overlay ol))))

(defadvice yank-pop (after yank-pop-highlight-string activate)
(when (eq last-command 'yank)
(let ((ol (make-overlay (mark t) (point))))
(unwind-protect
(progn (overlay-put ol 'face 'highlight)
(sit-for 0.5))
(delete-overlay ol)))))

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 15:11:01.01

いいですね。いただきます。

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 16:34:08.50

>>412の真似して undo で文章が復帰した時にもハイライトするようにしてみた。
もうちょっとマシな書き方出来ないか誰か添削してくれると嬉しい。

やってることは、
buffer-undo-list を頭からたどっていって
・(integerp . integerp) の cons セルにあたったらその範囲をハイライトしてループ終了
・(stringp . なんか) の cons セルにあたったらループ終了

(defadvice undo (after flash activate)
(catch 'loop
(dolist (c buffer-undo-list)
(let ((beg (car c))
(end (cdr c)))
(cond ((and (integerp beg)
(integerp end))
(let ((ol (make-overlay beg end)))
(unwind-protect
(progn (overlay-put ol 'face 'highlight)
(sit-for 0.5))
(delete-overlay ol)
(throw 'loop nil))))
((stringp beg)
(throw 'loop nil)))))))

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 16:57:08.39

>>412
副作用が怖いですが
アドバイス対象をinsert-for-yankにすると一つで済みました

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 17:59:01.61

>>414
dolist の中から return で脱出できたような。
けれど自分ならこうするかな。

(defadvice undo (after flash activate)
  (loop for (beg . end) in buffer-undo-list
        if (and (integerp beg)
                (integerp end))
        return (let ((ol (make-overlay beg end)))
                 (unwind-protect
                     (progn
                       (overlay-put ol 'face 'highlight)
                       (sit-for 0.5))
                   (delete-overlay ol)))
        else when (stringp beg)
        return nil))

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 18:23:18.31

>>416
loop を使うとシンプルになるんですね。
勉強しないといかんなーloop難しい

**名無しさん＠お腹いっぱい。** · 2012/01/01(日) 19:44:03.56

>>416
わかりやすいコードでいいね

**名無しさん＠お腹いっぱい。** · 2012/01/02(月) 00:40:25.00

NTEmacs スレが沈んだ
>>1が2008年9月とかのんびりした進行だっただけに誰も次スレ建てなかったわけだ

**名無しさん＠お腹いっぱい。** · 2012/01/02(月) 14:53:59.03

flet で関数を置き換えた際に、その関数内で置き換え前の関数を呼ぶ方法はありませんでしょうか？

(flet ((load (file &optional noerror nomessage nosuffix must-suffix)
(load file noerror t nosuffix must-suffix)))
(load "something"))

こんな風にすると再帰してしまいます。

**名無しさん＠お腹いっぱい。** · 2012/01/02(月) 14:59:40.35

symbol-function で関数の実体を取り出してどっかの変数に退避しておいてっ
て方法はある。

こんな感じかな？

(let ((original (symbol-function 'load)))
(flet ((load (file &optional noerror nomessage nosuffix must-suffix)
(funcall original file noerror t nosuffix must-suffix)))
(load "something")))

**名無しさん＠お腹いっぱい。** · 2012/01/02(月) 15:15:59.61

>>421
なるほど！ありがとうございます。これでやりたいことが出来ました。
session.el でセッション復帰時のローディングメッセージを消したかったのでした。
ソースの load してるところを直接書き換えちゃえばそれで済むといえばそれまでなんですが。

(defadvice session-initialize (around session-load-silently activate)
"セッションロード時のメッセージ抑制"
(let ((org-load (symbol-function 'load)))
(flet ((load (file &optional noerror nomessage nosuffix must-suffix)
(funcall org-load file noerror t nosuffix must-suffix)))
ad-do-it)))

**名無しさん＠お腹いっぱい。** · 2012/01/02(月) 15:37:23.73

>>387
http://www.emacswiki.org/emacs/http-post-simple.el

**名無しさん＠お腹いっぱい。** · 2012/01/02(月) 15:41:37.42

>>423
そんな標準で用意されていない elisp 持ち出されても。
むしろそういうのが標準パッケージに取り込まれないあたりが話になんね。
やっぱ url.el はうんこちんちんだな。

**名無しさん＠お腹いっぱい。** · 2012/01/02(月) 15:52:00.34

どうせemacsから画像のアップロードとかしないからいいんじゃね。

**名無しさん＠お腹いっぱい。** · 2012/01/02(月) 16:13:53.44

Gnu pack emacsを使っています
(open-file "./index.html")のようにして
windowsの関連付けどおりにファイルを開くことは可能でしょうか
それらしき関数が見当たらなかったので質問しました

**名無しさん＠お腹いっぱい。** · 2012/01/02(月) 16:19:35.26

gnusで仕様的に正しいmime multipartなメッセージ作れるんじゃないの？と思ってみてみたけど
multipart/mixedとかは良い感じに実装されてるのにmultipart/form-dataはないのな。惜しいな。

**名無しさん＠お腹いっぱい。** · 2012/01/02(月) 16:22:33.06

>>426
gnupack で cygwin もセットで導入しているなら
(defun open-file (file)
(interactive)
(start-process "cygstart" nil "cygstart" file))
cygwin いれてないなら cygstart を start に置き換えればいいんじゃないかな。

**名無しさん＠お腹いっぱい。** · 2012/01/02(月) 16:26:41.04

>>428
interactiveなのに引数必須とはいかがなものか。

(defun open-file (&optional file)
(interactive "fFile: ")
(start-process "cygstart" nil "cygstart" file))