Emacs Lisp

Emacs Lisp の専用スレ。
少数派による互助を中心に、初心者の相談も気が向けば受け付けます。
単なる Emacs ユーザーは別板の Emacs 関連スレにどうぞ。

＊関連スレ
LISP Scheme Part2
　http://pc.2ch.net/test/read.cgi/tech/1002584344/
LISP Scheme
　http://pc.2ch.net/test/read.cgi/tech/987169286/

;; 無用なスレになったらすいません。

先生！なぜEmacsはメジャーなCとかではなくてマイナーなLispを採用したのですか？
その利点は何？

すくなくとも、Ｃを使わなかったのは正解だったと思われ。

>>3-4
いやCは使ってると思うが…

Emacs Lispがなくて、かわりにカスタマイズや拡張をCだけでやるしかないとし
たら、あんなに気軽に拡張はできなかったね。.emacs書き換えるたびにビルド
し直すんだろ？（ｗ

別にCだとコンパイルしなおさなきゃいけないってわけでもない

>>3
> 先生！なぜEmacsはメジャーなCとかではなくてマイナーなLispを採用したのですか？
> その利点は何？

CがメジャーでLispがマイナーと言ってる時点でもうなんか終わってるな。
Lispは十分メジャーだよ。

それにカスタマイズ用に俺自作謎言語なマクロを実装しているエディタだって
沢山あるのに…。（エディタに限らないが）

>>3
柔軟だから。C よりはるかに柔軟だから。

>>7
実際はともかく、C メジャー、Lisp マイナーというのが普通（？）の多くの人の考える
ところのような気がするのですが。

>>1
http://pc.2ch.net/test/read.cgi/unix/1001087615/l50
こっちじゃダメなのか?

>>9
elisp ライブラリの数の多さを見れば十分メジャーだよ。
C に比較すれば少ないという点は否定しないけどね。

>>6
どうすんのさ。Cインタプリタでも書く？
それならLispにした方が2^24倍かしこいだろ。

カスタマイズ用のマクロ言語としては、
Cなんてほとんど使われてないと思うけど…
（あるのか？）

>>13
>>3 は秀丸とかWZとかのC風マクロ言語を意識してるんじゃない？

>>14
うん、そうかも。それってどマイナーだよね。

今日は振替休日なので、ﾏﾀｰﾘとelispのお勉強〜
defun と message と ifが使えるようになったにょ〜。

いきなり煽り合いからのスレスタートか・・・
先が思いやられるな

elisp は再帰をできるだけ使うなというのがなえるな.
elisp が「本物」の lisp や scheme だったらもう文句なしなのに.

>>18
「本物」の lisp であっても再帰には制限あると思うけど。
Schemeはともかく。

elispってschemeより古いんだっけ？

>>20
GNU Emacs自体はScheme(1975年)ほど古くはないけど、
elispの仕様はMacLispとかの古いLispに非常に近いね。
特に、dynamic scopeしかないところが。

>>12
> それならLispにした方が2^24倍かしこいだろ。

やはり残りの8bitはタグですか?

結局 emacs lisp 固有の質問というのは Unix 板の emacs スレと
ずいぶん重なるんでじゃないですか?

>>22 0倍になっちゃうじゃないか!!

>>10,23
やはりそうなるんでしょうか。
この板に来るんだけれども、UNIX 板などには来ない人からのレスを期待して
しまっていました。lisp 人口が少しでも増えないかなとか思いつつ。
lisp か C かはアレとして、>>16のような人が増えると、みんなが幸せに
なれますね。

つーかマニュアルで解決しちゃうんじゃないかな。
ちょっとした小物が多いだろうし。

>>22
Elispが上位8ビットをタグに使っていたことを知っている人が
いるとは思わなかった。今は5ビットだけどね。

>>1
UNIX板はEmacsスレは結構盛んです。一ヶ月半の間に500近い書き込み。
自分もよく教えてもらってます。

最近はemacs21の話ばっかりで盛れはカヤの外。
厨房っぽい質問してもシカトされるので、こういうスレは助かります。

今、「リスト遊び」とelisp introの日本語訳を読んでます。
テキストを扱う仕事なので、非常に興味を引かれます。
最初は基地外みたいな言語だと思ったけど、なんとなく理解できてきました。

OSを問わずほぼ同じ環境を整えられるというのは、
計り知れないメリットだと思います。
一生かけて使い込んでみようかなという気になります。

elisp に lexical scope が欲しいと思うのは、
どのような時なんでしょうか?
dynamic scope だけでも特に困ったこと無いんですが...

>27 反応があってなんか嬉しい｡
タグ5bitってLSBに持ってるんですよね? で、セルは32bitアラインで配置かな。
俺が見たLispは68010用。よってMSB8bitがタグ。これ最強｡
今はこういう貧乏臭い実装って嫌われるから鬱。

lexical scope がないと、closure が作れないのでは。

動的スコープってわかんないんだけど、
仮引数に対しては静的だよね？

LispってMacから発祥なんすか？

>>31
なんでMSBにTAGつけるのにアラインさせるの？
LSBも空きができるじゃん。

>>34
違う。最初のLISPはIBMの機械。
Macの実装が多いのは、昔からメモリたくさん積んでたし、
リニアで何メガバイトもアクセスできるという、68000の石の特性も
あると思う。

>>33
仮引数って (defun hoge (hage) ..)
の hage の部分ですか? それも動的スコープだと思う.

>>34
初期の MacLisp という名が混乱の元では.

>>36,37
なるほどー。ありがとです。

>>37
hageの方です。

MacLispと InterLispが 2大 Lispだったんだっけ。CommonLispができる前は。
たしかどっちも動的 scopeだと聞いた記憶がある。
そこに静的 scopeの schemeが気炎を吐いていたと。

静的 scopeの方が compileするためには楽だけど、interpreterだと
そんなに問題にならないのかもな。
macroとか書くときにイヤーソなことにならないかしらん。

>35 MC68000はアドレス上位8bitはバスに出力されないから最初から空いてるの｡

キーボードマクロ使うときに数字をインクリメントしていきたいときってあるじゃない？
そのときのために
set-g-value : (setq gGlobalValue num)
inc-g-value ; (setq gGlobalValue (+ gGlovalValue 1))
put-g-value ; (insert int-to-string gGlobalValue)
って３つのコマンド作ったんだけど､もしかして標準で同じようなのってある？

>>42
1+ のような関数ならあるけど, 破壊的なのはないと思った.
破壊的な汎用 1+ は macro で書ける. elisp manual の macro の所に
サンプルがあったと思う.

僕はキーボードマクロでも eval-expression を使うことが結構あるな.

使われている言語が Lisp なのは 開発者の Stallman が Lisp の本家である
MIT AI Lab. の出身で、彼自身が Lisp プログラマだから。

ということは偶然が単に定着しているだけかな。

gclな何で普及しないんですか？

45です。
gclを早速動かしてみようとおもいcygwinに入れました。
インストールの途中でraw_gcl.exeがスタックダンプを
吐き出して止まります。。。どうしよう。

ソース付きのCommonLisp処理系で一番有名なのってgcl？
ソースのコメントに日本人の名前が入ってるから
これ使いたいけど自分じゃちょっと厳しいかも。

>>33
自由変数のscopeがlexicalなのが静的。そうでないのが動的。
静的の利点は、効率とprogramの可読性。

(defun foo (x)
(bar))
;; 互いに独立なので、fooとbarは同一lexical scapeではない。
(defun bar ()
x)

で、barからfooのxが参照できるのが動的。
;; Schemeはこれが出来ない。MacLisp, InterLisp, elispは可能。
;; Common Lispはスペシャル変数だけ可能。
;; MacLispにはcompile時のみ出来ないという時代もあった。Shallow binding以前。

(defun baz (x)
(let ((y))
(seq y (+ x x))
y))

xの参照はbinding levelを一つ越えているけど、lexical scape内だから可能。
これが「静的」の意味。binding levelはlexicalなものに限って越えられる。

;; scapeにおいて、lexical = staticって用法は他の言語で一般的。
;; S式は動的に変化するのが特徴の一つだから何か変な話だけど。

自己レス
http://www.google.co.jp/search?q=cache:jGHzkwQfeA0:village.infoweb.ne.jp/~fwhw5892/cygwin/+cygwin+GCL&hl=ja
ここにも(2000.08.05)書いてあるとおりCygwinでgclは厳しいみたいです。

どうしよう。gソースの中へ入ってがんばるか、あきらめて他の
マシンで使うか。んー、、

ちと役不足かもしれんが、CL packageに incfがあったような >>42

age よう

あのー、
Meadowつかい始めたんですが、デフォルトだとc/c++モードの
オートインデントが半角スペースなんです。
4タブにしたいんですが、どうしたらいんですか？

>>48
動的スコープは、Schemeなら簡単なマクロで書けるでしょ。

でも、名前がうっかりぶつかるとプログラムが壊れるから不便だよね。
＞動的スコープ。

やっぱりλならα変換ルール（束縛変数の名前を変えても意味が変わら
ない）が成り立ってくれないと…

fooとbarのケースでは無理>53

>>54
簡単に書けるよ？

(define x #f)
(define foo
　(lambda (new-x)
　　(let ((old-x x))
　　　(dynamic-wind
　　　　(lambda () (set! x new-x))
　　　　(lambda () (bar))
　　　　(lambda () (set! x old-x))))))
(define bar (lambda () x))

もちろん、実際には(fluid-letとかの名の)マクロを使うけど。

>>55
そりゃ、xをグローバルにすりゃ書けるだろ

>>56
shallow bindingっていう手法だけど、知らないのかな？
Emacs Lispがやってるのは、本質的にこれと全く同じ。

>>57
知ってるよ
でも意味が異なるだろ

漏れがEmacs Lisp スレ立てたときは
「Unix板逝け　＊＊終了＊＊」
で終わったのに、この違いはなんだ（藁

>>59
多分、>>3のおかげ。あの質問のおかげで最初の十数レスがまともな物になって、
そのおかげでそれに続く話題も（終了などにならずに）まともな物になりました。
（そういう雰囲気が作られたわけです）
2ちゃんでは、スレの初めの方のレスはかなり大きな意味を持っています。

でも大部分が lisp 談義になっているような.

>>59
こめんな、それ言ったのはおれだよ

>>58
どう違うの？ 全く同じだと思うが。

>>63
ごめんよ。勘違い。
fluid-letの存在忘れてた。

>>61　まー、ﾏﾀｰﾘしてていいでしょう。
H○PやR○byの煽り合いスレよりゃぁだいぶんマシ。

>>65
ひとつ気づいたんだけど、ある程度難しい話をしてると、奴等は寄ってこないんだよね。

>>53
> でも、名前がうっかりぶつかるとプログラムが壊れるから不便だよね。
> ＞動的スコープ。

*standard-output*みたいなのを、multi thread環境で使う、
って局面ではあった方が便利だよね。
竹内さんもbitのTAOの連載で言っていたけど。
ただ、thread内でsingletonとして利用しないと、>>53の言うようにまずいわな。

>>55の実装のためには、「thread-localな環境」が欲しくなるな。< multi threaded
こういう研究や実装って最近どうなんですか? > 現役の方々

外に出て x を書き換えてから継続で中に戻ると、書き換えた内容が忘れられてしまうという簡単な問題をなぜ誰も気がつかないのだろう？

そーか、ここのひとはみんな優しくてそのようなあたりまえのことは指摘しないのかな。

Emacs Lispに再入可能な継続があるのかよ。

もしくは>>68はdynamic-windをよく知らないのだろう。

仕事してる振りしてELispで遊ぶ、これ最強。

xyzzyは？

なんで xyzzy は scheme ではなく CommonLisp なのだろうか.
どうせ elisp と互換がないのだったら scheme にした方が
よかったような気がするんだけど.

Schemeは実用性の無いRubyみたいな言語だから。
汚くてもC++の方が実用性あるのといっしょ

>>74
Whats?

dynamic-wind を知らないというのはどちらのことやら。
試してからいえっつーの。

もし、dynamic-wind をよく知っているのに問題に気づかないというなら
lexical scope か代入のことをよく知らんのだ。

>>76
まさか、>>55にでてくるトップレベルのxが
実際にxという変数名だと理解してるのだろうか?

>>76 何が気にくわないのか良くわからんが、>>55 は確かに
Schemeのfluid-letと同等ではない。
しかし、Emacs Lispのdynamic scope変数とは同等だろ？
（ここはElispスレだということを理解してる？）

>>74
Rubyに実用性が無いという点にのみ同意。

>>79
厨房を呼ぶ呪文か。やめい。禁ッ

dynamic scope の特徴は使わない方で
明示的に仮引数でやるようにした方が見通しいいと思うんだけど,
結構いろいろな package で使ってるようですね. skk とか wl とか.

Lambda -- The utimate thread

dynamic-windよーわからん

(setq gnu '(gnu is not unix))

(setq gnu `(,@gnu is not unix))

(letrec
((gnu (gnu is not unix)))
gnu)

誰か無限ストリームとして gnu を扱って下さい

(define gnu (cons 'gnu (delay gnu)))

(car gnu) => gnu
(car (force (cdr gnu))) => gnu
(car (force (cdr (force (cdr gnu))))) => gnu

しかし全然Emacs Lispと無関係。

is not unix
を忘れてる。

ここの人たちはVisualStudioを使うべきところでもEmacsですか？
ウィザードまでは使ってもあくまでソース編集からコンパイルまでは
Emacsですか？

VisualStudioってEmacs Lispがつかえるの？

>>91
それは無理だと思うけどウィザードで生成したコードを、
編集するところにEmacs使ってるのかなっておもってさ。

windowsでfull実装のemacsってあったっけ？

>>93
Meadow は違うの？

meadow とか NTemacs とかの windows 用 emacs って
非同期プロセスは使えるの?
dos の時はもちろん使えなかったけど.

>>93
XEmacs動いてるんちゃう？

EmacsをWindowsキーバインドにするマクロ無い？

マクロはないが, pc-binding-mode という関数のが望む
ものかも.

>>97
変態配置覚えちゃいなよ。
一週間もあれば慣れるよ。

>>98
ありがとう。
>>99
仕事柄、NOTEPADやVB/VCを主に使うので・・
多分、これだけあれば違和感ないと思うんだけど。
Home/End 行頭/行末
Ctrl+Home/Ctrl+End 文頭/文末
Shift+カーソル 選択移動
Ctrl+カーソル 単語移動
Ctrl+X カット
Ctrl+C コピー
Ctrl+V ペースト
Ctrl+A 全選択
Ctrl+S 上書き保存
Ctrl+F 検索
Ctrl+Z/Ctrl+Shift+Z Undo/Redo
F3/Shift+F3 次検索/前検索

100get!

間違えた、、、鬱だ

プ板にある意味が無いな。もうちょっと言語よりな話題がしたい。
;; しかし scheme とかに逸れていってしまうんだな...

User-agent: な環境で、絶対パスを表す文字列から、そのファイルのタイムスタ
ンプを得るにはどのように書けばいいのでしょうか？

diredは `ls -l` を使ってるらしいと聞いたのですがelisp単体では無理？

>>104
User-agent: がどう関係するのかわからんが、file-attributes じゃダメなの？

>>100
xyzzyならGates.lてファイルが用意されているんだけどね。
Emacsでは選択テキスト（リージョン）の反転表示は
無理じゃないかな？

>>106
無理じゃない.
transient-mark-mode

>>106
しかし Gates.l とは (ワラ
けどスレと全然関係無いね。

>>105
できました！
(format-time-string "%Y/%m/%d %T" (nth 5 (file-attributes "/home/hoge/.emacs")))

("a" "b" "c" "d" "e" "f"...)
みたいなリストの中身を全てconcatするときって普通どうやります？

とりあえず
(eval (cons 'concat '("a" "b" "c"...)))
ってしたけどこのやり方が普通なのかどうかさっぱり。

リージョンが指定されてる時とされてない時に動作が変る関数はどうやって作っ
たらいいんでしょう。

(defun hoge (&optional start end)
(interactive "r")
(message "hoge"))

だと、リージョン指定してないときにエラーがでます。

>>110
(apply 'concat '("a" "b" "c"...))
普通かどうか知らんけど。

>>112
サンクス! apply の存在を知りませんでした。逝ってきます。

>>111 自己レス

transient-mark-mode にしてたのが原因でした。

transient-mark-mode の場合、transient-region-active-p で
region が指定されてるかどうかチェック出来るみたいなので、
それを使うことによって解決しました。

お前ら、最近どうなのよ?

まぁ、ぼちぼちって感じ？

なにが?

文字列をn回繰り返すために、
(let ((f
(lambda (n)
(if (> n 0)
(concat "もじれつ"
(apply f (list (- n 1))))))))
(apply f (list 3)))
というコードを書いてみたが、apply() 使うと引数をいちいち
list() でくくらんといかんのが気に食わんのだけど。
他にクロージャを実行する関数ってどんなのがあったっけ？

funcall は?

>>119
ありがとう。括弧がひとつ減ったよ。

>>118
のようなやつって scheme みたいな lexical scope の
ものでは動かないんだけど、Emacs lisp では
普通の手法ですか？

letをletrecにすればschemeでも動くよ。>121

>>118
schemeならもっと簡潔に書けるよ。

つーか末尾再帰(非再帰ループ)でかけるんじゃ？

schemeならこんなかんじかな?
(letrec ((f (lambda (n)
(if (= n 0)
""
(string-append "もじれつ" (f (- n 1)))))))
(f 3))

named-letだと
(let f ((n 3))
　(if (= n 0)
　　""
　　(string-append "もじれつ" (f (- n 1)))))

んじゃ非再帰版(末尾再帰)
(let f ((n 3)(r '()))
　(if (= n 0)
　　(apply string-append (reverse r))
　　(f (- n 1) "もじれつ")))

まちがえた
(let f ((n 3)(r '()))
　(if (= n 0)
　　(apply string-append (reverse r))
　　(f (- n 1) (cons "もじれつ" r))))

いや letrec は知っているんですけど,
dynamic scope であることに依存して書くのは
コーディングスタイルとしてどうなのかなと思って.
まあ emacs lisp だからいいんだろうけど.
僕もそうやって書いてるし(藁

>>129
dynamicかlexicalかの問題じゃなくないか?
Emacs Lispのletがschemeのletrecと同じなんでしょ?

ちょっとだけさわってみたんですが、
これってインデントはemacs-lisp-modeあたりに任せるとして、
改行はどこでやるのが普通なんでしょうか？
さっぱり見当がつきません。

age てみよう

MacOSXはコード書くのは全てemacsですが何か？
ProjectBuilderのエディタなんか使ってられっか！（`Д´）

MacOSX のemacs って，GUIつかないの？

教えてください
なぜ　(cons (cons 10 20) (cons 30 40))
が　((10.20) (30.40))
でなく ((10.20) 30.40)
の形になるのでしょうか？
考えると夜もねむれません

なんか違うのか？その二つ

要素は
((10 20) 30 40)場合
第１　(10 20)
第２ 30
第３ 40

(10 20) (30 40)の場合
第１　(10 20)
第２ (30 40)　です

>>135
consは「対」を作るオペレータ。
「対」はドット表記であらわす。
(cons 1 2) => (1 . 2)
ただし、「対」の最後のcdrにnilを入れた形式をlispでは「リスト」という。
(cons 1 nil) => (1) ドット対では(1 . nil)
(cons 1 (cons 2 nil)) => (1 2) ドット対では(1 . (2 . nil))
通常lispではリスト形式で出力され、
ドット対表現はconsが１つしかない構成でのみ出力される。
リストを作る場合、普通はconsよりもlistを使う。
(list 1 2) => (1 2)

自分でプリティプリンタ書いてみるとわかりやすいかも。

(list 1 2)は
(cons 1 (cons 2 nil))と同じ。
誤解があるのかもしれないので言っておくと、
ドット対表現のピリオド'.'は小数点のそれとは何の関係もない。
で、
((10.20) (30.40)) を作る場合、
(list (cons 10 20) (cons 30 40))
または、
(cons (cons 10 20) (cons (cons 30 40) nil))

＞ドット対表現はconsが１つしかない構成でのみ出力される。
付けたし。
cdrがpairやnilでない「行儀の悪いリスト」でも
ドット対表現で出力される。
(cons 1 (cons 2 (cons 3 4))) => (1 2 3 . 4)
(list* 1 2 3 4) => (1 2 3 . 4)
(1 2 3 . 4)はドット対であらわすと (1 . (2 . (3 . 4)))

ていねいな答えを頂いてありがとうございます。
形式的にそのように出るということでしょうか？

ただ、不思議なのは 上記　　1 2 (3 4)でもよさそうなものなのに
なぜ　cdr 側が　(1 2) 3 4 でしょうか？

>>142
>ただ、不思議なのは 上記　　1 2 (3 4)でもよさそうなものなのに
>なぜ　cdr 側が　(1 2) 3 4 でしょうか？
意味わからん

すみません　リロードしてなかったもので
参考にさせていただいてちょっと考えてみます
listは純リストを作成する関数ですよね？
ですので　list 1 2　はセル的に
[1][→] [2][nil]ですよね
(1 2) 3 4はどのようなセルになるのでしょうか？

勉強し始めの初心者ですみません

dynamic scope を上手く使って message passing って出来ます？

>>144
((1 2) 3 4)
のこと？
ドット対であらわすと((1 . 2) . (3 . (4 . nil)))
作る場合は(list (list 1 2) 3 4)
または(cons (cons 1 (cons 2 nil)) (cons 3 (cons 4 nil)))

それとも括弧で括ってないって事は、多値のことかな

＞ドット対であらわすと((1 . 2) . (3 . (4 . nil)))
まちがい。
ドット対であらわすと((1 . (2 . nil)) . (3 . (4 . nil)))

>>144
((1 2) 3 4) は ((1 . (2 . nil)) . (3 . (4 . nil)))

>148
その場合セルは
[*1参照][*2参照]
*1[1][*3参照]
*3[2][nil]
*2[3][*4参照]
*4[4][nil]
ですよね？　1.2のペアと3.4のペアがある
その時なぜ 1.2のペアだけ　(　）が付くのでしょうか？

>>149
これでどう？等幅フォントでみてね。
┌─┬─┐ ┌─┬─┐ ┌─┬─┐
│││─┼→│││─┼→│││／│
└┼┴─┘ └┼┴─┘ └┼┴─┘
│ ↓ ↓
│ ３ ４
↓
┌─┬─┐ ┌─┬─┐
│││─┼→│││／│
└┼┴─┘ └┼┴─┘
↓ ↓
１ ２

>>149
ルートのconsのcarにlistつくってるからだよ
([]←この表記ほとんど意味無いからやめたほうが良いよ)

>>149
うーんと、

(car '((1 2) 3 4))
(1 2)

(cdr '((1 2) 3 4))
(3 4)

(car '((1 2) (3 4)))
(1 2)

(cdr '((1 2) (3 4)))
((3 4))

だよ？

>>149
> その時なぜ 1.2のペアだけ　(　）が付くのでしょうか？
リストはよく使うデータ構造なので、いつも (a . (b . (c . nil))) と書く
のは大変だから (a b c) と書けるようにしようと決めただけ。

自分でオブジェクトを文字列に変換するプログラムを作ってみろ。

やっぱ最初はドット対の辺でつまずくよね。
「なんでcdrだけ特別扱い？」みたいな（ｗ

>>154
cdr のどこらへんが特別扱いっぽいのでしょう？
うにゃ？

>>155
carはほとんどがatomで、cdrはpairかnil
引数や内部イテレータもcdrの方向だし。
特別扱い、というかcar/cdrの使い道が異なる。

(a b c d e f)をcar方向に伸ばしたlist
((((((nil . f) . e) . d) . c) . b) . a)

>>156
使い道が異なるってことで納得。

>>157
前から順番に使っていくってことも先入観というか、固定観念ってこと
ですね。うっかり、当然とか思ってしまいそうですけど。

すみません　私の質問がまとを得ていないようで
まず、前提として　(1.2) 3.4は要素数は３ですよね？

148,150さんの構造の場合は２分木的に綺麗に分かれますから
(1.2) (3.4) のように要素数２個のように綺麗に分かれないのでしょうか？

(cons (cons (1 2) cons (3 4))のようの cdr部　cons (3 4)が
car 部cons (1 2)と同じように書いても
>>153さんのゆうとおり　ｃｄｒ　部は自動的に展開して
(1.2) (3 (4.nil))のようになるのでしょうか？

多分私は　中途半端なＣプログラマがＣ＋＋をやって
”なんで　呼んでもいない関数が実行されるんだ！！”
と言ってるのと同じ気はしますが、Liaperにとっては
空気のように当然のことだと

みなさん　ありがとうございます。　今わかりました。
cdr部はnilに突き当たるまで展開されるんですね。

ありがとうございました。

>>159
> すみません　私の質問がまとを得ていないようで
> まず、前提として　(1.2) 3.4は要素数は３ですよね？

えーと、要素数ってのがなにのことをいているのかと。
全部の cons セルの数のことなのか、なんなのか。

あと、1.2 って書くと小数みたいであれなんで、"." の前後には
空白を書いておかないとだめだと思うんです。

> (cons (cons (1 2) cons (3 4))のようの cdr部　cons (3 4)が
は、(cons (cons 1 2) (cons 3 4)) ですよね。

cons は cons セルの car 部と cdr 部に他のセルへのポインタをセットする
感じだと思います。

これでどう

(equal (cons (cons 1 2) (cons 3 4))
'((1 . 2) . (3 . 4)))
=> t

>>162
すみません気をつけます。

もともとは car部と　cdr部に同じように
セルのポインタをセットするのになぜ
cdr部だけ展開されるのかなっと

やっとわかりました　cdr部は全ての要素まで
伸びるんですね

>>164
> もともとは car部と　cdr部に同じように
> セルのポインタをセットするのになぜ
> cdr部だけ展開されるのかなっと

そういう習慣だからです。
要素をcar, 残りのリストをcdrに、というコンスセルを使ったリストの仕様は、
コンスセルそのものの仕様とは無関係です。
ただし、そうでないLispは存在しません。

コンスセル: cons, car, cdr, null, consp, nil
リスト: memq, list, append
で、リストはコンスセルを使って構築されています。

(1 . (2 . (3 . nil)))→(1 2 3)は、この状況におけるsyntax sugarに過ぎません。

nilはコンスセルじゃなくてアトムなのでは。
コンスセルかリストかで分けるならリストになるはずだし。

>>166
確かに。ﾁｮﾄ勢い余った。

(listp nil) =>t になるよ.

(atom nil) も
=> t
だよ

nil は atom でも list でもある唯一の要素です.

defsubst でインライン関数を定義したとき、
これを再帰呼出しした時にはどのように
扱われるのでしょうか？

ふつうに関数呼び出しが行われるみたい。
M-x disassemble 使え。

Emacs最高です。結婚してもいいですかー？！

test property の field についての説明はどこかにありますか？
M-x shell のプロンプトに使われていて、C-a の挙動に影響しているのですが
詳しく知りたいのです。

>>173
許す。ただし、持参金はたっぷりな。生命保健にも入ってもらう。

C-x C-f ~/elisp/hoge.el してその中に

(defun hoge (dir)
(interactive "fDirectory: ")
(message "Directory=%s" dir))

と書いてあるとしますよね。これを評価して
M-x hoge で ~/elisp/ RET すると ~/elisp/ ディレクトリではなく
~/elisp/hoge.el というファイル名が渡ってしまって困るのですが、これはそ
ういうものなんですか？

>>176
> (interactive "fDirectory: ")
でなくて
(interactive "DDirectory: ")
では？

ソートのプログラムをEmacs Lispでの書き方を教えてください！！
おねがいします。

>>177
あ・・・そうですね。本にそう載ってたんですが。
単純なこと聞いてすみません。

>>178
何をどう sort したいのか書かなきゃ答えようがないのでは？
# どっちにしても私も分からないけど。

＞１７９ そうですね。ありがとうございます。
引数にランダムな数字のリストをおいたとき、値として大きい（小さい）順に
並べ替えられたリストが出力されてくるようなプログラムを教えてもらいたいのです。
よろしくおねがいします。

>>180
sort とか stable-sort とか？

(sort '(10 9 8) '<)
=> (8 9 10)

(sort '(8 9 10) '>)
=> (10 9 8)

関数としてsortを定義するとどうなるのでしょうか？
(dufun sort ・・・)見たいな感じで教えてもらえないでしょうか？
おねがいします。

>>182
や、もとからあるでしょ。

実は大学のレポートでsortを定義しろっていう問題が・・・
けど、ぜんぜんわからなかったので。

やさしい Emacs-Lisp 講座を読んで Dired もどき作成中です。
ほーこんなこともできるのかぁって感じですごく(･∀･)ｲｲ!!
それだけ。

教えて君ウザすぎ。
つーか sort なんて簡単でしょ?
;; しかし elisp でやれとは、物好きな奴がいたもんだな。

sexp は男性ですか？女性ですか？という意味でしょうか。
それとも ｾｸｰｽ しようぜ！でしょうか。

上の教えて君じゃないがクイックソートを書いてみようとした。
edebug 中に g で Go! したら Meadow さんはお亡くなりになった。(-＿-)ｳﾂﾀﾞ

しまった。ageてしまいました。
逝ってきます。

>>184
http://www.google.co.jp/search?q=lisp+sort&hl=ja&lr=

p は predicate です.
object が sex であるかどうかを調べます.

coffeep 「コーヒーはいかがですか？」

t

>>188
> 上の教えて君じゃないがクイックソートを書いてみようとした。

リストで qsort って書けますか？
やはり一度、配列に変換していますか？

邦訳 Emacs lisp リファレンスマニュアルの改定版 でないかなー。
だれか翻訳してる？

俺がやるとしたら、前のやつを利用してもいいの？
あのマニュアルって GPL なの？
やり始めた後で出版されると、徒労だなー。

>>195
元のドキュメントが GPL なんで、翻訳も GPL だよん。
ソースは ftp.ascii.co.jp/pub/GNU や openlab.ring.gr.jp/gnujdoc あたりに。

asciiのほとんどtexiを印刷しただけっぽいリファレンス本を買った
漏れはイッテヨシだった…


あとで存在を知った邦訳のオンラインマニュアルのが数倍つかいやすいでやんの

Emacs Lisp を勉強しています。
d:/hoge/info にある emacs-[0-9]+ というファイルを emacs-ja-[0-9]+ とい
う名前でコピーするプログラムを書いてみました。

わざわざ elisp で書く必要もないのですが。
簡単に書けるかと思ったら、書いてみると意外に難しかった・・
こうやったらもっと簡単に書けるぞ (ﾟДﾟ)ｺﾞﾙｧ
というツッコミをお待ちしています。


(let ((files (directory-files "d:/hoge/info"))
old-file new-file
rename-list)
(save-excursion
(set-buffer (get-buffer-create "*tmp*"))
(erase-buffer)
(while files
(setq old-file (car files))
(if (string-match "emacs-\\([0-9]+\\)" old-file)
(progn
(setq rename-list (cons old-file rename-list))
(insert old-file "\n")))
(setq files (cdr files)))
(goto-char (point-min))
(setq rename-list (nreverse rename-list))
(cd "d:/hoge/info")
(while (re-search-forward "emacs-\\([0-9]+\\)" nil t)
(setq new-file (concat "emacs-ja-"
(buffer-substring (match-beginning 1)
(match-end 1))))
(copy-file (car rename-list) new-file t)
(setq rename-list (cdr rename-list)))))

あ…最後に kill-buffer 足したはずなのに古い方コピーしてしまった。

# あとsave-excursion の使いかたとかいまいちよくわかっていないのですが…

>>198
(mapc
(function (lambda (file)
(let ((new-file (replace-in-string file "emacs-" "emacs-ja-" t)))
(copy-file file new-file t))))
(directory-files "d:/hoge/info" t "\\`emacs-\\([0-9]+\\)\\'" t))

いちいちバッファに書く必要なんぞない。

なるほどー。mapc というのは mapcar のことですか？
やっぱりこれくらい単純になるんですね。replace-in-string というのも初め
て見ました。勉強しに逝ってきます。

describe-functionしる。

`mapc' is a compiled Lisp function
(mapc CL-FUNC CL-SEQ &rest CL-REST)

Documentation:
Like `mapcar', but does not accumulate values returned by the function.

結果をリストにする必要がないから若干効率がいい。

つーかdescribe-functionくらい知ってれば、directory-filesでフルパスにさ
せたりパターンを指定したりできることくらいすぐ分かるはずだ。
標準だったらC-h fでできるからこれくらい覚えとけ。あとC-h vモナー。

>>202
describe-function はしたんですが、mapcar と mapconcat しかなかったので。
何でだろ…

>>202
> 結果をリストにする必要がないから若干効率がいい。
嘘書いちゃだめだよ。lisp/emacs-lisp/cl-extra.el 見てみれ。
emacs 21のbuilt-inのmapcならその通りだけど。

>>204
(require 'cl)
あまりお勧めしない。

Emacs21 にはありました。Meadow にはないのかな…
っと思ったら >>205 の (require 'cl) でできました。
cl ってことは Common Lisp の関数なんですかね。

>>206
(require 'cl) してまで使う必要ないだろ。mapcar 使っとけ。

>>207
はい、これから使うときは mapcar 使うつもりです。

ところで replace-in-string って XEmacs にしかないんですかね？

replace-regexp-in-string がある。

でも cl の flet とか case とか便利だよね.

今日の日付から先週の月曜日が何月何日か知りたいんですが、簡単な方法って
あります？ calender とか使ってできる方法があれば教えてください。

calendar ですね。間違えました。

interactive にやるんなら calendar で日付を mark して
region 間で M-=

lisp でのやり方は知らん

>>213
interactive にではなくて elisp プログラムとして使いたいのですが。

自分で書くとしたら…
1. (current-time-string) で今日の曜日と日付をとってくる。
2. その週の月曜日が何日かを出す。
3. 先週の月曜日が何日かを調べる。

って感じになりますかね。月の始めの場合の処理が難しそうなんでちょっと辛
いかなぁ。

;; メイルのテンプレート用に勉強のために作るつもりです。
;; 勉強なんだから苦労してでも作れって言われそうですが、なるべく簡単な
;; 方法でやりたいので。(それも自分で考えろ (ﾟДﾟ)ｺﾞﾙｧ だけど)

なんでメールに先週の月曜の日付をいれんの?

>>214

私なら…
1. (nth 6 (decode-time)) で今日の曜日を取得
2. 先週の月曜日が何日前になるかを算出
3. (decode-time) の DAY を n 日前にして encode-time
;; DAY が 0以下でもちゃんと処理してくれる:-)
必要に応じてまた `decode-time' するなり、`format-time-string' なり。

calendar 使うなら…
(calendar-gregorian-from-absolute
(calendar-dayname-on-or-before
1
(- (calendar-absolute-from-gregorian (calendar-current-date)) 7)))

>>214
こういうのは
describe-key で M-= して
help から calendar.el の該当関数の所にとんで
参考にするといいよ.

>>215
週間作業報告を書くのに先週一週間分の日付を入れなきゃいけないので（ｗ
今は手作業で入力してるんで面倒なんですよね。

>>216
ありがとうございます。参考になりました。encode-time と decode-time 使っ
てやってみます。

>>217
わかりました。これから lisp のソースもいろいろ読んで研究します。
;; TAGS ファイルも作れたし。

あげ

>>211
倉庫行き回避に、先週の月曜はいつだ、を作ってみた。
いきなり、土日の先週の月曜っていつだ？って考え込んだ。
元のお題が「週間作業報告を書くのに先週一週間分の日付を入れなきゃいけないので」
なので、土日なら同じ週の月曜としてみた。

月曜 〜 金曜 → 先週の月曜
土曜 〜 日曜 → 今週の月曜

効率より、修正のしやすさをちょっと考慮。

(let* ((today (decode-time
;;(encode-time 0 0 0 Day Month Year)
))
(day (nth 3 today))
(month (nth 4 today))
(year (nth 5 today))
(dow (nth 6 today)) ;0(Sun)-6(Sat)
(dst (nth 7 today))
(zone (nth 8 today))
days-before)
(cond
((= dow 6) ;Sat
(setq days-before 5))
((zerop dow) ;Sun
(setq days-before 6))
(t ;Mon - Fri
(setq days-before (+ 7 (1- dow))))
)
(format-time-string
"%Y/%m/%d"
(encode-time 0 0 0 (- day days-before) month year dst zone)))

参考になりそうなのが hnf-mode.el にあるよ。

>>220
質問者です。
最終的に先週の日付を求める部分はこうなりました。

(defun my-last-week-day (n)
(let* ((d-time (decode-time))
(youbi (nth 6 d-time)))
(setcar (nthcdr 3 d-time)
(- (nth 3 d-time) 7 (- youbi n)))
(decode-time (apply 'encode-time d-time))))

(format-time-string
"%Y/%m/%d"
(apply 'encode-time (my-last-week-day 1)))
=>"2002/01/28"

考えてみたら月曜だけじゃなくて先週一週間分の日付が必要だったので、
n が 1 の時は月曜、2 なら火曜、、、の日付を返すようにしました。
;; 普通は 0 から？

変数名、関数名は適当です（ｗ
修正しやすいかどうか分かりませんが、今見たら自分でもちょっと…（ｗ

;; ズルをして某板でも質問をしたかもしれません(-＿-)ｳﾂﾀﾞ

あ、あと土日のことは全く考えてませんでした。
土日に使うことはないかなぁと思って。

>>221
hnf-float-time で浮動小数点型にして、適当な演算後に hnf-time-float で
リストに戻しているが、そこの処理のおかげで Nemacs で動かないという(藁

そういえば Emacs21 には float-time という built-in が追加されたけど、
time-float はないのよね。

>>244
フォローありがと。

う。>>224 ね。

メンテ上げ。
#もう落としてしまった方がいいんだろうか？

おまけで、遅い quick sort。
ほとんどパクリだが stable にしてみた。

(defun qsort2 (cmp l)
(let ((q2 (lambda (l1 m l2 l)
(if l
(if (funcall cmp (car l) m)
(funcall q2 (append l1 (list (car l))) m l2 (cdr l))
(funcall q2 l1 m (append l2 (list (car l))) (cdr l)))
(append (funcall q1 l1) (cons m (funcall q1 l2))))
))
(q1 (lambda (l)
(if l
(funcall q2 nil (car l) nil (cdr l))
)
)))
(funcall q1 l)
))

;;使い方
(qsort2 'car-less-than-car '((4 . "4") (2 . "2") (1 . "1")
(2 . "3") (3 . "3") (5 . "5") (1 . "2")))

age

(let ((x 0))
　(defun foo ()
　　(setq x (+ x 1))))

(foo) ==> Error: Symbol's value as variable is void: x

ってなるけど elisp てこういう仕様なの？Common-Lisp だと下のように
なるんだけど。

(foo) ==> 1
(foo) ==> 2
:

closure が無いんじゃないの?

XMLSchemaに対応したメジャーモードなんていつごろ完成するかな？
そんなの作ってるなんて聞いたことないし。自分で作れてってことだね。
これは。

それにしてもUNIXな人たちはXMLになんであんなに無関心なんだ？

(require 'cl)

(lexical-let ((x 0))
(defun foo ()
(setq x (+ x 1))))

`:foo' みたいなシンボルはどういう時に利用してますか?

>>232
なるほど、ありがとう。

emacs lisp wizard の方、教えて下さい。

lexical scope で function を bind したいんですが、
何か方法ないでしょうか。
つまり一時的に、既存の関数の動作をかえるような
ことがしたいんです。

cl には lexical-let があるんですが、
value cell の方は lexical になるものの、
function cell の方は面倒見てくれないようです。

なぜそんなことをしたいかというと、
普通の advice では変更が無理な状況があって、
関数ごと書きかえないといけないんですが、
長々と余計なコードを .emacs に書きたくなくて。
advice でできれば数行ですむのに、
関数を丸ごと書くと百行単位になってしまうんです。

ちなみに cl には flet という便利なものも
あるんですが、残念ながらこれは lexical では
ない様子。lexical-flet みたいなのがあればいいのに。

一応報告。
その後 labels という lexical な flet があることがわかりましたが、
結局 advice では使えませんでした。

(defadvice my-test (around test)
(labels ((car ()
(my-car)))
ad-do-it))

こんな風にすると ad-do-it 内では car の bind が無効に
なるし(当り前ですが)、また ad-do-it を展開するような
macro を使っても、advice が ad-do-it を有効にするのは
関数の実行時のようなので、結局無理ということがわかりました。

もともと advice は lexical な変数や関数を考えて作ってないので、
仕方ないのですが。

>>234,235
>長々と余計なコードを .emacs に書きたくなくて。
>advice でできれば数行ですむのに、
本当にこっちの優先度が高いのなら、元の関数をバイト・コンパイルしなけれ
ばなんとかできそうな気もするが。

>>237
自分で advice もどきの macro を作って、
一応できるにはできたのですが、(byte-compile してても OK)
しかしそうすると advice に対応できなくなって
汎用性がなくなるので、結局使うのはやめました。

参考までに書くと、こんな感じのやつ。
hoge を advice すると、結局使えなくなります。

(defmacro new-hoge ()
`(labels ((new-func () old-func))
,(symbol-function 'hoge)))

>>238
236 では書き換え対象が car だったのに、old-func に変わっちゃったわけね。

(´-`).｡ｏＯ(adviceって何だろう？)

そういえば起動時 loading adviceってあるな。
hook みたいなもんかな。

>>240
advice は既存の関数を書きかえる時に便利だよ。
とりあえず elisp の info でも読みな。

(eval-and-compile
(require 'hoge))
と
(require 'hoge)
はどのように効果が違うのか誰か教えてくだされ。

>242
上だと(require ..)の結果を実行してしまわないか？

;; 読まずにカキコ って……、そんなにレベル低いかなぁ。
> 上だと(require ..)の結果を実行してしまわないか？
どちらでも実行(というか評価)されるんじゃないのですか?

>>244
場合による。

emacs lisp でマルチスレッドな処理ってできるんですか？
絶対無理？

>>246
つーかemacsのマニュアルみてよ
多分無理だと思うけど

>>246
無理。process filter使って複数のprocess/network stream扱うのは可能。

ELF が面白い。

buffer local function ってできないかな?
あるバッファでだけ関数をおきかえたいっての。
できたら少し便利かも??

>>250
あるモードでだけおきかえる、ってのじゃだめなの？

OOっぽくていいかもな。

(age)

Emacs Lisp かじり始めの厨房です。
Perl でいうところの、
$data{'name'}='Mona';
$data{'age'}=14;
$data{'prop'}='AA';
push(@list,\%data);
みたいなデータ構造をEmacs Lispでやるには
どうしたらいいですか？

alist(連想リスト)かな。
(setq data '((name . "Mona") (age . 14) (prop . "AA")))

追加するときは
(setq data (cons '(hoge "foo") data))
=>((hoge "foo") (name . "Mona") (age . 14) (prop . "AA"))

;; あんま自信なし(汗

?\x20を評価させると 32になるので、
16進数を10進数で表示させる関数を作ろうと思いました。
が、引数で '20'が渡ってきたとして、
?\x20を生成＆評価させることってできるのでしょうか？

>>256
お望みのままに処理すると
(eval (car (read-from-string (concat "?\\x" (number-to-string 20)))))

こうかな? マクロにすると

(defmacro my-dec-to-hex (num)
(car (read-from-string (concat "?\\x" (number-to-string num)))))

こんな感じ。でも ?\x20 を評価して 32 になるのは FSF の場合であって
XEmacs だとダメです。 それに read-from-string とか使っててダサいな。
誰かまともなの示して。

(car (read-from-string [string]))
を
(read [string])
でいいのでは？
どうせエラー処理しないなら

むぅ、read で直接文字列食わせれるのか。
ところで read-from-string だとどのようにエラー処理ができるのか
Info 読んでもよく分らん。よろしければ教えて。

質問して答えてもらったのにできたともできないとも言わない奴なんとか言え。
;; とか思うのは俺だけ？

>>257,258
できました。ありがとうございます。
\?\xってやってできなかったので、
Cみたいな関数つくってでガマンしてました。(w

>>261
こんな感じにしてみました。
ツッコミあったらよろしくお願いします。

(defun dec-to-hex-or-hex-to-dec (num)
"10進数->16進数, 16進数->10進数"
(interactive "sNum?: ")
(if (string-match "0x" num)
;; 16進数->10進数
(message "%s is %d." num (read (concat "?\\x" (car (split-string num "0x")))))
;; 10進数->16進数
(let ((int (string-to-int num)))
(message "%d is 0x%x." int int))))

>>256,257
ふたりともとってもいい人というか、関係ない文字を渡されたときのこととか考えてないのね。
エラー処理とは、そういうことを指してました。
ちなみに、elispレベルのエラー処理をするなら、condition-caseで引っかけるのが普通でしょう。

>>262
せっかくなので、ちょっとだけ。
機能的には、大文字にも対応できるようになったはず。

(defun dec-to-hex-or-hex-to-dec (num)
"10進数->16進数, 16進数->10進数"
(interactive "sNum?: ")
(let ((case-fold-search t))
(if (string-match "^0x\\(.+\\)" num)
;; 16進数->10進数
(message "%s is %d." num (read (concat "?\\x" (match-string 1 num))))
;; 10進数->16進数
(let ((int (string-to-int num)))
(message "%d is 0x%x." int int)))))

>>263
> >>256,257
> ふたりともとってもいい人というか、関係ない文字を渡されたときのこととか考えてないのね。
> エラー処理とは、そういうことを指してました。
> ちなみに、elispレベルのエラー処理をするなら、condition-caseで引っかけるのが普通でしょう。

うん、だから condition-case は使うとして、エラー処理における read-from-string の
read に対する優位性について知りたいのです。よろしければ。

あと、XEmacs は (char-to-int (read "?\\x10")) とすれば 16 が返ります。
;; int-to-string は number-to-string のエイリアスなのに、char-to-number がない

>>264
signalが発生するような場合ではどっちを使っても大差ない。
read-from-stringに渡せる2つの追加パラメータと、返り値のcdrの情報が利用できるだけです。
readだとall or nothingなので。

>256
＞?\x20を評価させると 32になるので、
とあるけど、これはあくまでchar型を16進表示したものだから、
16進数を10進数に変換させるには不適当。

(char-to-int (read "?\x200")) ;; XEmacs なもんで(^^;
-> 32

(read "#x200") ;; こっちが正解
-> 512

>>265
さんくす。

>>266
> (read "#x200") ;; こっちが正解
> -> 512

これ、FSF でも 21 から使えるようになってるみたいですね。

>>263
match-string()なんてのもあったのか。サンクス。

>>266
XEmacsは使ってないのですが、とりあえずメモっておきます。
サンクス

>>250
(current-buffer) を見て分岐する様な関数に置き換える、とか…
…何か問題が出そうで恐いけど。

自作のライブラリなら funcall すればいいけど、built-in の普通の
関数だとやっかいそうな気がするね。
まぁ、ふつう advice で切り分けるんだと思うけど。
ところで2重、3重に advice が重なると、それらの適用順とか
どうなるんだろう。前から気にはなってるが調べる気力がない。
;; それ以前に知力もない

defun と defsubst の使い分けの基準はどんなとこなんでしょうか。
たぶん高速化のために inline 展開したいような関数とか、
(nth 3 list) だけなようなものに使うんだろうと思うけど、
そこそこの size のある関数で、それほど速度も要求されてなさげな
ものでも defsubst されてるのを見ると分らなくなってきました。

age

あのぉ、質問なんですけど、ウィンドウをスプリットするにはどうすればよろしいでしょうか？

C-x 2
http://www.sr3.t.u-tokyo.ac.jp/~takekawa/gnujdoc/emacs-20.6/emacs-ja_toc.html
まぬある嫁

>>274
そのまぬあるすごいです。わぁい。
いーまっくす・りすぷでやるには、どういう関数を使ったら
よろしいですか？

>>275
split-window-vertically

M-x help-for-help k C-x 2

>>276
できました。おぉー・・。
ありがとうございます！
へるぷクエストへいざ。では。

下がってんな、下手したら落ちるんちゃうか。

>>278
UNIX板の方が盛況だね。
あっちはemacsが普段の環境って人もいるし。話も出やすいんでしょう。

質問!!member関数を､第２引数のリストの深いレベルまで
第１引数を探索して取り除くように拡張した関数はどうやって
作ればいいんですか?

>>280
kazu さんの「リスト遊び」を読んでみると楽しいよ

>>280
ﾏﾙﾃｨは市ね

>>280
ループ判定までやろうと思うと、結構面倒そう

(eval-after-load "hoge"
'(progn
(fset 'old-homo
(symbol-function 'homo))
(defun homo ()
･･･････････)))

何てしたときに、
homoのデバッグが出来ません。

なんか方法があるの？

いってる事がよく分からん。
デバッグできないとは homo() を後から edebug しようにもできないのか?
にしても、homo() だなんて、レス付けるのも嫌な関数名にしやがって。

>>284
「homoをbreakpointに指定したのに止まらない。」
とお前は言いたいのだろう。
debugger何使ってるの? edebugでも駄目か?

>> 285
>> 286
.emacs.el内で、homoをoverwriteして
その中でbreakpoint設定してます。
edebugです。

homo内で止まってくれないんです。

>>287
ちゃんと調べずに聞き返すけど、
edebug.elじゃなくて、debug.elってことはない?
debug.elはsymbol-functionを書き換えるから。

誘導ポイント…ごめん、何のことかわかんないこのスレの人たち↓
LISP Scheme Part5
http://pc.2ch.net/test/read.cgi/tech/1023091882/260-

しまた、誘導ポイント間違えた…逝ってきます。

もしEmacs Lispでlinuxが書けたら、emacs上でlinux がうごくんですよね？

>>291 ええと、実はすでにEmacsとLinuxが使ったときの感じとして
同じというか。現状で(学問的に)OSがどう定義されているのか
不勉強で知らないのですが、使った感じはOSそのものです。
Emacs上で動くアプリケーションは、ネットニュースリーダー、
WWWブラウザ、2chブラウザ、エディタ、統合開発環境など。
その他、だれかが
「これはEmacs Lispでは書けないな」とどっかでelisperに言ってしまうと、
それがどこからともなく、 comp.emacs.sources (かな)
にでて来るかもしれないというのは面白いよね。

ここらへんで、「おまえOSになりたいとｺｿｰﾘ思っているのだろう!」
とEmacsを嫌いになる人もいるけど、これは考え方の違いだから
しかたないよね。

>292 ＯＳってーか、シェルのような気もする。

>>293 そうだよね。でも俺が言おうとしたのは、
窓口はシェルだけど、じっさいに欲しいものがあるのは
その奥にあるOSという感じで言ってみたんだけど。

OSやシェルというよりはミドルウェアのように感じる。

elisp で、「漏れがどれくらい激しくメモリを使っているか」を調べられないのかな？

>>296 Elisp マニュアルのガベージコレクションというノード(ページ見たいなもの)
にたぶんそんな感じのものがあるとおもいます。

よしっ、今日はもう酒が入っちゃったけど、ラブアンドピースで
elispをやるか。寝言みたいなこといってすまん。

がんばってくれ。ラブアンドピースで。

>>299 そうなんだよ、ムシャクシャしたときは、
elispハックすると不思議とおだやかな気分になるんだよな。
ってこんな雑談はしていいのだろうか。

>>300 そうそう、そんでEmacsをどんどん進化させてみるか、みたいな。

elisp meditationか。カリスマのなせる技、か?

>> 302 いやカリスマとかなんとかより、そういう感じで
ストレス解消してる人って結構多いぞ。俺はソフトウェア
関連の職についているけど、みんななんていうか、
自分の思いどうりに開発できる俺プロジェクトみたいなの
持っている人ってけっこういるぞ。

ま、そりゃ分かる。

それで万に一つ金にでもなりゃ、ラッキーみたいな。
まぁシェアウェアにするのも一つの手かもしれないけど、
ストレス解消で書いたものでサポートまでするのめんどうだ
っていうんで、無料で配っちゃっている友だちもいるけどな。

俺はいまはベロベロに酔っ払ってすでに意識がどうなっているのかあやしいのだけど
まともじゃないかもしれないが、日本のソフトウェア界って、自慢システムみたいな
のはないのかな? いや、なんていったかなrubyの松本さんが認定されたみたいな
企画があった気がしたんだけど、傲慢ないいかただけど「そりゃそうだろうけど、
釣れるとかいう言葉を(俺は今なら別に全然平気なんだけど)使ったら
侮辱ととるすごく若い優秀な人がいるんじゃないの?」と思っちゃうんだよね。
いやちょっとアメリカにかぶれていんだけど、アメリカはなんつーか自慢したもの勝ち
みたいな感じなんだよね。別にそれが全然すごいことじゃなくても、なんていうか
あ、今回の宝くじははずれでしたみたいな感じで、どんどんどんどんやってみると
いうか、それで、その宝くじがハズレでも、みんな「ああ残念だけどハズレちゃった
ね」みたいなかんじで、「じゃもしかしたら次は当たりかもね、ガンバレヨ!」って
感じかな。そんで、俺は意識したことがないんだけど、よくよく考えてみるとRMS
つまりFSF(フリーソフトウェアファウンデーション)を創設した
リチャードストールマンが日本の偉い人に「日本に来てやってみない?」と
誘われたんだけど「僕のいるばしょは日本にはないような気がする」といったって
何か雑誌で読んだのだけど、もしかしてこれってそういう感じなのかなと、
おこがましくも感じてしまいました。

いや、もちろんアメリカだって「そんな外れ宝クジたくさん勝ってバカじゃねーと」
という人はたくさんいるだろうけど、雰囲気として勝ったもんがちみたいな感じね。
そんでRMSみたいに「そりゃ金もたくさんありゃ面白いかもしれねーけど、
プログラミングを究めたほうがもっとおもしろいぜ!!」みたいな人もいると。
でもRMSは最近プログラミングしてんのかな?

>>307 あーごめんごめん。RMSの目標はフリーソフトウェアだったな。
しかし、そこまで視野を広げるって凄いな。

>> 308 それとそういうことをした結果として起こることを引き受ける覚悟みたいな
感じかな。

>>306
rubyのって、IPAの未踏ソフトウェア創造事業とかいうやつかな。

>> 310 そうじゃない。でもあれはあれで
金銭的に厳しいけど志があるハッカー(すごいプログラミングをする人という意味)
を最低限救済するシステムとしては、機能してるとおもうけど。

「そうじゃない」というのは「そうだとおもうよ」という意味ね。

ようやく customize まわりの使い方がわかった…

Emacs から C で書いた関数を呼び出したいんですが、
どのような方法があるのでしょうか？

dynamic loading というやつ（←まだ内容が良く分かってない）
以外にもやり方があるのでしょうか？

w3 と lookup が必要ですが、英辞郎 on the Web を引いてみますた。
http://www.alc.co.jp/

(defun eijiro (pattern &optional mode)
"Look up PATTERN in the online Eijiro dictionary.
MODE should be \"ej\" for English-Japaneseor
or \"je\" for Japanese-English."
(interactive (lookup-pattern-input))
(let ((cgi "http://home.alc.co.jp/db/owa/eijiro_red2")
(word-prefix "word_in=")
(mode-prefix "type_in=")
;(url)
;(hexified-pattern)
(top-margin 15))
(or mode (setq mode "ej"))
(setq hexified-pattern (url-hexify-string pattern))
(setq url (concat cgi "?" word-prefix
hexified-pattern "&" mode-prefix mode))
(w3-fetch url)
(message (concat "Looking up : " pattern ))
(set-window-point (selected-window) (point-min))
(scroll-up top-margin)))

英日/日英 自動切換えはまだです…
(やりたいという意思表示は &optional mode あたりに…)
xemacs 21.4 (patch 6) でしか確認してません。

>315 すんません、なんか let の中で変数がコメントアウトされてます。まちがい。

>>315
「自慢の.emacsを貼り付けよう」スレって知ってる？
自動切換え可能になったら是非自慢して下さい。

>>317 了解しますた。でも「マルチポスト」っておこられないかな…（怖

あとまわしになっちゃいましたが、↓のひとたち、ありが�d
http://pc.2ch.net/test/read.cgi/tech/1004551074/317
http://pc.2ch.net/test/read.cgi/linux/1021865124/227

なんかネタ無いー？
7行で書けるようなネタ無いー？

関数名って半角カナとかでもいいんですね。*scratch* で遊んじゃった。
まともに役に立ちそうな使い方が思いつかないけど。

(defun ﾟДﾟ () (message "ｺﾞﾙｧ！")) ;; ここで C-j
ﾟДﾟ

(ﾟДﾟ) ;; ここでもういちど C-j
"ｺﾞﾙｧ！"

>>321 知らんかった。

(defun ･∀･ ()
(goto-char (1- (point)))
(princ "ｲｲ!!")
(newline))

navi2ch で使われてるシンボルを AA にしよう。

なんか役に立つ使い方無いかなー。うーーん。(←本末転倒)

ところでC言語で

#define _
for(;_;){
}

で無限ループってのがあったね。等幅フォントだと泣いている顔に見える。

>>323
入力がめんどくさい。

>>323
逆か?

あげ

なんだなんだ？

listの中の要素数を調べる関数ってありますか？
↓現状、こういうことしているんですが。。。

(defvar alist '(("111") ("222") ("333") ("444") ("555")))
(("111") ("222") ("333") ("444") ("555"))

(let ((num 0))
(mapcar
(lambda (mem) (setq num (1+ num))) alist)
num)
5

>>329
length

Emacs Lisp よくわからんがこんなの
(defun length (x)
(cond ((eq x ()) 0)
(t (+ 1 (length (cdr x))))))

>>330
サンクス

Emacs21.2だと lengthは built-inになっていますけど、
実際のところどういうふうに実装されているのでしょうか？
Cで書いてるの？

Ｃでしょう。こんな感じで

int length(obj x)
{
int i = 0;

while (pair(x)) {
i++;
x = cdr(x);
}

return i;
}

>>332
built-in関数はCで書いてある。
引数がリストの時の処理はだいたい↓みたいな感じ。
(defun my-length (list)
(let ((num 0))
(while list
(setq num (1+ num)
list (cdr list)))
num))

>>331
それだと長いリストを渡すとstack overflowしちゃう。
elispは末尾再帰もしてくれないので、リスト処理はループに展開するのが
定石っぽい。

doってあったかな。

(do ((a alist (cdr a))
(i 0 (+ i 1))
((null a) i))

>>333
サンクス。勉強になりますた。

関係ないけど、最近Cでも (if ... とか
variable = if(...).. とか書きたくなってしまう。(-＿-)ｳﾂﾀﾞ

>>335
(require 'cl) すれば使える。

Olin Shivers: History of T
http://www.paulgraham.com/thist.html

>I asked RMS when he was implementing emacs lisp why
>it was dynamically scoped and his exact reply was that
>lexical scope was too inefficient.

やくせ

RMSがemacs lispを実装しとった時に「なんで動的scopeやねん?」と聞ーたら、
「静的scopeは非効率すぎー」とはっきり言うたよ。ほんまやよ。

emacsでHOMEを一回押したらback-to-indent。そこでもう一回押したら行頭にいく
ってできますか?昔VisualStudioかDelphiのエディタで重宝した動きなんですけど・・・

>>341
(defun my-back-to-indentation-or-beginning-of-line ()
(interactive)
(let ((p (point)))
(back-to-indentation)
(if (= p (point))
(beginning-of-line))))
こんな感じでどう?

>>340
う〜ん「静的scopeじゃあうまくいかんのよ」くらいかな?
"window/buffer/frame local variable"なんかは動的scopeの方が親和性高いし。

>>343
うーん、そうかなあ。
(let ((var 'hoge)) (with-current-buffer buf (func var)))
とかvarがbuffer localなのを忘れてやっちまった場合、なんで挙動不審なの
か悩むことになる。

ところで、CVSをのぞいてみると、lexbindってブランチがあって、
lexical scopeもbuilt-inでできるように作業してるみたい。

>>342
thx! またemacsがパワーアップ。どこまで逝くんだろう。。。

もっと、名前空間を功く使えれば…って思う。
buffer とかだけじゃなくて、他の物にも local な変数が欲しくなったりするし…

global の変数の方が、動的の恩恵を受けてそうな気がするな…
let で気軽に束縛して、引数みたいに使えるから。
…本当は、引数にした方が良いんだろうけど。

さあ、おまいら、存分に叩いてください。

(defun get-token ()
(defun hogehooloop (s)
(let ((ended nil))
(while (not (eobp))
(let ((c (char-befor)))
(if
(or (= ?\r c) (= ?\n c) (= ? c) (= ?\t c))
(setq ended s)
(setq s (cons c s))))
(forward-char 1))
ended)
(let ((chars (hogehooloop '()))
(and chars (getStringFromList (reverse chars)))))))

>>347
えーと…これって、 elisp なんだよね？

・内側の defun って、多分 local にならないと思う。
こう云う使い方なら、 cl の flet とかを使う方が良いんじゃないかな…

・hogehooloop では、引数の s を書き換えてるのに、返してるのは ended だね…
buffer の最後迄走査して、空白とかを除いて、 list にしてるけど…
それは普通、 token って呼ばなそう…
もしかして、 ended も while の条件だったり、返す値が違ったりしない？

・細かい事だけど、 char-befor -> char-before だと思う。

・最後の and は、 when を使う方が分かり易いんじゃないかな。

・あと、 getStringFromList って、標準の関数？
見付からなかったけど…

>>348　おまえ、まことにありがとうございますです。

はい、
×(while (not (eobp))　→　○? (while (not (or eobp ended))
ですた…。

あと、getStringFromListは、そういう関数がここにほしかったけど、
みつかりませんでした。ユーザコードでは書けなそう山車。
こういうときどう探すんですか？
C-h f ^i で出る候補のバッファで、それっぽい
キーワードでサーチしてるんですが…。
＃↑キーバインド変えてますけど、デフォルトのバインドってことで．

＞引数の s を書き換えてるのに、返してるのは ended だね…
これだとsをwhileの条件に使えないので、こうなりますた。
あ、sは引数だから、呼んだ側でそれをそのまま使ってやればいいのか。でも
それってあんましよろしくないような気がするのは、漏れが厨だからでしょうか。

＞えーと…これって、 elisp なんだよね？
いひひひひ…。厨の糞コードの見本ですかね。。。

>>347
普通、こういう処理をするときは、
・skip-chars-forward + buffer-substring
・looking-at + buffer-substring
などを使うのが常套手段だ。

どうでもいいけど、括弧が全然合っていないのだが。

>>349
getStringFromListに相当するのはconcatかな。

>>350,351 おまいら、はげしく感謝いたします。

＞concat
そ、それだぁ！ 激しくキホソの予感。鬱氏。

＞・skip-chars-forward + buffer-substring
＞・looking-at + buffer-substring
なるほど。こいつぁいいです。
というより、こうしない漏れがアフォなんですな。

ううむ、無理してスクラッチからこんな糞コード書いてるより、
先人のコードいじりからはじめて
こういういろんな関数と言うか、常套手段を会得した方が速いのでしょうか。

しかし、まともなのってみんなでかくてむずいんだよなぁ。

>>352
まずemacs-lisp-introを全部嫁。

解決したみたいだけど…一応返信。

>>349
> ○? (while (not (or eobp ended))
また細かいけど、 eobp は関数だから括弧が要るよ。
私も前やって失敗した…

探し物は… info 読んでからは、 M-x apropos とかだと思う。

> あ、sは引数だから、呼んだ側でそれをそのまま使ってやればいいのか。でも
> それってあんましよろしくないような気がするのは、漏れが厨だからでしょうか。
うーん… setcar とかで書き換えれば、呼んだ側からも参照出来るけど…
私も余り良くないと思う。
ended は単に t に設定して、戻り値には s をそのまま使う、とかを考えてた。
文字の判定も while の条件に含めちゃうとか。

> いひひひひ…。厨の糞コードの見本ですかね。。。
ごめん、そうじゃなくて…見慣れない関数が有ったりして、不安になっただけ。

>>353 >>354 貴様ら、私はなんといって感謝すればよいのか判りません。

なるほど、Info、これですね。
http://www.math.s.chiba-u.ac.jp/~matsu/lisp/emacs-lisp-intro-jp.html
（実はLinuxでもmanする人だったりする。逝ってよしか）
とにかく修行してまいります。

>> いひひひひ…。厨の糞コードの見本ですかね。。。
>ごめん、そうじゃなくて…見慣れない関数が有ったりして、
いや、事実極上の糞コードですから。

red.elどうすか？
http://nicosia.is.s.u-tokyo.ac.jp/boomborg/boomborg-red-j.html
何に使うのかわからんのですが。

>>356
何に使うの？

自慢の.emacsを貼り付けよう
http://pc.2ch.net/test/read.cgi/unix/1001393679/621

http://homepage1.nifty.com/blankspace/emacs/dired.html
の一番上で書かれてる関数dired-find-alternate-fileを
dired-modeになった時に呼び出す方法が分かりません。

教えてクレヨン。。

>>359
C-h b して探せ。

いや、まだキーに割り当ててないんだけど

>>361
なら割り当てろ。

いや、これってdired-mode時にディレクトリ上で
enter押しても新しいバッファを作らないようにす
るやつみたいなんだけど、それってキーに割り当
てるんじゃなくて。。
うまく説明できないスマソ

>>363
dired-find-alternate-file って、その場でそこにある file を開くみたいだよ。
mode の切り替えとかじゃなさそうだけど。

>>364
そういうことでしたか。
dired-mode-mapをどうにかこうにかすれば
いいんですね。ありがとうございました。

>>365
でけた

emacsのファイルをxyzzy形式にコンバートするツールないかな

>>367
elispライブラリを誰か作ってたような

>>368
うん。標準のはあるんだけど、それ以外をコンバートしたい。

>>369
いや、elispにあってxyzzyにない関数を追加するとか、動作の違いを吸収する
とか、そういうやつ。
yatexの移植か何かで作ってたんじゃなかったかな。

emacslisp.org が乗っ取られた

http://emacslisp.org/

>>370
ども。xyzzy関係のリンクにEmacs lisp 移植キットというのがありました。
ttp://members.tripod.co.jp/osuneko/xyzzy/xyzzy.html
これはelisp独自関数をxyzzyで書き直したもので、これを読み込んでも
elispのファイルが素で動くものではないみたいです。
これを元にちょっとじたばたしてみたいと思います。

age

お<age>さん

>>359-366
emacs21 なら a に bind されてるようですが？

emacs-lisp限定となると、unix板とかの方が食いつき良いかもね。

MobileGearのPocketBSDでﾒﾓﾘに制限があるため軽いnemacs使ってます。
これは、emacs18.55.1でelispの関数が今のとちょっと（だいぶ？）
違います。そこで、elファイルを書くのに、help functionで検索
しなければならず、大変です。どっかに、elisp18、19、20あたりの
対照表などありませんでしょうか。

時間の掛かる事を background でさせたくて、色々考えてたんだけど…
emacs --batch --no-site-file でもう一つ起動してみたら、意外に重くなかった。
w3m-antenna 風の関数で使ってみたけど、結構便利かも。

>>378
お手軽マルチスレッドだね。
もうちょっと、詳しく解説してくれると嬉しいです。

>>379
させたい処理を prin1-to-string して、 emacs --eval の引数にしてみただけ…
結果は、適当な symbol で始まる list を print して、呼んだ方が read してる。
load-path は呼ぶ時の値で設定して、 coding は binary で逃げた。
通信が print しか思い付かなかったし、あんまり凄い事はできなそう…

ここもこれ実行してみる！
http://pc.2ch.net/test/read.cgi/unix/1032611750/170-
(defun display-state ()
(interactive)
(let ((buf (get-buffer-create "*display state*"))
(list (buffer-list)))
(display-buffer buf)
(save-excursion
(set-buffer buf)
(erase-buffer)
(insert (format "バッファの合計数: %d\n" (length list)))
(insert (format "バッファの合計サイズ: %d\n"
(apply '+
(mapcar (lambda (x) (set-buffer x) (buffer-size))
list))))
(insert (format "読み込んでる elisp 数: %d\n" (length features))))))

C-xh
C-uM-|
perl -pe 's/^/\t/g'
とかやってるんですけど、
これを一つ動作でやる関数はどうコーディングすればいいでしょうか？
Mx lines-to-perl<ENTER>
s/^/\t/g<ENTER>
みたいにしたいっす。

>>382
そのまま、 shell-command-on-region で perl を呼べばいいんじゃないかな。
start と end は (point-min) と (point-max) だろうし。
command は… (interactive "s") あたりで渡したいのを取って、
"perl -pe '%s'" に format するとか。
output-buffer と replace は t でいいかな。

詳しくは、 simple.el にある定義とか elisp の info とかを参照。

あるelispをデバッグしたいのですが、どのようにすればいいでしょう。
例えば、現在カーソル付近にある文字列を読み取り外部スクリプトに
渡しているようなコマンドなのですが、
Symbol's value as variable is void:
というエラーがでますので、デバッグしたいのです。

>>384 M-x toggle-debug-on-error

>>384
あやしい関数の defun のとこで
edebug-defun する、とか。

[質問]

(run-at-time 3 nil 'info)

これを *scratch* で eval すると3秒後に info が
起動しますが、そこで d を押すと一度目はエラーに
なってその後 d を押してもエラーにならないのですが。
一度目のエラーは回避できますか？

エラーの原因は *scratch* では d は self-insert-char で、
info に切り替わっているのに、 self-insert-char を実行しようとして
このinfoバッファはread-only ですよと起こられるようです。

前の人の質問がまだ解決してないようですけど、簡単な質問させて下さい。
elispとLispとどの程度共通性がありますか。何か、大学でLispの授業が
あるんだけど、一応自分でかなりelispは作ってきたから、かなり共通な
らとってみようかと。

その授業schemeじゃなくて？

Common Lispで自然言語処理とかです。

かなり書いてきている人間のする質問じゃないぞ。
elispのマニュアルの最初の方読めよ。

社会人だけど大学の授業で Lisp とか Scheme とかやるなら忍びこんで受けて
みたいな…

1年生の夏休みの集中講義で今は亡き中西先生のLispの講義受けますた。
かたぎの人生を踏み外した気もしますが、後悔はしていません。

講義って何やるの？

age

ウチの大学では scheme のインタプリタを scheme で作成とか
scheme のコンパイラを作成とかやりました。
でもこれは講義というより実習かな。

(setq hoge (append '(x y) hoge))を
(macro hoge x y)ってできる
マクロとかってありますか？

(defmacro foo (var &rest list)
`(setq ,var (append ',list ,var)))

age

hoshe

hoshp?

t

>>393 >>396 いいなー。漏れにもなにか講義してくれ。

質問させて下さい。

(defun navi2ch-article-link-ml-change-period (mlname)
(let ((point 0))
(if (setq point (string-match "\\." mlname))
(navi2ch-article-link-ml-change-period
(concat (substring mlname 0 point)
"-"
(substring mlname (1+ point)))))))

として、(navi2ch-article-link-ml-change-period "mona.giko-foo.bar")
などと呼び出した場合、mona-giko-foo-bar という形で返ってきてほしい
のですが、実際には nil が戻ってきてうまくいきません。
最後に評価されている (setq point (string-match "\\." mlname)) が
nil になっているからだ、という事はわかるのですが、どうすればスマート
に書けるでしょうか？
まだ Lisp の形式になれないのか、混乱してばかりでして…

>>404
falseの時にmlname自身を返せばいいんじゃない？
あと、let使ってるからsetqは不用、navi2ch〜は、
↓みたいに残りの部分だけに適用するだけでいいと思う。
間違ってたらスマソ
(defun navi2ch-article-link-ml-change-period (mlname)
　(let ((point (string-match "\\." mlname)))
　　(if point
　　　 (concat (substring mlname 0 point) "-"
　　　　 (navi2ch-article-link-ml-change-period
　　　　　 (substring mlname (1+ point))))
　　　 mlname)))

(defun navi2ch-article-link-ml-change-period (mlname)
(let ((point 0))
(if (setq point (string-match "\\." mlname))
(navi2ch-article-link-ml-change-period
(concat (substring mlname 0 point)
"-"
(substring mlname (1+ point))))
mlname)))
でいーんじゃないのか？ if の condition 部分が nil のとき
（= 再帰の終わり）で値を返しましょう．

>>405 うぉ，ケコーン!!しかも漏れのがヘタレな解答をしてしまった…．
そこで，ちょっと知恵を絞ってみた↓．
(defun foo (mlname)
(mapconcat (lambda (e) e) (split-string mlname "\\.") "-"))

navi2ch をロードしてる時に使えりゃいいなら
(navi2ch-replace-string "\\." "-" mlname t)
でいいんじゃないの?

"\\."ってなに？

何が聞きたいんだ？バッックスラッシュが二つある理由か？
それとも正規表現としての意味か？

>409
ただの文字列だけど。
\を２回書いているのは、本来のエスケープシーケンス文字の意味で
使われる\を、文字'\'そのものとして表すため。
(これはC言語の文字列と同じ)
文字列の内部表現は\.

さらに、この文字列はstring-matchへ正規表現文字列として
渡されるので、\はメタ文字に対するエスケープ文字と解釈される。
よって、string-matchにはただの文字ピリオド'.'を渡した事になる。

先生!! M-x search-forward-regexp したときは \．で良いのは何故でつか!!

エスケープすればいいだけだから

おお！すばらしいです！
>>405-408 さん、どうもありがとうございます。特に >>407 には感動しました。
mapconcat なんてのがありましたか。

実はですね、UNIX 板のキチガイスレにこんなのがありまして、
http://pc.2ch.net/test/read.cgi/unix/1037490849/89
[linux-users:90000] なんてのを、リンクにしてくれるものなんです。
ですが、[Momonga-users.ja:00002] などというのは、途中にピリオドがある
ため、元のコードじゃ使えないので、ちょっと改造しようと思いまして。
これで一応、使えるようになったかなと思いきや。別の問題が。

>>414 のつづき

(defun navi2ch-article-link-ml-put-link-property ()
"ML のタグにリンク属性を付加するって関数です"
(save-excursion
(point-min)
(while (re-search-forward
"\\[\\([A-Za-z0-9_-]+\\)[ :]+\\([0-9]+\\)\\]" nil t)
(let ((url (navi2ch-article-link-ml-get-url (match-string 1)
(string-to-number (match-string 2)))))
(and url (navi2ch-article-set-link-property-subr
(match-beginning 0) (match-end 0) 'url url))))))

という部分があるのですが、該当する正規表現の部分を [A-Za-z0-9_.-] と
いう形にしてピリオドにもひっかけようと思ったのですが、

Signaling: (args-out-of-range #<buffer "*navi2ch article http://pc.2ch.net/linux/dat/1036429182.dat"> 13 14)
signal(args-out-of-range (#<buffer "*navi2ch article http://pc.2ch.net/linux/dat/1036429182.dat"> 13 14))
byte-code("..." [window-configuration err set-window-configuration signal] 3)
navi2ch-bm-select-article(nil)
call-interactively(navi2ch-bm-select-article)

と、停止してしまいます。正規表現にピリオドを含めた事がおかしいのだと
思うのですが、[] 内にある場合は問題ないですよね？
それとも、ピリオドを含めた事で、予想外の範囲までひろってるという事でしょうか？

>>413 それはちっと簡潔すぎやしないか．
Emacs に評価させる elisp コードは，Lisp パーサで解釈されてから
正規表現エンジンに渡されるので， Lisp パーサが文字列作る時に
\\ が二つ必要になる．それに対して，M-x で呼んだ時は Lisp パーサ
通らねぇで直に正規表現エンジンに渡るから \. で良いんだ．

emacsの正規表現読みにくいね。
なんだっけ、here-documentって使えなかったっけ。

文字列と一緒なのがよくない。

つまようじ (･∀･)ｲｲ!!

>>417 re-builder ツカエ。これでも嫌ならしょーがねぇ python でもツカエ。

>>415
> (defun navi2ch-article-link-ml-put-link-property ()
> "ML のタグにリンク属性を付加するって関数です"
> (save-excursion
> (point-min)
ここはたぶん (goto-char (point-min)) だろうね。

> という部分があるのですが、該当する正規表現の部分を [A-Za-z0-9_.-] と
> いう形にしてピリオドにもひっかけようと思ったのですが、
それと、navi2ch-article-link-ml-momonga-users.ja()
つーのを定義すればいいはず。 エラーは別の原因じゃない？

http://www.mew.org/~kazu/doc/elisp/regexp.html

>422 そこのハッシュの解説読んで Emacs21 にはハッシュがあるというの
を知りますた…

正規表現を入力したらそれの文字列表現を返すようなのってないんですかね

まぁすぐ書けそうな気もしますが

16進数を2進数やunsignedの10進数に変換するにはどうしたらよいでしょうか？

(let ((str-num "0xffffffff"))
(if (string-match "^0x\\(.+\\)" str-num)
(message "%s is %d." str-num
(read (concat "#x" (match-string 1 str-num))))))
"0xffffffff is -1."

[a-z]+とかはどうするの？ 無限にありますよ。

(　´∀｀)え？

>>424
(prin1 (read-string "re: "))
みたいな感じてこと?

>>421
うわー、まったくその通りでした。
関数名にはピリオドだめだと、勝手に決めつけてました。コロンが OK なの
は知ってましたが、ピリオドも通るんですね。

うまく動きました。ありがとうございます。

>>424
regexp-quote か?

(prin1 (read-string "re: ")) でだいたいやりたいことができました。
こんなのあったんですね。

>>425
(string-to-int "1010" 2)
(string-to-int "ffff" 16) -> 65535
こんな事がやりたいのか？まぁ，#x とか #b とかの prefix 付きで
read しても良いわけだが…．

>>432
そうです。どうもありがとうございました。

宿題を教えてほしいんですが…

(defun diff (e a)
(cond ((atom e) (cond ((eq e a) 1) (t 0)))
((eq (op e) '+)
(make-sum (diff (arg1 e) a) (diff (arg2 e) a)))
((eq (op e) '*)
(make-sum (make-prod (diff (arg1 e) a) (arg2 e))
(make-prod (arg1 e) (diff (arg2 e) a))))))

(defun op (e) (car e))
(defun arg1 (e) (cadr e))
(defun arg2 (e) (caddr e))
(defun make-sum (x y)
(cond ((eq x 0) y) ((eq y 0) x) (t (list '+ x y))))
(defun make-prod (x y)
(cond ((eq x 0) 0) ((eq y 0) 0)
((eq x 1) y) ((eq y 1) x) (t (list '* x y))))

で、-,/,sin,cos,tan,exp,logなどを含む式も微分できるようにdiffを変更して
(* (exp (- x)) (sin (* 2 (* pi x))))を微分せよって問題です。

なんかうまく答えが出てくれなくて・・

((eq (op e) 'sin) (make-prod (list 'cos e) (diff e))

(if A B)
(when A B)
(and A B)
どれが好き?

ifでお願いします。

短いのなら if で、長いのなら when で…かな。
and でやるのはちょっと変則的な気がして、あんまり好きじゃない。

(if A (progn B C)) は (when A B C)
(if A (if B C)) は (if (and A B) C)
で書くかな。
書いてる時の気分によるところが最も大きいような気もするけど。

(and A B C)

>>435 お主もワルよのぅ。漏れも人のためにならないこと大好き。ケケケ。
((eq (op exp) 'sin)
(make-product (diff (arg1 exp) var) (list 'cos (arg1 exp))))
((eq (op exp) 'cos)
(list '- (make-product (diff (arg1 exp) var) (list 'sin (arg1 exp)))))

else 部が無いやつは when で書きたい。(if cond then) ってなんか嫌。
(if cond (prog A B C)) はすげー嫌。完全に個人的な趣味だが。

｡･ﾟ･(ﾉД`)･ﾟ･｡

((eq (op e) 'exp)
(make-product e (diff (arg1 e) a)))

で，最近ネタ不足なわけだが，>>434 よ，調子はどーよ？

return も break もないのが不便で仕方ありません。
何とかごまかす方法は無いでしょうか。

returnとかreturn-fromとか。

まずは catch throw で、cl はもっと後でもいいんじゃないかな。

再帰で書け

とあたり前の結論が出た所で、
(defmacro def (name args &rest body)
`(defun ,name ,args (catch 'RETURN ,@body)))
(defmacro return (exp) `(throw 'RETURN ,exp))
(def f (a) (return (+ a 15))
おら。すでに Lisp じゃねー気もするが。

returnやbreakがないなんて言ってる椰子は
まずmacroを覚えれ

ねた切れ sage

ネタ振り．S 式で書いて HTML に変換しよーとしたんだが，なんかイマイチ．
----BEGIN BASE64----(sexp2html.el.gz)
H4sICMq57T0CA3NleHAyaHRtbC5lbACdVcFu00AQPTdfMd1Ldw+OVbigpM0Fcaio
EIfcKIeNPY0tvLZrr0n9P77xASBx4FrR7+AzkJhZJ47tNqWQSLF3Zt7b93bGznwO
H77fNc3P3x8n8znIEu0NhNpqOJGzyJqEo0fAH1qjDvdrCtjYJgjivV4jLPleqEHe
IBERjc09vKnizyBeZ6nF1HrLOkcBs6BdgrB4a33ebw5BpAuScV7Za+/Vo4SpNshU
eV3E68j2eRJtVqEWSvV1r7KwHtBEpyCWF8vLNwP6WVQMqnIQJd7m3oJ1QalNnuDx
8UhR1TshXicx/WgQbHrm+5vNZlrrKMumQWZ8AeLy4t1boUhoXNrTAVcLdokXhxIv
B85ajVFlzHQ6fcKKakHNXfOl+dr8+Parud82u3PHLVeTiQzxukrB6rW3KG0Rp2uQ
tFBUW612gbI2qyzxXBdc8pT490hLrXUoSEpLSINmhQXsAl1pzm32XEclJybkJ05L
LKiNZxwWLmR0HuiCSlxnQaKaOFuSeh6ClJ+w3mRFmAOqDs+5QBMPfWXfDNWIc8Hn
cUQkUrbhx7FXQgCguyrlIABjneAvrlLuydCUToMoK/a2EiReuYuynfYkjlgASJ3n
SQ0n241lEG7zisHwUNmZhqjA63NWuCUllQsxqifuYUCc+Xrh3O/k9iZA2gLRqeWD
ZZyUrDatkgRcjoTazLT37Vb7A3Sm2sxI8yje35GNDth4xPO/YP6Fr5uNB7CdR67q
ZrYr4pcfT6Aiz/0xHW1wGNxDdl1/LnZV8OO7q3qk+6OZ7nnrDeQW/MTxUNb+1x6L
Hv8mwhQOGHG7uj8NcK9goJclzLJE7R828QyxBzX6T4p0zO2DO/kDTW9JqeYGAAA=

----END BASE64----

http://harukat.hp.infoseek.co.jp/lisphtml/about_lisphtml.html ?

どうせなら AllegroServe 互換に汁 !!

html→S式もできないと使い道無いよ

>>454 そんなのがあったのか…知りませんでした。こーゆうのに合わせるべきか？
>>455 なにそれ？
>>456 すまぬ。漏れは「S 式だとインデントが楽」とか「ページ内の
H[1-5] タグを検索してインデックス作成」くらいしか考えてなかった。

つまらんネタを振って申し訳ない。逝ってきます。

保守 age

(setq animals '(("giraffe" . (a1 a2))
("gazelle" . (b1 b2))
("lion" . (c1 c2))
("tiger" . (d1 d2))))

上のlistから
("giraffe" "gazelle" "lion" "tiger")
なlistを作りたいので

(defun print-elements-of-list (list)
(let (q)
(while list
(setq q (append (caar list) q))
(setq list (cdr list)))
(print q)))

としましたが、
(116 105 103 101 114 108 105 111 110 103 97 122
101 108 108 101 103 105 114 97 102 102 101)
となってしまいます。

どうすれば良いですか？

>>459
(mapcar #'car animals)

>>460
function で quote してるのはなんで?

>>460

ぐっ、勉強不足でした。
ありがとう。

>>461
便乗質問、しつれいします。

(mapcar (lambda () (hogehoge)) foobar))
(mapcar '(lambda () (hogehoge)) foobar))
(mapcar #'(lambda () (hogehoge)) foobar))
(mapcar (function (lambda () (hogehoge))) foobar))

これらはどう違うんでしょうか? (3番目と4番目は同じ?)
ふつーはどうすべきなんだろう?

>>463
2番目以外は全部同じ。バイトコンパイルしないなら2番目も同じ。
普段は1番目でいいんじゃない?

わーぉ、
lambda → (function (lambda ...

マクロだった･･･

((lambda (x) (* x x)) 10)
('(lambda (x) (* x x)) 10)
(#'(lambda (x) (* x x)) 10)
((function (lambda (x) (* x x))) 10)

call-process で起動するprocessの引数にダブルクォーテーションも
含めて文字列を渡したい時どうすればよいですか？

(call-process "c:/usr/local/bin/foo.exe"
nil nil nil "hoge hage")

これだと
$> c:/usr/local/bin/foo.exe hoge hage
になってしまいますよね
$> c:/usr/local/bin/foo.exe "hoge hage"
にしたいんです。

"\"hoge hage\"" "\\"hoge hage\\"" とかやってみましたが
上手くいきませんでした。

>>467
> "\"hoge hage\"" "\\"hoge hage\\"" とかやってみましたが
前者で渡るはず。
上手くいかないのはfoo.exeのせいじゃないのかな？

> これだと
> $> c:/usr/local/bin/foo.exe hoge hage
> になってしまいますよね
> $> c:/usr/local/bin/foo.exe "hoge hage"
> にしたいんです。
この辺からして違ってそうなので、本当に期待している動作からして怪しいが。
#本当にそういうシェルだったら御免ね。

>>468
>前者で渡るはず。
>上手くいかないのはfoo.exeのせいじゃないのかな？
やっぱ、ダメでした。

c:/usr/local/bin/foo.exe "hoge hage"
だとチャント動くので、も少し粘ってみます。

ファイルのパスの空白とか渡す時にそーゆうことするわな。
本当に期待どーりに動いてるか edebug で調べてみれ。

>>468
>>470
すまんです。
思い出しました。

$> c:/usr/local/bin/foo.exe "hoge hage"
この例からもわかるとおり、cygwin環境です。
emacsは、IMEとmouse cursorパッチを当てたNTemacsで
argument editting 拡張されているのを忘れてました.

でも、
c:/usr/local/foo.exe /t hoge.txt "bar boo"
と指定は出来無そうだ。

お騒がせしました。

>>467,471
とりあえずこれが間違ってるな。
> call-process で起動するprocessの引数にダブルクォーテーションも
> 含めて文字列を渡したい時どうすればよいですか？
含めたいのは引用符じゃなくて空白なわけね。

>>472
いいえ、
スペースを含んだ文字列を引用符で囲ったものを
引数に指定したいんです。

>>473
スペースを含んでる文字列は引用符で囲って渡されるんじゃないの。

>>471
> c:/usr/local/foo.exe /t hoge.txt "bar boo"
> と指定は出来無そうだ。
え？何でできないの？

(call-process "c:/usr/local/bin/foo.exe"
nil nil nil "hoge hage")

でいいんじゃないの？
確かスペースがどうのとか考えなくてもよかった気がする

>>474
>>475
>>476
IMEパッチでは、argument editting拡張されていて
引数の渡し方が、色々操作できるんです。
(mw32misc.el参照)

バニラNTEmacsでは、それでOKなんですが、
IMEパッチ適用でdefaultの挙動が変わってしまってます。

それで、
define-process-argument-editing
を色々いじってるんですが、上手くいきません。

質問を変えると、
バニラNTEmacsと同じ挙動をさせるには,
define-process-argument-editing
をどのように指定したらよいか教えてください。

＃板違いかな

ifでお願いします。

ひ　　ろ　　ゆ　　き　　必　　死　　に　　な　　っ　　て　　る　　な　　ｗ

　マ　ス　ゴ　ミ　の　報　道　に　な　ん　て　反　応　し　な　い　で　

無　視　し　と　け

無理
もともとかなりのヘタレだから

IP記録実験
http://qb.2ch.net/test/read.cgi/accuse/1042013605/

1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。

27 名前：心得をよく読みましょう 投稿日：03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か？

38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。

73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l
＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。

記念真紀子たん(ﾟ∀ﾟ)

言　い　た　い　こ　と　も　
　　　　　　言　え　な　い　こ　ん　な　イ　ン　タ　ー　ネ　ッ　ト　じ　ゃ

暴力団に殺人依頼した。管理人を入廷時に射殺する

======2==C==H======================================================

　　　　　　　　　２ちゃんねるのお勧めな話題と
　　　　　ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数： 138720人　発行日：2003/1/9

年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。

そんなわけで、年末に予告したIP記録ですが実験を開始しています。

「２ちゃんねる20030107」
こんな感じで各掲示板の最下部に日付が入ってるんですが、
20030107以降になってるところはログ記録実験中ですー。

んじゃ！

────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────

>>158
同意だね。
リスクなんか気にするような奴は負け犬だね。

>>551
「コテハン戦隊ﾗｳﾝｼﾞｬｰ」に鑑定依頼してきますた

釣りのセンスないからやめたほうがいいすよ>>182

つまらないので寝ます。

この人じゃないの？
http://ooo.2ch.net/jikken/kako/1027/10275/1027521762.html

＜血液型A型の一般的な特徴＞（見せかけの優しさ・もっともらしさ（偽善）に騙されるな！）
●とにかく気が小さい(神経質、臆病、二言目には「世間」、了見が狭い）
●他人に異常に干渉する（しかも好戦的・ファイト満々でキモイ）
●自尊心が異常に強く、自分が馬鹿にされると怒るくせに平気で他人を馬鹿にしようとする
（ただし、相手を表面的・形式的にしか判断できず(早合点・誤解の名人)、実際にはたいてい、内面的・実質的に負けている）
●「常識、常識」と口うるさいが、実はA型の常識はピントがズレまくっている（日本の常識は世界の非常識）
●権力、強者（警察、暴走族…ｅｔｃ）に弱く、弱者には威張り散らす（強い者に弱く、弱い者には強い）
●あら探しだけは名人級（例え10の長所があってもほめることをせず、たった１つの短所を見つけてはけなす）
●基本的に悲観主義でマイナス思考に支配されているため、性格がうっとうしい（根暗）
●一人では何もできない（群れでしか行動できないヘタレ）
●少数派の異質、異文化を排斥する(差別主義者、狭量）
●集団によるいじめのパイオニア＆天才(陰湿＆陰険）
●悪口、陰口が大好き（Ａ型が３人寄れば他人の悪口、裏表が激しい）
●他人からどう見られているか、体裁をいつも気にしている（「世間体命」、「〜みたい」とよく言う）
●自分の感情をうまく表現できず、コミュニケーション能力に乏しい（同じことを何度も言う、知障）
●表面上意気投合しているようでも、腹は各自バラバラで融通が利かず、頑固(本当は個性・アク強い）
●人を信じられず、疑い深い（自分自身裏表が激しいため、他人に対してもそう思う）
●自ら好んでストイックな生活をし、ストレスを溜めておきながら、他人に猛烈に嫉妬する（不合理な馬鹿）
●執念深く、粘着でしつこい（「一生恨みます」タイプ）
●自分に甘く他人に厳しい（自分のことは棚に上げてまず他人を責める。しかも冷酷）
●男は、女々しいあるいは女の腐ったみたいな考えのやつが多い(他人をけなして相対的に自分の立場を引き上げようとする等）


それと、Ｏ♀はエコヒイキきつくて、冷酷だからな。

Ａ♂の異質排除×Ｏ♀の冷酷＝差別・いじめ　とあいなる。

>>463
電2とは何かな？

たしかに２ちゃんでは知るかボケとか逝ってよしとかハァ？とか一言レス
で書いたりするが、それはＩＰが取られてないからじゃない

Z武スレももう終わりか

保守

《一覧表》

ヾ(=・ω・）ゞゲリーな文系女 ◆/OQtXsetN.
あうあう ◆/OQtXsetN.
Dumm.com ◆/OQtXsetN.
オバハンコテ ◆/OQtXsetN.
馬鹿も風邪を引く ◆/OQtXsetN.
下痢女＠ゲリ〜＠携帯

通称ゲリーさんです。
私が腐れ30男さんのスレから拉致しました。
批判要望・電２板によくいらっさいます。

住人じゃない人も知っている事を書き込んで、楽しいでふか？粘着くん。

串揚げ

ただ内部告発的なｶｷｺも減ってしまう気もするんだが・・・

>>722
今のうちに親戚回りしておきな。

今回の件で言論の自由さえも脅かされることになるかも
誰も何も言えない時代が来そうな伊予柑

匿名掲示板の意味を履き違えてる人が多くて萎える。

では、お言葉に甘えまして。

削除系の板は今までも（恐らくリモホ表示以前から）
SETTING.TXTの設定でIPを記録していましたが、何か？

これはイヤですね

すいません、emacs-18.55.1使ってるんですけど、
encode-timeやらdecode-timeやらがありません。
この環境で、現在日付を求める関数とかって作れますか？
いや、標準で入ってるcalendarとかは、ちゃんと表示できてるわけで、
スキルさえあればできるんでしょうけど、
ソース見ても全然分かりませんでした。。

ああ、ちょっと18にも(current-time-string)っていう関数があるんですね。
これの部分文字列使えば日付とか使えそうです。…

======2==C==H======================================================

　　　　　　　　　２ちゃんねるのお勧めな話題と
　　　　　ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数： 139038人　発行日：2003/1/10

なにやら、連日メルマガだしてるひろゆきです。

そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、
全部のサーバに入れてみました。

重くなって落ちたりしてもご愛嬌ってことで。。。

んじゃ！

────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────

やべえ。俺は消されちまう。
怖いのは警察ではないぞ。

何でここに貼るのか分からん

とりあえず、最速1,000祭りデモするか････

lispでファイルテストってどうやってやるんでしょう？
perlとかだと「-e ファイル名」とかって調べられるんですけど。
そのファイルが既に存在しているかどうか、を調べたいんです。

＞1 ：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ ：03/01/08 17:13 ID:???
＞そんなわけで、qbサーバでIPの記録実験をはじめましたー。

IP記録実験
http://qb.2ch.net/test/read.cgi/accuse/1042013605/l20

ＩＰ記録実験ＰＡＲＴ２
http://qb.2ch.net/test/read.cgi/accuse/1042020193/l20

これまでのあらすじは あたりに誰かお願い。

まさか、ポリタンが立てるとは…


　　　　　　　　　　　　　　　　　　　ちょっと面白いので好。

>>509
file-exists-p ってえのがあるけど。

>>512
それだ。それでした。やってみたら大当たりッス。
サンクスコ。ありがとう。

sports3鯖死んでる??
国内サッカー板が見れない…

ていうか、ここでどーこー言ってる連中は、他を見たり書き込んだりせんのかｗ

さ〜よな〜ら、大好きな２ちゃん〜♪

　

いや、俺のIP記録してもいいけど字汚いから読めないかもよ。

今日なんにも知らない友達に
２ちゃんねるって知ってる？
とか聞かれた。絶対テレビの影響で人増えるな･･･

最高裁への上告は認められなくなったから、これで事実上判決確定だよ。
逆転も何もないって。
勢いで上告なんかしても一発で上告却下(門前払い)だよ。

二審も一審を支持。これに対して上告しようにも、
刑事訴訟と同様、自由に上告できるってもんでもないのです。
民事訴訟法312条 （上告の理由） 1項
「上告は、判決に憲法の解釈の誤りがあること
その他憲法の違反があることを理由とするときに、することができる。」
http://www.m-net.ne.jp/~doba/goto/hon.htm

ようするに上告しても今の制度では100％無駄。
これで完全終了ってことか。

>>509
Emacs Lisp なら file-exists-p 。
Common Lisp だったら probe-file だったかな。

岡田克彦ファンクラブからのご案内です。岡田克彦氏の卒業した早稲田大学
政治経済学部に比べて著しい低学歴、特に、ひろゆきの卒業した中央大学文学部
のようなヘボい大学に共通しているのは、文化水準が低いという事です。18歳から22歳を
ヘボい大学で過ごすということは、致命傷と言えます。２ちゃんねらーの大半は
岡田克彦氏に比べて、著しい低学歴ですから、取り返しはつかないのです。
せめて、http://www.geocities.co.jp/MusicHall-Horn/1091/で、氏の作品に触れましょう。

Internet Service Providerが契約者に対し
顧客情報の開示を行うことを明らかにするだけだ。
責任は書き込んだ奴が取るだけ。

最近カール★さん見ない・・・

（＾＾）

法律＞＞＞＞＞＞＞＞＞＞＞＞＞超えられない壁＞＞＞＞＞＞＞＞＞＞＞ローカルルール

日本にいるなら日本の法律を守りませう

なぁ、ちょっと確認したいんだが、ここはemacs-lispのスレだよな？

>>526
詳細は自治スレへ

>>526
はい。

「LISPの計算量評価はCONSの回数を問題とする」
って聞いたんだけど、何で？わからんのだけど。

これを読め！
っての知ってたら示してくれると嬉しいです。
教えてくんでｽﾏｿ

>>529
あのさ、「何で？」どころじゃなくて、
意味がつかめないんだけど。
質問の仕方ってのがあるだろ。

（＾＾）

（＾＾）

age

>>529 ものすごく今更だが、cons すると cons セルを消費するので cons 回数を
気にするんだYO!! だから cons セルを節約するために破壊的操作 nconc, nreverse
なんてのがあるんだYO!! しかし、優秀な gc （ACL とか）を持ってる処理系なら
破壊的操作なんてしないでバリバリ cons しまくるのが真の漢。

32ビット整数を扱うためのEmacs Lispパッケージってないですか?
(let ((now (current-time)))
(+ (ash (car now) 16) (car (cdr now))))
なんてのを書いてて、整数が28ビットなのに気がつきました。
とりあえず四則演算、大小比較と、文字列との相互変換ができれば
幸せなんですが。

>535
ちょっと調べて、bignum.elとか気の利いたパッケージがあると
思ったけど整数（28bit）と浮動小数点数しかないみたいね。
http://list-archive.xemacs.org/xemacs-beta/200105/msg00205.html
こういうモジュール組みこむしかないのかな。

今さらながら cl のマクロ使ってみた。
flet とか dolist とか、すごいね。便利。
他に dotimes、lexical-let、case、push、pop
ぐらいしかみてないんだけど、おすすめマクロ
とかあったら、おせーて下さい。

>>536
サンクスコ。
ttp://list-archive.xemacs.org/xemacs-beta/200105/msg00205.html
漏れはちゃんと理解できないけど、何やら難しそうですね。
とりあえずこんななんちゃってコードでごまかしました。
つまり整数でなく常に浮動小数点数を使うということで。

(defun my-number-to-string (n)
(let ((str (number-to-string n)))
(cond
((string-match "\\.[0-9]+" str)
(substring str 0 (match-beginning 0)))
(t
str))))
(defun my-string-to-number (str)
(string-to-number (concat str ".0")))
...
(let (now (current-time))
(+ (* 1.0 (expt 2 16) (car now)) (car (cdr now))))

>>537
multiple-value-bind や destructuring-bind はどうでしょうか？

(multiple-value-bind (a b) (values 1 2)
　(list a b))
==> (1 2)

(destructuring-bind (a b) '(1 2)
　(list a b))
==> (1 2)

((1 2 3) (4 5 6))

このような整数のリストのリストに 1+ を map して

((2 3 4) (5 6 7))

を得るにはどう書きます?

>>540
こう?

(setq list '((1 2 3) (4 5 6)))
(mapcar (lambda (x)
(mapcar '1+ x))
list)

(defun hoge (f x)
(if (listp x) (mapcar (lambda (x) (hoge f x)) x)
(funcall f x)))
こんな関数なかったかな？

(hoge '1+ '((1 2 3) (4 5 6)))
((2 3 4) (5 6 7))

(defun hoge (l)
(let (x)
(cond
((null l)
nil)
(t
(setq x (car l))
(cond
((integerp x)
(setq x (1+ x))
(cons x (hoge (cdr l))))
((listp x)
(cons (hoge x) (hoge (cdr l)))))))))

emacs-lisp-mode, lisp-mode, scheme-mode などで、
括弧の色を変えるにはどうしたらいいでしょう？
ちょいと薄めの色にしたい。

customize

(defun hoge (l)
(cond ((null l) nil)
((integerp l) (1+ l))
((listp l) (cons (hoge (car l)) (hoge (cdr l))))))

>>544
http://namazu.org/~satoru/programming/permstr.html#pale-parens

547 ｿﾚｲｲ ｱﾘｶﾞﾄｳ

XEmacs 21.4 (patch 12) "Portable Code" [Lucid] (i386-debian-linux, Mule) of Mon Jan 27 2003 on eeyore
なんだけど、edebugがうごかん。

っていうか、M-x edebug-defun で、関数をinstrumenting
したのに、その関数が呼ばれたときになにもおこらん。

【何処も】情報科学総合ｽｯﾄﾞﾚ【板違い】
http://science.2ch.net/test/read.cgi/rikei/1046173479/l50



＊：□

↓これと同じことをする関数って何でしたっけ？
(buffer-substring-no-properties
(save-excursion (beginning-of-line) (point)) (point))

(´-`).｡ｏＯ( >>551 は point-at-bol のことを言っているのだろうか?)

>>552
どうもありがとうございます。
本当はカレント行の文字列をゲットするつもりで書いたのですが、
書き間違ってました...。
(buffer-substring-no-properties (point-at-bol) (point-at-eol))
で実現できますけど、他にありませんでしたっけ？

>>553
それでいいんでないの?
Emacs20 だと point-at-bol, -eol がないから
>>551 みたいにしなくちゃいかんが。

>>554
そうだったんですか。勉強になります。

>>554
line-{beginning,end}-position

一般的に mapcar()と while()はどちらが高速ですか？

while

mapcar

which

mapc

who

why?

whoops!

(w

おまえら、イイ加減にしる。

うん、イイ加減だな。

mapcarはリスト作るから遅いんじゃないの

schemeでいうfor-eachが欲しいな。

mapc は emacs21 では built-in になったけど、
emacs20 や xemacs では cl だから、今のところ特にメリット無いな。

>>503
18.55 だなんて、かなりレアそうだな。
比較的メジャー(?)な nemacs でも 18.59 だから。

とりあえず末尾再帰をなんとかしてくれ

ほんと、末尾再帰最適化してくれると、いろいろ書きやすくなりそうなんだけど…
byte-opt.el あたりには、 dynamic binding だと苦しい、って書いてあるね…
(lexical-scope) とかの form を導入する idea も書いてあるけど、実現されてないみたいだし…

dynamic bindingだと、末尾再帰の展開って難しいの？
bytecode.cのソース読んでみたけど、よくわからなかった

正確には「末尾呼び出し」だから dynamic bind だろうが関係無いと思うんだが

tail-call の時に dynamic binding stack が成長し続けちゃうのね。

なるほど、そういうことか
elisp ｲﾗﾈ

tail-call のときって、 symbol の中身はもう参照されないってことは保証できそうな気がする。
そういう symbol に印つけて、印があったら stack に積まずに破壊的に代入する…とかってできるのかな。
…そういう処理してたら、普通の関数は今より遅くなるだろうけど。

やっぱり、 lexical scoping の宣言とか使って最適化できるほうがいいんだろうな…

> tail-call のときって、 symbol の中身はもう参照されないってことは保証できそうな気がする。

自分自身への tail-call のように、単純な形の場合にしか保証できないような気がします。
メリットをデメリットがうわまわりそうです。

やっぱり lexical scoping で multi thread な emacs 希望。

(let ((foo 'outer)) outer-process ...
(let ((foo 'inner)) inner-process ...))
みたいに、最後に束縛するときって、 foo を 'outer に戻せなくてもいいよね。
一般化すると…束縛作る form の末尾の部分で、更に束縛作るとき、って感じだと思う。
outer の末尾で inner が束縛作るとき、 outer が作った束縛を、 inner が作ったように引き継いで…
重複する部分は inner のほうで上書きするようにすると、相互再帰くらいならできそうな気がする。
…やっぱり demerit 大きいかな…

あ、私も multi-thread ほしい…
でも、 dynamic binding と multi-thread って相性悪そうだから、 lexical ができてからかな…
それとも、 obarray 差し換えとかで対応できるかな。

末尾呼び出しだと、戻る必要が無いんだから dynamic binding を
その時点での stack に上乗せするのではなく、
その時点での stack を全部一つの環境に押し込んで一つにして、
その後は、その上に積んでけばよいのでわ？

いまいち問題が理解できないや。

(define (ack m n)
　(cond ((zero? m) (+ n 1))
　　((zero? n) (ack (- m 1) 1)) ;※a
　　(else (ack (- m 1) (ack m (- n 1)))))) ;※b

schemeでは、aとbの最後のackは末尾再帰になるんだけど、
これがdynamic-bindだと、どういう問題が出るの？

>581
その場合は関係無い

(let ((a b)) (f))でfのなかでaを評価する時が問題になるんだよね？

最近 Emacs Lisp を使い始めた者ですが、

(defun foo (func)
　(funcall func))

(defun bar (func)
　(foo #'(lambda () (print "bar") (funcall func))))

(defun test ()
　(bar #'(lambda () (print "test"))))

> (test)
"bar"
"bar"
"bar"
:

上記のような関数が foo 内で無限ループして、
"Lisp nesting exceeds max-lisp-eval-depth"
というエラーになってしまいます。
foo の仮引数 func と bar の仮引数 func を別の名前に
変更すれば期待通りに動作します。
しかし、foo がライブラリ関数で、bar がユーザの関数で
あるような場合、ユーザがたまたま func という変数を使っ
てしまうと無限ループしてしまいます。
ライブラリ関数として高階関数を使う場面は多いと思うの
ですが、このような状況をどのように回避したらよいので
しょうか?
ちなみに Common Lisp では上記のような現象は起こりません。

>584
それこそ dynamic binding の長所であり短所

Common Lisp も Emacs Lisp も dynamic binding ですよね?
でも、 >>584 のコードを Common Lisp (ACL) で実行すると期待通り
に動作します。Emacs Lisp と Common Lisp の無名関数(lambda)内の
binding の仕方が違うということでしょうか。

となると Emacs Lisp では高階関数をまともに使えないような気が
しますが、そういうもんなのでしょうか?

>>586
Common Lisp は lexical scoping だったと思うけどな。
elisp には Common Lisp っぽいことのための cl っていう package があって…
その中に lexical-let っていう、そんなときのための macro があるし。

無名関数に限らず、関数内での symbol の bind のされかたが違うの。
だから、外部から参照する symbol は、名前が被らないように気をつけなきゃいけない。
my-bar-func みたいに、 package 名で prefix したり、少し説明的な名前にしたり。
それが >>585 も云ってる、 dynamic binding の短所。

>>581-583
問題になってるのは、 let とかで bind してる場合、でいいんだよね。

(defun foo (x)
(let ((bar (cons x bar)))
(if (> x 0) (foo (- x 1))
bar)))))

(defvar bar nil)

みたいなとき、 foo が呼ばれるたびに bar が stack に積まれてっちゃう、っていう。

>>588
え、マジで？
barはletで書き換わるけど、それはlet有効範囲内での話で、
fooから戻ったらdefvarのbarはnilのままじゃないの？

(foo 3) ;としたら、
=>(3 2 1 0) が返るけど、
bar
=>nil
でしょ？

>>584
をelispの規則でtestを基点にインライン展開したら、
どうなるんだろう。
#'(lambda〜の中のfuncはシンボル参照として
そのまま残ったりするのかな。

scheme流に展開すると、破壊操作でもない限り全部展開できる。
(define (test)
　((lambda() (print "bar") ((lambda()(print "test")]
つまり
(define (test) (print "bar")(print "test"))

>>589
それがdynamic(ry
ここで色々書くより
http://www.gnu.org/manual/elisp-manual-21-2.8/html_node/elisp_147.html
理解できるまでこのセクションを何度でも読み直すのがはやいと思われ。

>>590
どもです。
ちょっと勉強してきます。

>>589
あ…ごめん、もちろん let 有効範囲内。再帰してる間の話。
>>588 の関数で再帰してくと、 call stack の他に binding stack もあふれる、っていう例。

# …でも (foo 3) は (3 2 1 0) じゃなくて (0 1 2 3) 、と重箱の隅をつついてみる。

>>590
ありがとうございました。
「Emacs Lisp does not have closures.」
ということで理解できました。

dynamic binding だとしても、foo の束縛(func)が bar の束縛(func)を shadow
してくれるのでは? と考えていたのですが、無名関数(lambda)はただの cons で
(つまり変数束縛をもたない)、funcall で実行されるときの束縛が利用されるということですね。

> (consp #'(lambda () (print "bar") (funcall func)))
t

>>569
(defun for-each-rec (func &rest lists)
　(cond ((null (car lists)) nil)
　　　　(t (apply #'funcall func (mapcar #'car lists))
　　　　　 (apply #'for-each-rec func (mapcar #'cdr lists)))))

(defun for-each-do (func &rest lists)
　(do ((lists lists (mapcar #'cdr lists)))
　　　((null (car lists)) nil)
　　(apply #'funcall func (mapcar #'car lists))))

> (for-each-do #'(lambda (x y) (print (cons x y))) '(1 2 3) '(4 5 6))
(1 . 4)
(2 . 5)
(3 . 6)
nil

(defun for-each-while (func &rest lists)
(while (car lists)
(apply func (mapcar 'car lists))
(setq lists (mapcar 'cdr lists))))

(for-each-while (lambda (x y) (print (cons x y))) '(1 2 3) '(4 5 6))
-| (1 . 4)
-| (2 . 5)
-| (3 . 6)
=> nil

もう一回 stack ネタに戻ってみていいかな…うざかったらごめん。

>>588 の foo を例にすると、 let の中で tail-call してて、呼ばれた foo も let で終わってる。
内側の let の中では、この二つの let が作る binding は、一つにまとめちゃっていいよね。 (>>579)
それで、一つにまとめると同じ symbol は隠れちゃうから、上書きしちゃっていい。
そういう最適化ができれば、たぶん少し複雑な再帰でも、 binding stack 成長させずにできそうな気がするけど…どうだろ。

関数末尾の let とかを特別視して、 tail-call のときにそういう binding をまとめられる binding として記憶しとくことと、
末尾の binding 作るときにまとめられる binding があるかどうか確認して、あればまとめることが必要になるけど。

>>596
関数も動的スコープなので
(defun bar ()
(defun foo () 'x))

(defun foo ()
(bar)
(foo))

(foo)
x
となるです。つまり、呼び出す関数セルに何が入ってるかは実行時まで
わからないので、束縛をまとめるのは難しいんじゃないかと。

>>597
それは top level environment であって、関数の動的スコープとは関係ないのでは。

>597
・ Top Level からの呼び出しは常に末尾ではない
・ 束縛をまとめるのが可能なのは末尾呼び出しの場合のみ

>>597
確かに compiler だけで実行前に最適化するのは難しいと思う。
interpreter に直接 stack 書き換えてもらう、って感じで考えてた。

compile の時点だと、末尾で呼び出しや束縛があることまではわかるよね。
compile した関数だけ最適化されればいいなら、これに専用の byte-opcode とか割り当てればいいのかも。
普通の束縛や呼び出しの代わりにそっちを使ったときだけ、 interpreter が stack 書き換えてくれるの。
これだと、それ以外の関数の実行への悪影響は、そんなに大きくならないかも。

replにコンパイラ仕込むとか

↓こういう関数ってデフォルトでありますか？
(??? "\"aaa\\\\bbb\\\\ccc\"")
=> "aaa\\bbb\\ccc"

(read "\"aaa\\\\bbb\\\\ccc\"")
=> "aaa\\bbb\\ccc"

>>603
サンクス！

emacs-lispにhere documentて無いですか？
#<<EOH

emacs-lispにhere documentて無いですか？

EOH
=>"\nemacs-lispにhere documentて無いですか？\n\n"

（＾＾）

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

ﾎｼｭ

バッファ編集後にアクティブマークを再設定するにはどうしたらいいんでしょう？
(transient-mark-mode t)の状態で、バッファを編集(リージョン各行頭に文字挿入など)し、繰り返し編集できるようにアクティブマークを再設定したいんですが、どうやっても色付き部分が消えてしまいます。
pc-select.elを参考にしてみたんですが、あれは編集が発生しないのでマークが消えないようなのです。

>>609 C-x C-x

ほうらわかりづらい日本語を使うとはずした答えが出てくるだろ

たぶんここよりUNIX板のemacsスレで聞いた方が的確な答えが貰えると思う。
じゃあこのスレはなんなのかというと・・・

ミニバッファで find-file してる時に C-w で直前のディレクトリを削除する
次のような関数を作りました。

(defun backward-delete-path ()
(interactive)
(backward-delete-char 1)
(while (not (eq (preceding-char) ?/))
(backward-delete-char 1)))

(define-key minibuffer-local-completion-map "\C-w" 'backward-delete-path)
(define-key minibuffer-local-map "\C-w" 'backward-delete-path)
(define-key minibuffer-local-must-match-map "\C-w" 'backward-delete-path)

で、C-w を連打すると Text is read-only と怒られてしまいます。
C-a した時に止まる場所になったらそれ以上は文字削除しないようにしたいのですが
どの部分でどのようにチェックをかけたら良いでしょうか？

(ﾟДﾟ)bolp

614さん、どうもです。

Find file: ~/elisp
とした場合、C-a は ~ の位置で止まるのですが
ここでは (bolp) は nil とされてしまい、
F の位置でのみ t と判断されるようです…。

614はまちがい。
1字ずつ消すんでなくて、スラッシュを検索して一気に消す方がよさそうな気も。

うーん。どのように書けばいいか…。
へたれですいません。

>>609
別解だが、narrow-to-region して編集するのが Emacs のお作法
>>617
backward-kill-word でも使っとけ

>>618
うーん、せっかくヒントを貰っているようなんですが解りません。
narrow-to-regionで隠せばバッファを編集しても
deactivate-markを免れるのかと思いきやうまくいかず。

コマンドを実行した後にmark-activeがnilになるのは、emacs本体に
コーディングされているからね。まあ、無理矢理やってやれないことはないけど。

(setq keep-mark-active nil)
(setq deactivate-mark-hook nil)
(add-hook 'deactivate-mark-hook
(lambda () (when keep-mark-active
(setq mark-active t
keep-mark-active nil))))
(local-set-key "\C-c\C-a"
(lambda(beg end)
(interactive "r")
(save-excursion
(goto-char beg)
(while (< (point) end)
(beginning-of-line)
(insert "> ")
(next-line 1)))
(setq keep-mark-active (and transient-mark-mode mark-active))))

C-uみたいな、続いて指定されたコマンドの後にmark-activeを復活するような
コマンドを作ると少しはおもしろいかも。

ちなみにリージョン行頭に文字挿入ならC-x r tな。

>>618がいってるのは、範囲指定の編集はnarrowするのがemacsの伝統で、
これはwidenするまでそのままだからなんのコマンドでも好きなだけ同じ
範囲に適用できるってことだと思う。

ところでnarrow-regionしている間mode lineに何か表示するelispってどこかに
ないですか。

>>617
こんな感じ、ってことじゃないかな。

(defun backward-delete-path ()
(interactive)
(save-match-data
(let ((pos (point)))
(if (search-backward-regexp "/." (line-beginning-position) t)
(delete-region (match-beginning 0) pos)
(delete-region (line-beginning-position) pos)))))

621さん、ありがとうございます！
最後の行を以下のようにして期待通りの動きになりました。

(delete-region (line-beginning-position) pos))
(insert "/"))))

>>600
言語仕様をレキシカルスコープにすればそんなことはやらなくてすむ。ただし、
buffer localな変数がないのはきついので、"環境"について拡張が必要になる。

current stack frame内slot(lexical scoped)→buffer local環境→top level環境

guile-emacsはどうなっているのだろう…

>>620
> ところでnarrow-regionしている間mode lineに何か表示するelispってどこかに
> ないですか。
%n じゃ不満？

>>624
%n が何のことかよくわからないです。
……とmode-line-formatを見ると、ああ、なるほど。了解しました。
ありがとうございます。好みに合うよういじってみます。

>>623
全部 lexical にすると、かなり非互換な package が出そう…
global variable を default argument みたいに使って、適宣 let するっていう使いかた、手軽でいいし…
そういうののために fluid-let とか用意すると、そっちで同じ問題が出るだろうし。

環境のほうは、もうちょっと好きにいじれたら…って思う。
buffer 以外にも、いろんな状態に応じた local の環境作れたりすると楽しそう…

>>620
うおお、感謝です。
ばっちりいけました。

　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

とりあえず末尾再帰をなんとかしてくれ

保守sage

まぁ、ぼちぼちって感じ?

Cygwin&XEmacs

shell-command() の後に、何か処理をしてから終了する関数があるとします。
(defun hogehoge ()
(let ((command))
(setq command (read-from-minibuffer "% "))
(shell-command command)
;; 後処理
))
ミニバッファにいる時に C-g した時は shell-command() を実行しないで
後処理だけやらせたいのですが、どのようにすればよいのでしょうか？

>>633
condition-case

>>634
どうもありがとうございます。
いまいちスマートじゃありませんが、とりあえず出来ました。
(defun hogehoge ()
(let ((after-proc (lambda (arg) arg)))
(condition-case nil
(progn
(shell-command (read-string "% "))
(funcall after-proc t))
(quit
(funcall after-proc nil)))))

たびたびすみません。
8進数 600 か 文字列 "600" を 10進数 384 にすることは可能でしょうか？
GNU-Emacs21.3 だと (read (concat "?\\" "600")) で一応出来ましたが、
XEmacs21.4.9 だと ↑これやると落ちてしまいます。

愚直な例
(defun oct2dec (oct)
(when (numberp oct)
(setq oct (int-to-string oct)))
(let ((cl (mapcar 'char-to-string (string-to-char-list oct)))
(dec 0))
(while cl
(setq dec (+ dec (string-to-int (car cl)))
cl (cdr cl))
(when cl
(setq dec (* 8 dec))))
dec))

>>636
string-to-number() で第2引き数を指定。

>>637,638
どうもありがとうございました。

たまに見かける、

'(info-xref ((t (:foreground "DarkGreen"))))

とかの
(:hogehoge value :hagehage val)

っていったいなんですか？

おしえてけろ。

キーワード引数

>>100
でも、「変態配置」を覚えとかないと、結局どこかで不便になる予感。
半日コーディングしてたら慣れたよ。慣れると便利だしね。

カーソルキーにkeyboard-translateを掛けるにはどうしたら良いんでしょう？
というか、キーコード番号ってどうやったら調べられるんですか？
Sigmarion3でEmacsCEを使ってるんですが、「/」の位置に[up]があるので
SKKユーザのおれには激しく辛いのです。

例えば、正規表現 "^[0-2]$" に当てはまる文字列は
"0" "1" "2" ですが、この展開をしてくれる関数ってありますか？

EmacsCEでは、
(keyboard-translate 'up ?/)
が効きますかね?

>>644
"a*" とかは何を返せばよろしいの?
"" "a" "aa" ...
こんなの?

>>646
はい。無限個の文字列の集合を得たいのです。

>>647
無限個の文字列を得るためには無限のリソースが必要
無限個の文字列を表現するには無限のリソースは必要ない

>>647は別人の釣りに決まってるでしょ

ちなみに遅延ストリームを使えば無限の文字列を有限のリソースで扱える。
ダイナミックスコープでは制約もありそうだけど。

>>647
なんか違う人が答えてる...。
そう思って "^" と "$" で括ったのですが、無理がありましたかね。
基本的に、展開したい正規表現は "^\\(hoge\\|huga\\)hoehoe$"
といった書式だと決まっているので、自分で作ればいいのかな...。
無限の文字列になる場合は、エラーを返すようにするとか。

>>645
EmacsCEでも動きませんし、Emacs 20や21でも動きませんでした。
「'up」が整数と評価できないようですね。

>>649
遅延ストリームは無限個の表現であって無限個そのものではない

>>651
ああ、Emacsって未だに文字は整数だったね。
keyboard-translateでも整数しか扱えないや。

じゃあ無理だよ。ちまちまdefine-keyしていくしかない。
XEmacsCEつーのも、xmodmapもないだろうし:-)

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

>>653
できました。
(vector 'up)ができるじゃないですか。
どっかに無変換キーの割り当て方法があったはず…とか思ったらSKKのInfoでした。

（＾＾）

sql-modeで500行しか表示されない（前の方が
消えていく）のですが、これはどこで設定できる
でしょうか？

すれ違いスマソ。

文字列の置換に関してなんですけど。

perform-replace て置換の対象がバッファなんですが、変数に対して置換する
ようなのはあります？

テンポラリなバッファ作って置換後に変数にコピー・・・てやらんとダメなん
でしょうか？

>>659
replace-regexp-in-string (emacs21)
replace-in-string (xemacs)
って事?

>>660
ををを！ありがとうございます。

meadow2なのに GNU Emacs 20.3版のElisp リファレンスを見てました。
やっぱし apropos すべきでした。すんません。

すみません。質問させてください。
emacsを一生使い続けるつもりで、elispを覚えたいのですが、
良質サイト、良書、などありましたらお願いします。
又、Lisp, CommonLisp, Emacs Lisp の違いというのは何でしょうか？

emacs lisp と Common Lisp を比較すると漏れが気になる部分はくらいかな．
リーダーマクロがないとかそーゆうのはおいといて．

* Common Lisp に劣るところ
- ダイナミックスコープである（クロージャが…）
- 多倍長整数がない，有理数もサポート外
- CLOS のような標準の Object 指向システムがない
- 末尾再帰の最適化ができないため，再帰より反復を使うことになる場合がある．

* いいところ
- emacs が唯一の処理系（Common Lisp は GCL,ECL,CLISP,CMUCL,Allegro,LispWorks と乱立気味）
↑ xemacs とか meadow といった亜種もあるけど
- エディタと一体なので編集系関数が充実
- 文字列処理（正規表現とか）は Common Lisp に比べてめっちゃ強力
- 便利なデバッガがついてくる（M-x edebug-defun とか）

ダイナミックスコープなのは、エディタ環境として見ればメリットも多いのでは?

>>664
動的スコープの利便性を活かす場面は、そう頻繁には現れない。
なにより最適化が難しい。
バイトコードコンパイラが末尾再帰の展開をしない原因でもある。
独自LISPは変わらずとも、バインディング規則の変換ツールを作って、
本体はさっさと静的スコープに移行しちゃった方がいいと思う。
EmacsLispのメンテナ自身が、もう動的スコープは嫌だとゲロってます。

それと、まともな整数型は欲しいね。関連してFFIが無いのも痛い。
いまだにWindowsのDLLやUNIX系のsoの様な外部モジュール関数が使えない。
タグに8bitも使ってるんだから、新しい型を定義するのは困難でも無い気がする。
ＲＭＳは何を考えているのか。どういうわけかFFIを嫌ってるらしいけど。

>>665
静的だと、最適化しやすいぶん、いじりにくくなると思う。

関数は hook と advice があればなんとかできるかもしれないけど…
静的な hook や advice ってどんな感じなんだろ…

変数は、 fill-column みたいな defvar されてるのを一時的に差し換える手段がなくなっちゃうと思う。
参照する関数全部が optional の引数を取って、そっちを優先するようにすればいいけど…
参照したい変数が増えると、定義がすごいことになるだろうし…


いっそ、 FFI 導入して、 guile も標準でつけちゃうとか…

FFIを実装するパッチを公開→うまい使い方を提示→世間に広め既成事実化→RMS折れる
とはならんか？

↑ muleみたいに

>>666
Common Lisp みたいにスペシャル変数にして (let ((*fill-colum* 80)) ...) でいいじゃないか．
個人的には CommonLisp キボンヌなんだが，rms は CommonLisp が好きじゃないらしいからなぁ…

　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

動的スコープはfluid-letで代用できるんじゃないの？

ageておこう

うむ。ageておこう。

Common Lisp はよく知らないけど…
動的な束縛が共存できるなら、そんなに困らないかも。
基本的に静的で、 defvar したのは動的とか。

>>671

fluid-let はグローバル変数だけで↓とかできないよね？

(defun foo ()
(let ((x 1) (y 2))
(bar)))

(defun bar ()
(+ x y))

(foo)
3

あとグローバルと fluid-let の間のスコープに同名の変数があるとそっち見ない？
これは組んだ奴が悪いのか…

Common Lisp はできるぞぅ．

(defun f ()
(let ((msg "fubar you lose again!!"))
(declare (special msg)) ;; これないとエラー
(g)))

(defun g () (print msg))

hook を利用してゴニョゴニョってな事が
しづらくなるケースもあるかも?

サブディレクトリのリストを返す関数を教えてください。
(all-subdirectories "/usr/share/emacs/") ← こんなの。

emacsのソースはどこで手に入りますか？

>>679
ttp://www.emacs.org/

他にも言語がたくさんあるのに
emacsがLispを採用した理由は何ですか？

>>681
OnLispにいいこと書いてあるよ
ttp://user.ecc.u-tokyo.ac.jp/~g340299/onlisp_j.pdf

>>678
directory-files

>>682

ありがとう。読んでみる。

>>683
それって、再帰では探さないんじゃないの？
normal-top-level-add-subdirs-to-load-path()で directory-files() を使って
ディレクトリを再帰的に検索していくから、参考になるかもしれない。

>>678は再帰させたいのか?
よく分からんかった。

>>686 再帰したいです。
>>685 解決しそうです、どうもありがとうございました。

aproposで特定のキーワードだけエラーになることってあるんだろうか。

M-x apropos moccur として、
Wrong type argument: stringp, (("dir" default-directory (".*") dir) ("lisp"
"~/mylisp/" ("\\.el" "\\.*texi") nil))

となってしまふ。moccur以外では見たことがない。
apropos.elにもエラーメッセージに出てくるようなsexpはないし。

鬱だし脳・・・。

.emacs.elがあやしいんじゃないか。

elisp newbieなんですけど、１つお聞きしたいことがあります。

(defun dummy ()
(if (= var1 var2)
(抜けたい)
(message "different!")))

というような関数で (抜けたい)の部分に書く、C での exitのような
命令or関数はないんでしょうか？
リファレンス見ても、catch - throw 以外にジャンプの類はなさそうなのですが･･･

>>690
普通は
(defun dummy ()
(if (not (= var1 var2))
(message "different!")))

>>691
やはり exitのようなのはないということみたいですね。
制御構造を工夫してなんとかするというのがelisp流ということですか。

cl にその手のあったような気もするけど。

(defalias 'exit 'kill-emacs)

こういうのがほしいのかとおもうた

(require 'cl)

(defun dummy (x y)
(block nil
(when (eq x y)
(return))
(message "hello")))

>>694
これは直にemacsを落としてしまうような･･･。

>>695
ズバリそれです。
勉強になりますた。

>>695
return-from はないん

自分でマクロ書

>>697
C-h f return

Return from the block named nil.
This is equivalent to `(return-from nil RESULT)'.

dolist などでも return がつかえる。macroexpand してみよ。

(defun tiny-find-if (pred list)
(dolist (item list)
(when (funcall pred item)
(return item))))

>>699
> This is equivalent to `(return-from nil RESULT)'.
あ、あるんだ。
return-fromじゃなくてreturnって答えてたからないのかと思った。

> dolist などでも return がつかえる。macroexpand してみよ。
親切にどうも。知ってるけどね。
だってCommonLisp (xyzzy)ユーザだし。

>>700
なるほど、失礼した。

ところで、なんか有名どころのパッケージ(例えば wl)をみても、下のような
コードでループしているのをよく見かけるのだが、dolist をそもそも知らな
いのか、それとも、dolist を使わない思想的な理由があるのかな？非常に読
みづらくて困る。あと、find-if の類いを使えばループが不要になる部分も多い。

(let (item)
(while list
(setq item (car list))
;; 何か
(setq list (cdr list))))

>>701
clを使わない主義かもね。infoによるとclはconfilictの原因になる
ことがあるらしい。公開するパッケージで使うときには
(eval-when-compile (require 'cl)) しろと書いてある。デバッグ
がめんどくさそう。

>>701
cl を無闇に load しないって思想じゃないの?

↑と書いたけど、今見たらwlはcl使ってた

704は702のことについて書いた。703ｽﾏｿ

>>701
漏れはてっきり高速化のためにがんがってるんだな〜っと思って一人納得してたんだが．
dolist つかうと catch ... の分が勿体ないとか…．あと cl の find とか find-if
ってこんなんじゃん．パフォーマンスが重要なパッケージでは使い難いということなん
だと思ってたけど実は勘違いだったりする？

;; cl (emacs) の find
(defun find (cl-item cl-seq &rest cl-keys)
(let ((cl-pos (apply 'position cl-item cl-seq cl-keys)))
(and cl-pos (elt cl-seq cl-pos))))

;; CMUCL の find
(defun find (item sequence &key from-end (test #'eql) test-not (start 0)
end key)
(declare (fixnum start))
(seq-dispatch sequence
(list-find* item sequence from-end test test-not start end key)
(vector-find* item sequence from-end test test-not start end key)))

末尾再帰さえあれば・・・

>>701
俺の場合関数型言語とやらがCommonLisp on xyzzy が初めてだったので
最初のほうは dolist とか使いまくりだった。
でも最近は繰り返しは再帰で書くのがLispらしいのかなと思って dolist を
使わずに（末尾再帰でもない）変な再帰で書いてる。
厨丸出しだな俺（ｗ。

>>706
xyzzyのfindはどうってんだろうと思ってみたら組み込みでした。。。


xyzzyって末尾再帰の最適化してんのかなぁ。。。

>>708
xyzzy は末尾再帰の最適化はしてなかったと思う．
まぁ，それとは別に， Common Lisp の場合は dolist とかを使うのが
いいと思うけどね．意図が伝わりやすいし，コンパイラにも優しい（人間は
末尾再帰のつもりでも実は違ったりするからな…）．Schemer には異論が
ありそうだけど再帰オンリーよりは，繰り返し的操作には繰り返し，
再帰的な操作には再帰，といったように使い分けるのがいいと思う．

>>706
こんなテストしてみたが、while と dolist の違いは 10% 以下。これなら
dolist を使えと主張したい。find は position と elt で、きっちり 2 倍に
なっている。再帰は...

(test-run 100 10000) のプロファイル結果。GNU Emacs 21.3.50.1

Function Name Call Count Elapsed Time Average Time
================== ========== ============ ============
test-while 10000 0.3854069999 3.854...e-05
test-dolist 10000 0.4133820000 4.133...e-05
test-find 10000 0.7938209999 7.938...e-05
test-rec 510000 696.79132100 0.0013662574

>>710 の続き
(defun test-while (item list)
(let (target result)
(while list
(setq target (car list))
(if (eql item target)
(setq list nil
result target)
(setq list (cdr list))))
result))
(defun test-dolist (item list)
(dolist (target list)
(when (eql item target) (return target))))
(defun test-find (item list)
(find item list))
(defun test-rec (item list)
(cond ((null list) list)
((eql item (car list)) (car list))
(t (test-rec item (cdr list)))))
(defun test-generate-list (n)
(let (result)
(dotimes (i n) (push i result))
(nreverse result)))
(defun test-run (n m)
(let ((item (/ n 2)) (list (test-generate-list n)))
(dotimes (i m)
(test-while item list)
(test-dolist item list)
(test-find item list)
(test-rec item list))))

あ、インデントずれた。

だってdolistってlispらしくないし

while と setq 使うほうがもっと Lisp らしくないじゃん。C みたい。

つまり mapc 使えと?
dolist 便利でいいじゃん。

とても lisp らしいと思うけどなぁ。Schemer の人かな？

>>711
(defun test-while (item list)
　(let (target result)
　　(while
　　　list
　　　(setq target (car list))
　　　(if (eql item target)
　　　　(setq list nil result target)
　　　　(setq list (cdr list))))
　　result))
(defun test-dolist (item list)
　(dolist (target list) (when (eql item target) (return target))))
(defun test-find (item list) (find item list))
(defun test-rec (item list)
　(cond
　　((null list) list)
　　((eql item (car list)) (car list))
　　(t (test-rec item (cdr list)))))
(defun test-generate-list (n)
　(let (result)
　　(dotimes (i n) (push i result))
　　(nreverse result)))
(defun test-run (n m)
　(let ((item (/ n 2)) (list (test-generate-list n)))
　　(dotimes
　　　(i m)
　　　(test-while item list)
　　　(test-dolist item list)
　　　(test-find item list)
　　　(test-rec item list))))

たかがくり返しの書き方ここまでこだわってしまうのが
lisper の強みでもあり弱みでもあるな。

だれが何こだわってるの？解説キボンヌ．

俺も分からん。>>718の降臨に期待

改行位置のことか?
全角空白のインデントのこと?

lisp らしい書き方とか、らしくない書き方とか、そういう話のこと。
美しく書けることに気付くと時間をかけてでも書き直したくなるとか、
そういう誘惑が lisp にはある。
別に >>717 について言った訳じゃないよ。

>>722
確かに。そういう罠(?)はあるね。でも、リスト処理という Lisp にとってか
なり基本的な操作で、明白にレベルの低い(汚い?)コードは萎える。例えば、
C で繰り返しが全部 goto で書かれていたらダルいよね？

繰り返しは再帰で書けということでつか？
名有り関数の定義なしでシンプルに再帰を書く方法があれば．．．

lambda ... を λ... にすればよりシンプルになると思う。

>>724
> 繰り返しは再帰で書けということでつか？

違う。繰り返しを書くときは、まず mapcar, find-if などの高階関数で書け
るかどうかを検討する。書けなければ dolist, dotimes などを使う。それで
も書けなければ、while, loop, 再帰を使う。

高階関数についてはこのへんを参照。
http://www.geocities.co.jp/SiliconValley-Oakland/1680/rakup/rakup13.html

> 名有り関数の定義なしでシンプルに再帰を書く方法があれば．．．

Scheme の named let が便利。
http://www.geocities.co.jp/SiliconValley-PaloAlto/7043/index.html#tips

(require 'cl)

(defmacro nlet (tag var-vals &rest body)
`(labels ((,tag ,(mapcar #'car var-vals) ,@body))
(,tag ,@(mapcar #'cadr var-vals))))

(defun fact (n)
(nlet loop ((n n) (r 1))
(if (<= n 1) r
(loop (1- n) (* n r)))))

でも nlet は末尾再帰の最適化をしない elisp にはイマイチでない？

(defun sum (n)
(nlet loop ((n n) (r 1))
(if (<= n 1) r
(loop (1- n) (+ n r)))))

(defun sum2 (n)
(do ((n n (1- n))
(a n (+ a (1- n))))
((<= n 1) a)))

(sum2 100)
=> 5050
(sum 100)
=> (error "Lisp nesting exceeds max-lisp-eval-depth")

>>727
だから elisp では再帰で繰り返しを書くのはよせと言っておろうが。

(defun sum-list (list)
(apply #'+ list))

(defun sum3 (n)
(sum-list (test-generate-list (1+ n))))

>>728 … 727 も elisp では再帰ﾏｽﾞｰと言っているように見えるのは漏れだけ？

apply とか mapcar とか
読みにくいからきらいー

まあ、世の中には読みやすい人もいるわけで。

(mapcar SEQUENCE FUNCTION)
だったら少しは読みやすかったんじゃないかと思う。
FUNCTIONが (lambda ...) のときなんかはとくに。

それじゃ mapcar* 等との整合性がなくなっちゃうし。

(defmacro 732mapcar (seq fun)
`(mapcar ,fun ,seq))

(732mapcar '(1 2 3) (lambda (x) (+ x x)))
=> (2 4 6)

読みやすいか？全然かわらん気がするけど．

マクロってのはスペシャル関数を作るためにあるって
いっていいの?

>>735
俺はそれより ``special form'' を「スペシャル関数」と訳したものをどこで見たのか気になる。

スペシャル関数…間違えました。特別な関数というイメージがあったからつい。
ところで、elisp の info 見てみたら

"マクロ"
"マクロ"（macro）は, プログラマがLispで定義した構文である. マクロ
と関数との違いは, マクロは, 読者が書いたLisp式をもとの式のかわりに
評価される等価な式に変換する. マクロは, スペシャルフォームでできる
種類のことをLispプログラマに提供する. マクロの定義方法と使い方につ
いては, *Note Macros::.

こんな書き方してあるので、>>735 の考え方は間違いじゃなさそうですね。

構文定義

>>737
マクロが知りたいならこれを読むといいと思う。
ただ、日本語訳はいいけど、訳者の頭が変な気がする。

Paul Graham "On Lisp" Chap. 11 (out of 25) まで翻訳完了
ttp://user.ecc.u-tokyo.ac.jp/~g340299/onlisp_j.{tex,pdf}

訳はいいけど訳者の頭が変って、
その onlisp_j は ok だけど、そのサイトの文章は信用ならんって事?
これからその pdf 読んでみようかと思ってるのだが。

まぁ、ぶっちゃけそういう事だ

訳者が2chで意見を募ったときのことを指してるんだろ。
変ではないが、空気が読めないってだけ。

なるほど。該当スレ読んできた。

Lisp初心者です。
(setq a ())
(dotimes (n 5)
(setq a (cons '(lambda (x) (+ x n)) a)))
というプログラムを書きました。
a の第1要素には (lambda (x) (+ x 4)) が入っていることを期待した
のですが、そうなりません。
そうする方法はありますでしょうか?

>>744
backquote 使え。`(lambda (x) (+ x ,n)) だと、
n のとこだけ評価される。

>>745
おお! 有難うございます。
マニュアルの該当部(逆引用符)も見付けました。
Lispは 評価するか、文字のまんまか という所が難しいですねえ。

「マクロとは何か」「何がマクロか」が分かると、やさしくなるよ。

>>747
この場面でマクロを使うほうが良い、とまだ思い至らないんですね。
マニュアルの「逆引用符」の部分を読んで、マクロを使わないで書き直すと
(dotimes (n 5)
(setq a (cons (list 'lambda '(x) (list '+ 'x n)) a)))
ですね。この方がめんどくさいが自分では理解はしやすいです。

,@foo ってマクロ無しでは無理だよね?

>>749
いいえ

なんつーか，バッククォートとマクロがごっちゃになっていると思われ…
マクロはバッククォートを使って書かれることが多いが，

(defmacro aif (test then else)
`(let ((it ,test))
(if it ,then ,else)))

無しでも書ける．バッククォート無しでもマクロはマクロ．

(defmacro aif2 (test then else)
(list 'let (list (list 'it test))
(list 'if 'it then else)))

というわけで，用語の混乱を直しておきましょう．

参考
ttp://www.mew.org/~kazu/doc/elisp/backquote.html

先日のアドバイスを元に
(setq a ())
(dotimes (n 5)
(setq a (cons `(lambda (x) (+ x ,n)) a)))
(funcall (car a) 10)
とやると、emacsではうまく動作するのですが、同じコードをcmucl上で行う
とエラーが出ます。
(car a) の所に#とか#'とか付けてみたのですがうまく行きません。
なぜでしょうか? 下らない質問な予感がしますが教えていただければ助かります。

CMUCL ならクロージャが使えるので↓でよい．

(setf a ())
(dotimes (n 5) (push (lambda (x) (+ x n)) a))
(funcall (car a) 10)

# もちろん，Emacs ではこれは無理．

>>754
有難うございます、??
でも このコードをcmuclで実行すると、なんか結果が違ってるみたいです。
a の全ての要素に (lambda (x) (+ x 5)) が入ってしまうようです。
a の第1要素には (lambda (x) (+ x 4))、 第2要素には (lambda (x) (+ x 3))、...
と入るように、最初に書いたemacsで動くコードの方はなってるんですが、
cmuclでそうなるように書くにはどうすればよいのでしょうか。

>>753
ACL だとできるよ。
CL-USER(4): (funcall (car a) 10)
14

>>755
いいかげんスレ違いだが、
クロージャの場合 n を評価しないからだよ。
(mapcar #'function-lambda-expression a)
=> ((LAMBDA (X) (+ X N)) (LAMBDA (X) (+ X N)) (LAMBDA (X) (+ X N))
(LAMBDA (X) (+ X N)) (LAMBDA (X) (+ X N)))

ありゃ本当だ．
(setf a ())
(dotimes (n 5) (let ((n n)) (push (lambda (x) (+ x n)) a)))
(funcall (car a) 10)
CMUCL だとこーだな．

>>757
CMUCL の dotimes だと全てのクロージャが同じ n を参照しちゃってるから，
のほうがわかりやすくない？

>>759
そうかも。ACL でも一緒だけどね。ところで、CMUCL では
(funcall '(lambda (x) x) 1)
がエラーになるの？

CLISP では、それはエラーみたい。'(lambda ...) は関数じゃないからなー。
#'(lambda ...) とか (coerce '(lambda ...) 'function) じゃないと
だめとゆーてきますが、ACL だと大丈夫なの？

ACL だと大丈夫。Common Lisp 的にはエラーが正解なのかもしれない。

どんどん Emacs と離れていくけど、Lisp つながりだからいいか。
CMUCL でも型エラーみたいだけど、
http://www.lispworks.com/reference/HyperSpec/Body/f_funcal.htm
みてもヘタレな漏れにはよくわからん。識者の解説キボンヌ。

みなさま有難うございます．
いろいろなヒントをいただいて大変参考になりました．コモンリスプでも
微妙に違うのも知りました．
良く分からない点もありますがもうちっと自分で勉強します．

>>764
結局 >>753 のようなことを Common Lisp でするには

(dotimes (n 5)
(push (coerce `(lambda (x) (+ x ,n)) 'function) a))

または

(dotimes (n 5)
(let ((n n))
(push (lambda (x) (+ x n)) a)))

なんだけど、下のやつは lambda が環境(変数束縛)を含むのでクロージャと呼
ばれる。elisp にはクロージャがないので下のようには書けない(上のように
は書ける)。

この辺ややこしいのでこのあたりを読んでおくとよい。
http://www.geocities.co.jp/SiliconValley-Oakland/1680/rakup/rakup21.html

ちなみに ACL では、同じ lambda でも区別しているみたい。
上の (car a) => #<Interpreted Function (unnamed) @ #x304e3b5a>
下の (car a) => #<Interpreted Closure (unnamed) @ #x304e57c2>

Common Lisp なら

(defun adder (n) (lambda (x) (+ x n)))
(dotimes (n 5)
(push (adder n) a))

とかのほうが好み．labels でも良いけど．なぜならば，

1. 関数のほうが情報がいっぱい．関数名で足りなければ document とかも書けるし．
2. 他のところで使いまわせるかも．

という点が嬉しいから．

実はEmacs使いはみんなCommon Lispユーザなのか？！

このスレの人と LISP Scheme スレの人はかなり被っていると思われるので、
「スレ違いだろ」などと誰も言わないんじゃないだろうか？

まぁ、別に他にネタもないわけで、いいんでないか？活気があったほうがｲｲ。

いちおついてけてないけど、参考になるような気がしてるので
スレ違いを指摘してない。

Emacs と Common Lisp と Perl を使ってるプログラマなんだけどさー Perl スレで
順列もどきを作るプログラムが〜って話があったんだけど，実は Lisp で書いたほう
が楽な気がしてならない…．タイプ数は確実に Perl のが少ないんだが…

(let ((data '((1 2 3)
(4 5 6)
(A B C))))
(labels ((iter (acc data)
(if (null data)
(print (reverse acc))
(mapcar (lambda (x)
(iter (cons x acc) (cdr data)))
(car data)))))
(iter nil data)
nil))

こういうのは二つの集合の直積として考えるのが正しいんでしょうか？

たまたま lisp 向きだっただけだろう。その前の hash への要素の追加なんて
$word = "ho==ge,fu==ga,fo==oo\n"
$data->{$_->[0]} = $_->[1] for map { [ split "=="] } split "," => $word;
と
(let* ((word "ho==ge,fu==ga,fo==oo\n")
(lst (split-string word "[,\n]"))
(alist (mapcar (lambda (e) (split-string e "==")) lst))
(hash (make-hash-table :test 'equal)))
(dolist (elem alist hash)
(puthash (first elem) (second elem) hash)))
じゃないか。まぁ、elisp 版は lst とか変数が冗長なんでもーちょい
短くなるだろうけど、読みにくいと思うし。

たまたま lisp 向きなネタだったからでしょ。その前に出てた hash へ
の追加なんてこんな感じで、Perl に比べてかなり冗長だ。
(let* ((word "ho==ge,fu==ga,fo==oo\n")
(hash (make-hash-table :test 'equal))
(lst (split-string word "[,\n]"))
(alist (mapcar (lambda (e) (split-string e "==")) lst)))
(dolist (elem alist hash)
(puthash (first elem) (second elem) hash)))

perl読めん……。rubyか pythonがいい。

(let* ((word "ho==ge,fu==ga,fo==oo\n")
　　　 (lst (ppcre:split "[,\n]" word))
　　　 (alist (mapcar (lambda (e) (ppcre:split "==" e)) lst))
　　　 (hash (make-hash-table :test #'equal)))
　　(dolist (elem alist hash)
　　　(setf (gethash (first elem) hash) (second elem)))))
CommonLisp だとこうだな。cl-ppcre が必要だけど。elisp から
CommonLisp に移るのは簡単だな〜。

ぐわぁ。２重ｶｷｺになってる…ｽﾏｿ。

画面の左右に、「現在の行数と先頭からの文字数」が表示されるような
メジャーモードを作ってみたいと考えているんですが、難しそうでとっ
かかりがありません。
左右の6文字分ぐらいに
1　1 | hoge hoge fuga fuga　　　　　　　　　　　　　| 1 16
2 17 | fuwa fuwa honya honya　　　　　　　　　　　　| 2 34
3 35 | aada kouda souda　　　　　　　　　　　　　　 | 3 48
と、自動的に出てくるようにしたいのですがやはり、
文字を打ち込んだり、削除したり、検索したり、という命令をすべて
書き換えないと無理ですよね？１文字打ったらたちまち左右の部分が
くずれますもんね。
たとえば特定の桁を特別扱いしてくれて、中央の部分だけが文章の本
文だとみなしてくれるようなしくみってemacsにありますか？

>>778
バッファを３つ使うとか。

>>771
(defun hoge (a &rest b)
(if (null b) (mapcar 'list a)
(let ((b (apply 'hoge b)))
(apply 'append (mapcar (lambda (x) (mapcar (lambda (y) (cons x y)) b)) a)))))

(apply 'hoge '((1 2 3) (4 5 6) (A B C)))
((1 4 A) (1 4 B) (1 4 C) (1 5 A) (1 5 B) (1 5 C) (1 6 A) (1 6 B) (1 6 C) (2 4 A) (2 4 B) (2 4 C) (2 5 A) (2 5 B) (2 5 C) (2 6 A) (2 6 B) (2 6 C) (3 4 A) (3 4 B) (3 4 C) (3 5 A) (3 5 B) (3 5 C) (3 6 A) (3 6 B) (3 6 C))

>>788
右の情報は冗長でしょ。左だけでも我慢できるなら、行番号表示するヤツを参考にしては。
それか、現在行だけもモードラインに表示するか。

元々は組み合わせに対してなんらかの処理をしたいって話だったんだろ？
確かに lisp の方が冗長かもしれないけど、
(defun lispy (fn lst)
(let ((result nil))
(labels ((iter (acc lst)
(if (null lst)
(push (funcall fn (reverse acc)) result)
(mapc (lambda (x)
(iter (cons x acc) (cdr lst)))
(car lst)))))
(iter nil lst)
(nreverse result))))
こんな感じの関数を作っといて、
(lispy #'print '((1 2 3) (A B C) (X Y Z)))
とかしたほうがトリッキーなコードに比べて後々楽だと思われ。
組み合わせのリストが欲しいだけの場合は
(lispy #'identity '((1 2 3) (A B C) (X Y Z)))
で OK だし。

>>782
そのコードのほうがわかりづらくない？
組み合わせのリストを返す関数とループで書いたほうがいんじゃない？

>>779, 781
ありがとうございます。出来れば両端に出したいんです。
行番号が出るモードってどこにありますでしょうか。
バッファを３つ使うのはよいかも知れません。スクロールを完全に
同期させる方法はありますでしょうか
不勉強ですみません
また、(set-window-margins nil 6 6)とやると左右に６文字分空く
んですが、ここにはなにも書き込めないんですかねー。

ご指摘のとおり、771 さんのコード（見落としてました…）と
(defun map-hoge (fn lsts)
(mapcar fn (apply #'hoge lsts)))
のほうがよさそうですね。ユーティリティを一回書いとけば Perl のイディオムと
同じくらいに使いまわしが効くじゃんと言いたかったのです。

>>784 両端に…ﾃﾞｶｲ画面使ってるんだな。でも６文字分のスペースじゃ、行数＋先頭から
の文字数を表示するには足りねーだろう。1000 行超えたあたりでファイルを編集してた
ら繋がっちゃって激しく混乱する予感。

>>786
> ﾃﾞｶｲ画面使ってるんだな。
なら highline.el あたりで幸せになれないかな。

>>784
> また、(set-window-margins nil 6 6)とやると左右に６文字分空く
> んですが、ここにはなにも書き込めないんですかねー。
(overlay-put (make-overlay 1 2)
'before-string
(propertize "_" 'display '((margin left-margin) "test")))
でいけるけど、全行これやったら遅そう。

よっしゃ、汚名を挽回すべく http://pc2.2ch.net/test/read.cgi/tech/1063028224/565-569 にチャレンジだ。
(defun remove-1 (elem lst)
"Common Lisp's (remove ... :count 1)"
(if (null lst)
nil
(if (eql elem (car lst))
(cdr lst)
(cons (car lst) (remove-1 elem (cdr lst))))))
(defun perm (lst)
(if (null lst)
(list nil)
(mapcan (lambda (x)
(mapcar (lambda (y) (cons x y)) (perm (remove-1 x lst))))
lst)))
(defun map_perm (fn lst)
(mapcar fn (perm lst)))
どないなもんでしょ？mapcan と mapcar の組み合わせのあたりが自分としては
(define (´∀｀) 'ﾏﾀｰﾘ) さん風味に仕上がったと思ってるんですが。

いや、がんがってるとは思うし、リストならそれでいいと思うんだが、
元ネタは配列なので↓かなぁとか。
(defun map-vector-perm (fn vec)
(labels ((permute (end)
(if (= end 0)
(funcall fn vec)
(dotimes (i end)
(rotatef (aref vec (1- end)) (aref vec i))
(permute (1- end))
(rotatef (aref vec (1- end)) (aref vec i))))))
(permute (length vec))))
(map-vector-perm #'print (vector 1 2 3))
まぁ、Ruby にはあんまり興味ないし、読めないから外してるかも。

cl利用コードだらけ。

>>786 ﾜﾗ) そうすね。ただそんな大きいファイルは編集しなそう
なんです。また、「先頭からの文字数」だけ表示できればそれでも
十分です。うまくいけば、必要に応じて８文字分とかに自動的にな
るようにできれば最高ですがまだ高望みですね
>>788 このoverlayって全くしりませんでした。ちょと勉強してみま
す。ありがとうございます。

>>791 何か不満でも？…って過剰反応し過ぎかな。周囲の schemer が
反復使いすぎとか副作用使いすぎとか煽ってくるので過敏になってるのか
もしれん。

>>793
うーん、なんか lispスレでやったら?みたいな。
確かに emacs上で動くんだけど、elispスレ的でないというか。

>>789
remove-1は使わないだろうなあ。
(defun rotate-list (lst)
(do ((a lst (cdr a))
(b '() (cons (car a) b))
(r '() (cons (append a (reverse b)) r)))
((null a) (reverse r))))

(defun perm (lst)
(if (null lst) '(())
(apply #'append (mapcar (lambda (x) (mapcar (lambda (y) (cons (car x) y)) (perm (cdr x))))
(rotate-list lst)))))

(rotate-list '(1 2 3 4))
((1 2 3 4) (2 3 4 1) (3 4 1 2) (4 1 2 3))

(perm '(1 2 3 4))
((1 2 3 4) (1 2 4 3) (1 3 4 2) (1 3 2 4) (1 4 2 3) (1 4 3 2) (2 3 4 1) (2 3 1 4) (2 4 1 3) (2 4 3 1) (2 1 3 4) (2 1 4 3) (3 4 1 2) (3 4 2 1) (3 1 2 4) (3 1 4 2) (3 2 4 1) (3 2 1 4) (4 1 2 3) (4 1 3 2) (4 2 3 1) (4 2 1 3) (4 3 1 2) (4 3 2 1))

>>790
>>795
ｷﾀｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ
(remove x lst :count 1) 相当のものを作ることに頭がいってしまい
ましたが、こんな手もあるんですね。すごいなぁ。

>>794
まぁ、elisp なんだから良いではないですか。cl は emacs に
標準添付なわけで dotimes, dolist, labels くらいならまだ十分 elisp でしょう。
(dotimes (i 5)
(lexical-let (n i)
(lambda (x) (+ x n))))
とかやりはじめたら流石に移動したほうが良いかもしんないですけど…。

>>794
かなりどうでもいいんだが、navi2ch で見ているので elisp で動くコードだと
C-x C-e ですぐ評価できるのがうれしい。

(defun perm (lst)
(if (null lst) '(())
(apply #'append (mapcar (lambda (x) (rotate-list (cons (car lst) x)))
(perm (cdr lst))))))

788さま他皆様有難うございます。なんとかとっかかり位は出来ました
overlayってあまり参考文献はないですかね... 良く分からず書いています
(propertize " " ...) の " " の部分てダミーなんでしょうか。

(defun make-both-margins ()
(interactive)
(setq left-margin-width 6)
(setq right-margin-width 6)
(set-window-margins nil 6 6))
(defun show-bilateral-letternum-of-line ()
(interactive)
(let ((a nil) (b nil))
(progn
(beginning-of-line)
(setq a (make-overlay (point) (point)))
(overlay-put a
'before-string
(propertize " " 'display `((margin left-margin)
,(concat (make-string
(- 5 (length (number-to-string (point)))) 32)
(number-to-string (point)) "|"))))
(end-of-line)
(setq b (make-overlay (point) (point)))
(overlay-put b
'before-string
(propertize " " 'display `((margin right-margin)
,(concat "|" (make-string
(- 5 (length (number-to-string (point)))) 32)
(number-to-string (point)))))))
(list a b)))

>>799
要編集だと厳しいね

>>799
> (propertize " " ...) の " " の部分てダミーなんでしょうか。
です。
info の File: elisp, Node: Display Margins より。

If you put such a display specification directly on text in the
buffer, the specified margin display appears _instead of_ that buffer
text itself. To put something in the margin _in association with_
certain buffer text without preventing or altering the display of that
text, put a `before-string' property on the text and put the display
specification on the contents of the before-string.

つーか、そーゆう行番号表示は elisp でどーにかするよりも Emacs 自体を
なんとかするのが正攻法だと思われ。実際、Windows 用の xyzzy は組み込み
で行番号表示を持ってるし。

>>801 ありがとございます。安心しました。
>>802 いやー行番号より、先頭からの文字数を表示するというﾐｮｰなことが
したいんですよ。ほんとはスペースやリターンを数えない、読める文字だけ
をカウントしたいのです
しかしoverlayというのは面白いですね。
(overlay-put (make-overlay (point) (point)) 'after-string "+"))
とかすると+の字は消えない石みたいになりますね。どうせならウィンドウ
上で位置を固定出来ればもっと使い道がありそうですが、前の文字の挿入削
除で動いちゃうんですね。なににつかうんだろ

>>803 それはモードラインじゃ駄目なのか？…ん？カーソル位置じゃなくて
ひょっとして、各行の文字数を表示したいってことか？

799に書いたへなちょこコードを実行して戴くと分かると思うんですが、
先頭からの文字数を、各行の左右に表示したいんです(そんなやつあま
りいませんか) 799のだと編集に応じて変化してくれないので、そこを
頑張って書いてみようとおもつています

モードラインに表示するようにすれば？

モードラインに書けばいいだけの話

>>806>>807
なに連呼してんだよｗ

>>778
ここで叩かれて強くなってきたほうがいいんじゃないか？
http://pc.2ch.net/test/read.cgi/unix/1063880951/

そもそも、なぜ先頭からも文字数をいくつも表示したいのか語ると話が早い。

show-paren-style → expression
としてるんだけど、>>799 だと左右のエリアまで色付いちゃうね。
別に上のコード自体は欲しいと思う featureじゃないのでどーでもいいが、
技術的な問題として、ちょっと気になるかも。

気になるなら margin に表示する部分の face を指定しましょう。

視覚的な折り返しに対してマージンを仕込む方法はあるんでしょうか？


　　頭ああああああああああ尻

がウィンドウ幅で折り返されたら、

　　頭ああああああああ
ああ尻

じゃなくて、

　　頭ああああああああ
　　ああ尻

にしたいのです。
overlay等調べてみたけど今一つできなさそう。
似たようなことをしているlibraryもないし…。
Windowsの秀丸だとできて なぜEmacsでできん、と。

妙な要求があるもんだな。

　　頭ああああああああ
　　ああ尻

Window 幅を広げると、

　　頭ああああああああああ尻

に戻るってこと?
そりゃ無理だ。

>>812 だーかーら、そゆことは lisp の範囲ではなく C のレベルでなんとか汁。
ただな、大多数の人がその機能を不要だと思ってるわけよ。だから「なぜ？」を
説明しないと食いつき悪いと思うよ。ﾎﾝﾄに。

自前でおりかえし処理表示する mode 書けば
lisp レベルでなんとかなると思うが。

elisp だけでも不可能だとは言わないよ．でも実用性とか考えると C レベルで実装
（lisp から操作できるインターフェースも含めて）しちゃうのが ''the right thing''
じゃないかな〜と言っているわけ．でも，lisp にしろ C レベルにしろ，必要性と
いうか有効性が無いならだれもそんなことしないでしょ？ だからその辺を説明して
（あるいは熱く語って）同志を募れば？と言ってるの．

実用性は全く感じないし、激しくｲﾗﾈと思うが、
Cのレベルで書いたほうが何かと楽そうには感じる。

そもそもマージンって何に使うもんなの？

>>744
おいっ comp.lang.lisp でも似たような話題がでてたぞ。

http://groups.google.co.jp/groups?hl=ja&lr=&ie=UTF-8&threadm=3F857177.2F4BC9CA%40eng.cam.ac.uk&rnum=1&prev=/groups%3Fselm%3D3F857177.2F4BC9CA%2540eng.cam.ac.uk
http://www.geocities.co.jp/SiliconValley-SanJose/7474/cllMemo.html#0001

てことは c.l.l と 2ch のレベルは大して違わないってことだな。日付で見る
と 2ch のほうが先だからこの記事書いたやつは 2ch 見て書いたんだな。

>>820
おもんない && 頭悪そう

recursive-edit() すると、exit-recursive-edit()するまで自由にできますが、
再帰編集に入った直後に予め指定したコードを実行させる事ってできないものかなあ。

今思いついた変な例だけど、query-replace-regexpみたいな事してて、
カーソル位置にある関数名がふと気になったとします。
この時、置換作業はそのまま続けたいけど、その関数について調べたい場合、
あるキーを押すと、再帰編集に移行しつつカーソル位置にある関数名で
自動的にdescribe-functionしてくれて、
ついでに M-C-c するまで気の済むまで定義元ファイルを見たりできると便利かなと。

一旦終了して C-s C-s の方がよっぽど自然で使い易いが

>>823
うーむ、例が悪かったですかね。
とりあえず、なんかの対話的コマンド実行中に
別の事したいなと思う事が時々あるんですよ。

>>824
では、いい例を希望。何がしたいのか分かりません。

>>825
ではえらく具体的な例を。
SKKでミニバッファに表示された候補を見てて、
「これ何?」と思ったとき、例えば 'A'の入力で
'a'に対応した語を lookup-wordなり emacs-w3m経由で
ググッたりできたらいいな、と。
適当な変数に候補を代入して (recursive-edit)とするぐらいしか
今は思いつかないけど、辞書引きまで自動化できないものかと。

他の用例は……、前回思ったのがずいぶん前なので忘れた。

query-replace-regexp中に ? を押すと
C-r to enter recursive edit (C-M-c to get out again),
というのがありますね。
んで、replaceは操作が全て一関数にハードコードされているのでreplace.elを
書き換えるつもりじゃないと無理そうね。

それはそれとして、recursive-edit突入後にコマンド実行するちょっとした実験↓
(progn
(setq deferred-action-function
(lambda ()
(let ((f deferred-action-list))
(setq deferred-action-list nil)
(apply (car f) (cdr f)))))
(setq deferred-action-list '(call-interactively describe-function))
(recursive-edit))
なんとかなりそう? ならなさそう?

>>827
ほぉ〜、こんな仕組みがあったとは。
doc-string付いてるくせに、全然 emacsのドキュメントとかで触れられてない。
で、post-command-hookの存在を思い出したんだけど、今回はこちらで十分かな。
# ググってみたところ、deferred-action-list は
# 昔の skeleton.elで利用されてたものの、
# 手元の mule19.34附属の物では既に
# post-command-hookを利用するよう修正されているようです。

(defmacro execute-in-recursive-edit (&rest code)
(let ((hook (make-symbol "--execute-in-recursive-edit-hook--")))
`(progn
(fset ',hook
(lambda ()
,@code
(remove-hook 'post-command-hook ',hook)))
(add-hook 'post-command-hook ',hook)
(recursive-edit))))
こんなんでどお?

モードラインに桁数を表示するのに、左端を０でなく１とした
数を出したいんだけど
(setq mode-line-format '(:eval (number-to-string (+ 1 (current-column)))))
とか
(setq mode-line-format (number-to-string (+ 1 (current-column))))
とか
(setq mode-line-format (number-to-string (+ 1 (string-to-number "%c"))))
とかしても、カーソルに追従して変化してくれません
(setq mode-line-format "%c")
では、左端が０になってしまいます
これは、カーソル移動や文字入力にフックをするようにmajor modeを書かないと
むりですかね？

>>830
(add-hook 'post-command-hook 'force-mode-line-update)

(add-hook 'post-command-hook (lambda () (interactive)
(setq current-column (number-to-string (+ (current-column) 1)))
(force-mode-line-update)))
(setq mode-line-format (list "" 'current-column))

mode-line-format の evalって、実際どーいう条件の時に評価されるの?

>>833
update するとき

いつupdateされるの?

>> 832
ありがとうございます。すごいなー。
MMX Pentium 180MHzのパソコンだとカーソル動かしてから桁数がでるまで
ちょっと間があるのがかわいい。

pointが動いた時のhookにすればいいんだろうけど、よく知らない。
気休め程度に
(add-hook 'post-command-hook (lambda () (interactive)
(when (/= current-column (current-column))
(setq current-column (number-to-string (+ (current-column) 1)))
(force-mode-line-update))))

>>837
ナイスなアイデアだ。
でも、間違いが3つくらいありそうだぞ。

(add-hook 'post-command-hook (lambda () (interactive)
(let ((x (number-to-string (+ (current-column) 1))))
(when (or (not (boundp 'current-column))
(not (string= current-column x)))
(setq current-column x)
(force-mode-line-update)))))

文字列を作るのはいろいろな意味で負荷が高いので、
post-command-hook では数値のまま処理して、
mode-line の方で文字列に変換すべき

Emacs Lispの初心者で、Meadow2に付いているInfoを見ながら
Emacs Lispの機能をちょこちょこと試しているところです。

ざっと目を通していてよくわからなかったのが構文テーブルの使い方です。
構文テーブルの使い方を短いサンプル付きで説明しているサイトなどを
ご存知の方はいませんか？

質問者ですが
post-command-hook より post-command-idle-hook の方を使った方が、
なんだかカーソル移動への反応がいいみたいですね

lispなんか使えても社会に貢献できねーだろクズ共が

趣味でやるLispは楽しい

会社でやるLispは現実逃避

そもそも会社じゃやらねーだろ

んなこたーない。そういう仕事が取れるか取れないかというだけ。

例えばどんな仕事がある？一つでいいから例教えてくれよ。
大学機関で使うとかじゃなくてな。

>841
おれもよくわかってないが、一個だけ使い方知ってる。text-mode で

aaa_bbb_

という文字列の一番最初にカーソルを置いて M-f とするとカーソルは aaa の次の _ の
ところに移動する。でもここで

(modify-syntax-entry ?_ "w" text-mode-syntax-table)

を評価すると _ で止まらず最後まで移動するようになる。上の命令は _ という文
字を単語の一部とみなせと構文テーブルで指定するということ。他にも例えば

(modify-syntax-entry ?# "<" text-mode-syntax-table)
(modify-syntax-entry ?\n ">" text-mode-syntax-table)

とすると text-mode で # から行末までをコメントを表すものと指定できる。

正規表現とかにも影響を与える

Allegro 使う仕事とかありそうだ。

(プログラマやめたので最近は知らんけど)
以前は、まじでエキパートシステムとか
スケジューリング作成システムとかの、
LISPの仕事があったよ。９０年代前半
です。これはLISPで作ったスケジューリ
ング製品があったわけです。

で、それが*Emacs* Lispとどんな関係があるんですか?

そもそも843からスレ違い

>>843
ごめんな〜、クズで。