Emacs Lisp 3 - 暇つぶし2ch

Emacs Lisp 3 ..

83:デフォルトの名無しさん
08/05/11 22:45:10
>>82
その真上にある終了時に byte-compile ってやつはダメなの？

84:デフォルトの名無しさん
08/05/12 02:51:56
>>82
kill-buffer-query-functions で eval してはどうでしょうか。

(add-to-list 'kill-buffer-query-functions
(lambda ()
(when (string= (expand-file-name "~/.emacs.el")
(buffer-file-name))
(eval-buffer))
t))

85:82
08/05/12 05:10:30
>>84 的確なレスありがとうございます。
さっそく試したところ、うまいこと動きました。

ただ、やはり、バッファ終了時ではなく、手動保存時に
add-hookすることができればそれがベストかなと、
思い直した次第です。

つまり、'after-save-hookだとauto-save時にも適用されてしまいますが、自分でC-x C-sした時だけeval-bufferするようなことって、できますでしょうか？

たびたびすいませんです。これで最後の質問にいたします。

86:デフォルトの名無しさん
08/05/12 08:28:30
>>85
eval-bufferして本来の動作をするようなelispを定義して
C-xC-s のコマンドに上書きすればいいだけじゃないか。

87:デフォルトの名無しさん
08/05/12 08:28:31
そういうコマンド書いて C-x C-s に割り当てればいいんじゃないかな。

88:デフォルトの名無しさん
08/05/12 08:58:59
>>85
interactive-p で auto-save かどうかを判定できるかも。

89:デフォルトの名無しさん
08/05/12 09:30:03
選択範囲内のすべての行の先頭にタブを入れたいのですが，
どうすればいいですか？

わかる方がいましたら教えてください。

90:デフォルトの名無しさん
08/05/12 09:43:01
>>89
マークして C-x r t C-q TAB RET
基本的な操作は本スレで質問しような。

91:デフォルトの名無しさん
08/05/12 15:52:28
>>81
なぜかうちの環境ではならない
ubuntu7.10

92:デフォルトの名無しさん
08/05/13 12:03:29
>>90
そんな長いコマンドがちょっといやで，
C-c C-tあたりでできるようにしたいです

93:デフォルトの名無しさん
08/05/13 13:28:35
>>92
じゃあチラシの裏に書く前にさっさとそうしてください。

94:デフォルトの名無しさん
08/06/20 07:24:04
opensuse11 初心者だけど、manページが文字化けする。。。。

95:デフォルトの名無しさん
08/07/04 09:18:57
elispでもマクロがあるんだねぇ。しらなかった。試しに作ったけど

(defmacro definsert (name str)
(let ((dstr (gensym)) (len (gensym)))
`(defun ,name ()
(let* ((,dstr (concat ,str ,str)) (,len (length ,str)))
(insert ,dstr)
(backward-char ,len)))))

( definsert insert-double-aho "aho")
(insert-double-aho) => ahoaho カーソルの位置　最初のahoの後ろ

インデントは適当になおしてね。また、これは車輪の再発明でinsert-pairが
標準であることを付け加えておきますね。

96:デフォルトの名無しさん
08/09/28 07:16:03
一行コピーの一番エレガントな実装を教えてください。
取り合えず手元にあるものではこんな感じ。

(defun duplicate-line (n)
(interactive "p")
(save-excursion
(copy-region-as-kill (line-beginning-position)
(progn (forward-line 1) (point)))
(dotimes (i n)
(yank))))

ちなみに、コピー後のカーソル位置は任意です。(カラムが移動するのはイヤン)

97:デフォルトの名無しさん
08/09/28 08:05:33
;; エレガントかどうか知らんけど、最終行でも動作が変わらないようにしてみました
(defun duplicate-line (n)
(interactive "p")
(save-excursion
(let ((str (concat (buffer-substring (line-beginning-position)
(line-end-position))
"\n")))
(forward-line)
(when (= (line-end-position)
(point-max))
(insert "\n"))
(dotimes (i n)
(insert str)))))

98:デフォルトの名無しさん
08/09/28 10:44:45
(fset 'duplicate-line
[?\C-a ?\C- ?\C-e escape ?w ?\C-m ?\C-y ?\C-a ?\C-p])

99:96
08/09/28 11:13:49
ありがとうございます。

>>97
確かに最終行が改行で終わってないと動作がおかしいですが、
ある意味正しいというか、あまりないことなので現状でも
いいかなという気もします…

>>98
マクロも考えたんですが、カーソルのカラム位置が移動しちゃうのと
一回のUndoで元に戻らないのがちょっと微妙です。

100:96のお父さん
08/09/28 11:34:40

(insert (save-excursion (concat (buffer-substring (line-beginning-position) (line-end-position)) "\n")))

101:96のお父さん
08/09/28 11:36:45
失礼。
× (insert (save-excursion (concat (buffer-substring (line-beginning-position) (line-end-position)) "\n")))
○ (save-excursion (insert (concat (buffer-substring (line-beginning-position) (line-end-position)) "\n")))

どっちでもいいけどな。

102:デフォルトの名無しさん
08/11/22 13:26:48
質問です。

grep-find で、あちこちの .svnディレクトリ以下を無視したいのですが、
参考：.svnを除外してfindする
URLﾘﾝｸ(snak.tdiary.net)

今は毎回、-name .svn -prune -o を手で付け加えていて面倒なのです。

そこで、デフォルトでこのオプションが追加されるようにしたいのですが、で
きたらgrep.elはそのままで、.emacs.el で設定したいのです。どうしたら良い
でしょうか？

103:デフォルトの名無しさん
08/11/22 13:35:06
なんか自己解決しました。grep-findじゃなくてrgrepだと.svnディレクトリを
デフォルトで無視してくれてるみたいです。
もっと調べてから質問するべきでした。すみません。

104:デフォルトの名無しさん
08/11/22 14:24:45
すみません、>>102-103です。
Emacs本スレに書いたつもりの誤投稿でした。本当にごめんなさい。

105:デフォルトの名無しさん
08/12/03 11:27:34
Emacs Lispでwgetみたいなことはできますか？

106:デフォルトの名無しさん
08/12/03 15:34:26
質問です。
x と lst が与えられたとき、x を lst から取りだす CAR と CDR の適用列を返す
関数 co を定義しなさい。 coは、そのような適用列が存在しない場合は NIL を
返すものとする。

107:デフォルトの名無しさん
08/12/03 15:43:05
>>106
> x と lst が与えられたとき、x を lst から取りだす CAR と CDR の適用列を返す
> 関数 co を定義しなさい。
この文章は命令とか指示とかいった文章で
> coは、そのような適用列が存在しない場合は NIL を返すものとする。
この文章は補足とか追加説明とかいった文章だな。

で質問は何？

108:デフォルトの名無しさん
08/12/03 17:02:51
;; >>106 エスパーして作ってみた
(mapc 'require (cl el-expectations))

(defun co (x lst &optional acc)
(assert (listp lst))
(macrolet
((recur (&rest lst) `(co ,@lst)))
(let ((cur (car lst)))
(cond ((null cur) nil)
((and (atom cur)) (if (eq x cur) (cons 'car acc)
(recur x (cdr lst) (cons 'cdr acc))))
((listp cur) (or (recur x (car lst) (cons 'car acc))
(recur x (cdr lst) (cons 'cdr acc))))
(t (error "unexpected lst: %s" cur))))))
;; test cases
(expectations
(error (co 'a '()))
(expect (co 'not-found '()))
(expect (co 'a '(a)) '(car))
(expect (co 'b '(a b c)) '(car cdr))
(expect (co 'c '(a b c)) '(car cdr cdr))
(expect (co 'x '((x) a b c)) '(car car))
(expect (co 'x '((a b c x) d e f)) '(car cdr cdr cdr car))
(expect (co 'x '(a b (c x d) e f)) '(car cdr car cdr cdr)))

109:デフォルトの名無しさん
08/12/03 17:04:03
(mapc 'require '(cl el-expectations))
ね

110:デフォルトの名無しさん
08/12/03 18:41:44
>>106
どこの学校の宿題 ?

111:デフォルトの名無しさん
08/12/03 21:04:29
戸塚ヨットスクール

112:デフォルトの名無しさん
08/12/03 21:40:53
;; とりあえず質問者からの動作報告求む
(defun* co (x lst &optional (compare 'eq))
"COMPAREで比較関数を指定できるようにしてみた。
引数無しでは`eq'を使って比較する。"
(assert (listp lst))
(labels ((f (lst acc)
(let ((cur (car lst)))
(cond ((null cur) nil)
((and (atom cur)) (if (funcall compare x cur) (cons 'car acc)
(f (cdr lst) (cons 'cdr acc))))
((listp cur) (or (f (car lst) (cons 'car acc))
(f (cdr lst) (cons 'cdr acc))))
(t (error "unexpected lst: %s" cur))))))
(f lst '())))
;; てすけ
(expectations
(error (co 'a '()))
(expect (co 'not-found '()))
(expect (co 'a '(a)) '(car))
(expect (co 'b '(a b c)) '(car cdr))
(expect (co 'c '(a b c)) '(car cdr cdr))
(expect (co 'x '((x) a b c)) '(car car))
(expect (co 'x '((a b c x) d e f)) '(car cdr cdr cdr car))
(expect (co 'x '(a b (c x d) e f)) '(car cdr car cdr cdr))
(expect (co "foo" '("bar" "foo") 'string=) '(car cdr)))

113:デフォルトの名無しさん
08/12/04 15:17:06
遅くなりました106です。
関数coを定義しなさいという問題でした。

みなさんのおかげできました。
ありがとうございました。

114:デフォルトの名無しさん
08/12/05 16:07:00
質問をさせてください。
read-string等でminibufferから読み込みをしている最中にC-x C-bとかすると
(if enable-recursive-minibuffers
　　　　(error "Command attempted to use minibuffer while in minibuffer")
　　　(error "Cannot switch buffers in minibuffer window"))
なんですが
condition-caseでは捕まえられないし（switch-to-buffer中のエラー？）
*Backtrace*でqを押すとread-stringが戻る事無くトップレベルに返ってしまいます。
こういう場合はどう対処すればよいのでしょうか？
非同期プロセスと通信するプログラムを書いているので
いきなりtop-levelに返ってもらっては困るのです。
よろしくお願いします。

115:114
08/12/05 16:18:25
ifのthen式とelse式が逆でした

116:デフォルトの名無しさん
08/12/17 23:20:41
すみません、
>>106を>>108 >>112
より簡単に書けませんか？
よく分かりません

117:デフォルトの名無しさん
08/12/17 23:50:38
宿題をここで教えてもらうような人間が提出するには
コードが綺麗すぎて困っているのですね、わかります。

118:デフォルトの名無しさん
08/12/18 15:56:12
(defun co (x lst)
(let ((f (lambda (node acc)
(cond ((eq node x) acc)
((consp node)
(or (funcall f (car node) (cons 'car acc))
(funcall f (cdr node) (cons 'cdr acc))))))))
(funcall f lst '())))

119:デフォルトの名無しさん
08/12/24 16:57:33
ある eval に時間のかかる式を
開発中に eval-buffer したときは eval せずに,
compile 時のみに eval したいんですが,
どうするんでしょうか?

(eval-when (compile) (hoge))

これはうまくいっていないように思う.
Emacs 22.

120:デフォルトの名無しさん
08/12/24 22:25:20
eval-when-compile

121:デフォルトの名無しさん
08/12/25 00:44:53
eval-when-compile は eval-buffer でも eval される.

質問の仕方を変えると, byte compiling 中のみ Non-NIL に
なる変数はどうすれば定義できるか?

(defvar hoge-byte-compiling-p ...)

122:デフォルトの名無しさん
08/12/25 09:15:49
>>119と>>121じゃ問題が全然違うだろ。

123:デフォルトの名無しさん
08/12/25 12:25:52
質問がへたでごめんなさい.
eval-when-compile は eval-buffer のときも byte-compile のときも eval されるが,
今どちらなのかを区別したいです.

124:デフォルトの名無しさん
08/12/25 16:32:59
>>121
backtrace/backtrace-frame を使って byte-compile-form あたりの有無で判定
できると思う.

125:デフォルトの名無しさん
09/02/07 11:11:43
大学2年です
春休みを使って、emacs lispを勉強して、より快適な環境を作り、雑多な手間を省きたいんですが
どのくらいのレベルに行けば、emacs lispを扱えるレベルと言えるんでしょうか？
現在、自分はレベル1でしょうか

実は、Pythonのほうが興味があって、Pythonのほうがメインの勉強だったりします
Pythonでも下記のリンクのようなことは、できそうですよね？
Lisp(emacs lispとの違いがまだよくわかっていませんが)のほうがスマートなんでしようか

古いネタですが、叩き台のネタに

Scheme:Schemeプログラマのレベル10
URLﾘﾝｸ(practical-scheme.net)

126:デフォルトの名無しさん
09/02/07 23:23:43
新しいmajor-modeを書いたり、標準のelispとか誰かが作ったelispのバグを取ったり拡張を書いたり
できるようになれば十分扱えてるといっていい状態だろうね
それ以外の項目については何が言いたいのかよくわからない

127:デフォルトの名無しさん
09/02/08 00:28:15
Lispの方がスマートに解ける問題もあればPythonの方が良い場合もあるでそ。
なんとなく思いだしたのでこれ貼っとく。
URLﾘﾝｸ(www.aoky.net)

128:デフォルトの名無しさん
09/02/08 06:58:22
>>127
リンク、サンクスです
この人の寸評だと、このころはRubyのほうが優れた言語とされていたんだね

elispで何ができるかというのは、漠然とだけど、掴めるんだけど
Schemeでなにができるかがよく掴めない(どういう用途に優れているとか)
単なる教養としての言語なのかな
言語仕様として一貫性があるとか、そんな感じなのかな

Scheme関連のチュートリアルを読んでみます

129:デフォルトの名無しさん
09/02/08 11:50:11
一応言っておくけど、Lispを学びたいからEmacs Lispをやるっていうのなら、
括弧になれるとか入口程度に思っておいた方がいいよ。
Emacs Lispは、見た目、Lispなだけだから。
末尾再帰を最適化できないから、再帰で書くことが事実上できなかったり、色々とLispらしくないから。

130:デフォルトの名無しさん
09/02/08 12:40:51
Emacs Lispはテキストエディタのマクロとは思えないほど多機能だけど
>>129に書かれてるような問題があるよということを>>127の人の最近のポストで書いてるね。
URLﾘﾝｸ(steve-yegge.blogspot.com)
Emacs LispでJavascriptを実装しちゃうってのも凄い話だけど。
あとLispの方言の説明がおもろい。

>Lisp is a whole family of languages, and can be broken down approximately as follows:
> * Scheme is an exotic sports car. Fast. Manual transmission. No radio.
> * Emacs Lisp is a 1984 Subaru GL 4WD: "the car that's always in front of you."
> * Common Lisp is Howl's Moving Castle.

131:デフォルトの名無しさん
09/02/08 13:02:07
>>130
コメント欄みてみるとハウルネタがやたらウケてるな。このアニオタどもめ！

132:デフォルトの名無しさん
09/02/08 13:11:50
言語仕様に問題のあるEmacs Lispだけどlispの総合環境としてはソースレベルデバッガあり、トレーサあり、
プロファイラあり勿論ディスアセンブラもありと割と至れり尽せりだったりする

133:デフォルトの名無しさん
09/02/08 13:43:30
>>130
ハウル、みていないんだがｗ
Emacs Lisp の"the car that's always in front of you."をYahooに訳させたら、
いつもあなたの正面にある車。と訳したんだけど、どういう意味だ
1984 Subaru GLは
URLﾘﾝｸ(farm1.static.flickr.com)
らしいけど、古い4WDって話か
>>132
そういう通常利用の一個上を行く使い方ってどういうのがあるんですかね
潜在能力が高いなら、もっと踏み込んで勉強したいところなんですが
ちょっとEmacs Lispをかじっただけですが、けっこうのことをEmacs１つでできそうだなと想像するんですが

Lisp関連であと2日ぐらいググって、今後のカリキュラムを組もうかな
言語仕様50ページだったSchmeは、ちょっとやりたくなるね
Schmeをやってから、Emacs Lispをやったほうが言語仕様も理解しやすいかな

関数名が長いのってEmacs Lispだけじゃなくて、Schmeもそうなんだね
略記もあるみたいだけど
個人的に長いほうが好きかも
保守しやすそうだし

チラシの裏
年齢(生まれ)比較
Lispは1958年生まれの51歳
Schmeは1970年代生まれの30代
Comon Lispは1984生まれの25歳
Emacs本体(Emacs Lisp)は約1976年生まれ, 32～33歳
Pythonは1991生まれの18歳
C言語は1972年生まれの37歳

134:デフォルトの名無しさん
09/02/08 16:19:28
>>133
"the car that's always in front of you."
は、俺だったら
「いつもそこにある車」　って訳すかな
（＝古くてダサくて定番中の定番で面白くないけど、結局乗るのはこの車なんだよね、
的な意味で）

あと、「Scheme」だぞ。typoかと思ったけど全部Schmeって書いてるってことは
本気で勘違いしてる？

135:デフォルトの名無しさん
09/02/08 16:27:08
schemeやelispはhogeライブラリのfoo関数ってのをhoge-fooみたいに定義せにゃならんからね
この規則を使って階層になったライブラリの関数、hogeライブラリの中にあるfooライブラリの関数fの名前を付けると
hoge-foo-fのようになってしまう
長くなるのは仕方ないけど、この規則ででかいアプリケーションは書きたくないよね

136:デフォルトの名無しさん
09/02/08 16:31:26
the car that's always in front of you というネタの原型はフォードT型。
あまりに売れすぎて、「どんなレーシングカーもフォードTの前に出ることはできない。どれだけ抜いてもまだ前にもう1台いる」というジョークが生まれたので。
スーパーカーとの対比で、性能はプアだけどみんなが使ってる普及版っていうニュアンスだろうな。

elispはよくも悪くもEmacsと切り離せないものなので、本当に言語の勉強をしたいならcommon lispかschemeのほうがいいよ。
逆にEmacsいじって遊びたいならelisp使うしかないし。

137:デフォルトの名無しさん
09/02/08 16:39:45
>>136
134だが勉強になった。トン

138:デフォルトの名無しさん
09/02/08 18:12:24
>>136
> elispはよくも悪くもEmacsと切り離せないものなので、本当に言語の勉強をしたいならcommon lispかschemeのほうがいいよ。
言語の勉強したいまでは、まだ至っていません
Emacsを使いこなせるようになりたいだけで

Schemeは、知っていて損はなさそうですね
チュートリアルの語彙も特徴的で好奇心をそそられる
英語・日本語の資料も豊富そうで資料には、困らないだろうし
プログラマとしての幅が広がるなら、なおうれしいかな

139:デフォルトの名無しさん
09/02/14 00:26:28
俺はバッファ、リージョン、選択範囲なんか用の
map関数を書いてよく使ってるんだがこれ便利よ
色々関数を別途定義しといて
関数を行に対して呼び出す

2chに書き込むときによくやるのは
タブ→スペース変換と
半角スペース→nbsp変換
こうするとプログラムはインデントされて見やすい

ところで、久しぶりにここきたんだが
xyzzyスレってどこいったの？
見つからないんだけど

140:デフォルトの名無しさん
09/02/14 00:34:37
ソフトウェア板とWindows板に1つずつあるよ。

141:デフォルトの名無しさん
09/02/14 00:45:02
あったあった、さんきゅー

142:デフォルトの名無しさん
09/02/19 18:25:06
行の(半角相当で)80文字目の位置をを色づけしたいとおもったんですが,
とりあえず思いついた
'(("^......................................................\
.........................\\(.\\)" 1 highlight-long-line-face append))
というのをfont-lock-add-keywordsして加えたところ、
当然ながら全角文字をいれると後ろにずれました

半角で80文字目の位置をを色づけする方法について、
なにかお知恵を拝借できませんでしょうか？

143:デフォルトの名無しさん
09/02/19 19:21:13
URLﾘﾝｸ(www.emacswiki.org)

144:デフォルトの名無しさん
09/02/19 22:19:43
質問者じゃないけど
めちゃめちゃ重いなそれｗ

145:デフォルトの名無しさん
09/02/20 15:29:29
>>143
ありがとうございます
そんなものが作られてたんですね、試してみます

146:デフォルトの名無しさん
09/02/23 22:05:35
>>144
うまい工夫をしないと速くならないだろうからなぁ。常に80文字目を数えるって
いうことだしね。

147:デフォルトの名無しさん
09/02/23 23:00:47
cygwin環境下でgaucheをリッチに使いたくて
行ごとに色を変えたいんですが教えてください

まさに自分がやりたいことがこれ
URLﾘﾝｸ(pitecan.com)

上のプログラムをざっと読んだ感じ、
色の変更に関するプリミティブな部分ってのは
「put-text-propertyに背景色を設定したfaceを設定する」
というように感じたのですがあってますか？

それらしきコードを書いてみたのですがうまくいかず・・

(setq symbol (make-symbol "test"))
(setq face (make-face symbol))
(set-face-background face "DarkSeaGreen1")
(point)
134　←評価結果
(point)
146　←評価結果
(put-text-property 134 146 'face face)

148:デフォルトの名無しさん
09/02/23 23:02:07
あ、補則。このコードは行は意識してなくて、とりあえず指定箇所の背景色を変えたいだけです

149:デフォルトの名無しさん
09/02/24 00:19:05
とりあえずfont-lock-faceにしたら動いたけど
(put-text-property 1 20 'font-lock-face 'highlight)

150:デフォルトの名無しさん
09/02/24 00:39:13
ありがとうございます。
それを実行したときはtが返るんですよね？
M-x list-faces-displayで書いてあるフェイスをいくつかうちこんでは見ましたが
自分の環境ではnilが返ってきて色が変わらないです

↓動作はよくわかってませんが、これを切り替えた場合はちゃんと色が変わります
(global-font-lock-mode t)
(global-font-lock-mode nil)

今日は寝て、また明日調べてみますわ

151:デフォルトの名無しさん
09/02/25 12:19:45
ver22で拡張された \,(function \1) みたいなのが
replace-match では使えない(不正な\エラーになる)のは何で？

こんな感じ↓
(re-search-forward "\\(.+\\)" nil t)
(replace-match "\\,(my-func \\1)" nil nil)
=> Invalid use of `\' in replacement text

152:デフォルトの名無しさん
09/02/25 15:06:59
est

153:デフォルトの名無しさん
09/02/25 17:08:20
>>151
君の頭が腐っているというのを疑った方がいいよ

154:デフォルトの名無しさん
09/02/27 00:26:35
>>151
プログラマブル正規表現だっけ？
よくわからん

155:デフォルトの名無しさん
09/02/27 01:11:40
プログラマブルなのが使えるのは、インタラクティブに実行した場合だけでしょ。

NEWS
*** When used interactively, the commands `query-replace-regexp' and
`replace-regexp' allow \,expr to be used in a replacement string,

ちなみに replace-regexp を実行したら次のように展開された(repeat-complex-command)。

(replace-regexp "\\(.+\\)"
(quote
(replace-eval-replacement replace-quote
(my-func (match-string 1))))
nil
(if (and transient-mark-mode mark-active)
(region-beginning))
(if (and transient-mark-mode mark-active)
(region-end)))

で、replace-regexp をプログラムの中で使うのはbadなので、

(while (re-search-forward "\\(.+\\)" nil t)
(replace-match (my-func "\\1") nil nil))

156:151
09/02/28 01:47:45
>> 154
そんな名前があるとは知らなんだ。
google先生は記号の検索には弱いしね・・・

>> 155
サンクス。インタラクティブ専用だったんだ。
よく使う置換の組を「お気に入り」みたいに登録して一発で呼び出せるlispを作ってたんだけど、
仕組み上、正規表現は自由に指定可能だから関数決めうち実行ができなくて。
プログラマブル正規表現は非対応とあきらめるしかないか。

157:デフォルトの名無しさん
09/02/28 03:23:53
>> と数字の間は開けないで

158:デフォルトの名無しさん
09/02/28 22:18:39
起動時にインタラクティブな関数を自動的に呼び出すにはどうしたらいい？
2画面で起動して、片方にSchemeインタプリタを起動したい
2画面の分割は、.emacsに(split-window-vertically)を追記したらうまくいったが
M-x run-schemeが呼び出せないんだ

159:デフォルトの名無しさん
09/02/28 22:50:34
(run-scheme) ではだめなのけ？

160:デフォルトの名無しさん
09/02/28 23:14:03
だめぽ。そうするとこんなわけわからんエラーが出る
Wrong number of arguments: #[(cmd) "\304\305!\204^Y^@\306^H!^Y\307\310\311 @\312 A%q\210\313 \210)^H^R\305^S\314\305\
!\207" [cmd cmdlist scheme-program-name scheme-buffer comint-check-proc "*scheme*" scheme-args-to-list apply make-comint "s\
cheme" nil inferior-scheme-mode pop-to-buffer] 6 ("/usr/share/emacs/21.2/lisp/cmuscheme.elc" . 6428) (list (if current-pref\
ix-arg (read-string "Run Scheme: " scheme-program-name) scheme-program-name))], 0

161:デフォルトの名無しさん
09/02/28 23:18:46
describe-function(C-h f)ぐらい覚えような

162:デフォルトの名無しさん
09/02/28 23:29:14
>>160
(run-scheme scheme-program-name)

163:デフォルトの名無しさん
09/03/01 09:48:57
(call-interactively 'run-scheme)

164:デフォルトの名無しさん
09/03/01 14:28:41
>>161-163
㌧牛㌧牛トーン・・カツ！
すばらしく快適な環境になった

165:デフォルトの名無しさん
09/03/01 17:07:00
>>164
(call-interactively 'run-scheme)
これしらんかった、すげぇ勉強になった、ありがとう
いままでintaractive関数の機動失敗時はいつも.elの中調べてた。