Emacs Part 44

**名無しさん＠お腹いっぱい。** · 2013/12/14(土) 17:36:04.45

語り合いましょう。

GNU Emacs - GNU Project - Free Software Foundation (FSF)
https://www.gnu.org/software/emacs/

EmacsWiki: サイトマップ
http://www.emacswiki.org/emacs/

前スレ
Emacs Part 43
http://toro.2ch.net/test/read.cgi/unix/1370754332/

**名無しさん＠お腹いっぱい。** · 2014/01/10(金) 14:13:54.03

>>235
elc を見てみましたがやっぱり置き換えは発生しておりませんでした。
(eval-and-compile (defconst test-hogehoge "HOGE"))
(defun test-func () test-hogehoge)
=>
(defconst test-hogehoge "HOGE")
(defalias 'test-func #[nil "^H\207" [test-hogehoge] 1])

**名無しさん＠お腹いっぱい。** · 2014/01/10(金) 14:52:48.48

>>236 あ、ほんとだ。消えない。すまぬ。

(eval-when-compile (defconst test-hogehoge "HOGE"))
(defun test-func ()
(eval-when-compile test-hogehoge))

eval-when-compile で全部包むと消えるみたいけど、めんどくさいかな。

**名無しさん＠お腹いっぱい。** · 2014/01/10(金) 16:01:53.67

>>234
cl-symbol-macrolet はどうだろう。clパッケージに依存するけれど。

(require 'cl-macs)

(cl-symbol-macrolet ((hoge "HOGE")
(fuga "FUGA"))
(defun f ()
(list hoge fuga)))

(symbol-function 'f)
;=> (lambda nil (list "HOGE" "FUGA"))

**名無しさん＠お腹いっぱい。** · 2014/01/10(金) 19:19:36.12

>>237
やっぱりその場で eval させないとだめっぽいですね。

>>238
おおおー
スコープ絞ればかなり期待通りの動作です。
ありがとうございます。
cl 奥が深いなあ

**名無しさん＠お腹いっぱい。** · 2014/01/11(土) 11:37:09.14

二つのリストを与えてそれをemacs lispで処理したいです
このようなものです
(mapc (lambda (a b) (print (+ a b)))
'(2 3 4) '(3 4 5))
想定しているのはcommon lispのmapcのようなことなのですが、できないものでしょうか

**名無しさん＠お腹いっぱい。** · 2014/01/11(土) 11:45:17.84

>>240
cl の mapc がそのまんま common lisp の挙動だね。
(require 'cl-lib)
(cl-mapc (lambda (a b) (print (+ a b))) '(2 3 4) '(3 4 5))

**名無しさん＠お腹いっぱい。** · 2014/01/11(土) 13:30:42.74

>>241
！ばっちりです！ありがとうございました

**名無しさん＠お腹いっぱい。** · 2014/01/12(日) 06:01:18.50

auto-save-hook で *scratch* の内容を保存してるのですが
保存時に出るこのエコーを無効にしたいです。

Saving file /usr/home/jk2/.emacs.d/.scratch…
Wrote /usr/home/jk2/.emacs.d/.scratch

「Saving file～」は message の defadvice で消せました。
「Wrote～」はどこで無効にすればよいのでしょうか？

**名無しさん＠お腹いっぱい。** · 2014/01/12(日) 10:22:18.85

write-region の第5引数になんか指定すれば黙るよ。

**名無しさん＠お腹いっぱい。** · 2014/01/12(日) 13:41:13.85

>>244
ありがとうございます！静かになりました。

**名無しさん＠お腹いっぱい。** · 2014/01/14(火) 00:34:38.41

signal を投げるとデバッガが起動しますが、
デバッガを終了した後に signal を投げた箇所から再開させるよう
デバッガの操作ではなくコード側から指示することは可能でしょうか？

(let ((count 100))
(while (> count 0)
;; do something
(when something-happened
(signal 'some-error nil))
;; do something ;; <= エラーが起きてもここから再開したい & ignore-errors でシグナルを無視はしたくない & ループも抜けたくない
(setq count (1- count))))

**名無しさん＠お腹いっぱい。** · 2014/01/14(火) 02:59:39.10

>>246
(debug 'some-error)
にする

**名無しさん＠お腹いっぱい。** · 2014/01/14(火) 10:10:16.95

>>247
ありがとうございます。
(debug 'hoge) でシグナルと同じようにデバッガに入れるんですね。

いま気がついたんですけど ignore-errors でもどちらにせよエラー起きた場所で止まっちゃうんですね。
(ignore-errors
(signal 'error nil)
(message "ppp") ;; <= ここまで到達はしない
)

basic とかにある、on error resume next みたいなのは無理かー

**名無しさん＠お腹いっぱい。** · 2014/01/14(火) 20:04:25.19

set-process-filter で設定したフィルタ関数内で
accept-process-output したりすると、(プロセスの出力があれば)フィルタ関数内で
フィルタ関数が呼ばれることになるんでしょうか？

**名無しさん＠お腹いっぱい。** · 2014/01/14(火) 21:52:26.73

>>212
Gaucheのリーダマクロ #?= みたいにprintfデバッグを書くのに debug-print.el というのを作ったのですが,
可能であれば函数名を読み取って表示するので要望に合うかもです.
現状では debug-print を上書きすれば表示は変えられるけど, もうちょい変えやすくしますかね.
(debug-printという関数名は twittering-mode.el も使ってるんで現状では少し注意.)
何か要望出してもらえれば反映するかもです.

丁度いい機会なのでいくつか質問を.

1. 既存の函数の戻り値に一時的に少し手を加えたい場合はどうするのが良いのでしょうか.

adviseされた函数をfletで上書きするとエラーが出るのでadviceを使うのが正しいのでしょうが,
常にそのadviceを有効にしたいわけではないのです. 大域変数を使ってadvice内部で
その変数を見て動作を切り替えるというのが標準的なんですかね?

2. そのやり方で何か不都合が出るかどうかが気になります.

因みに上のやり方がパッと思いつかなかったので現状では ad-enable-advice と ad-disable-advice
でadviceの有効/無効を切り替えています. こちらは既にバグがあることがわかっています.

**名無しさん＠お腹いっぱい。** · 2014/01/14(火) 22:44:00.16

手元のもろもろのパッケージでは機能の有効化/無効化時に ad-enable/disable-advice を使ってるみたいです。
enable/disable で問題ない気もするのですがちなみにどんなバグなんでしょう？
ad-activate が抜けてるとか？

**名無しさん＠お腹いっぱい。** · 2014/01/14(火) 22:52:00.69

>>250
> 丁度いい機会なのでいくつか質問を.
>
> 1. 既存の函数の戻り値に一時的に少し手を加えたい場合はどうするのが良いのでしょうか.

advice 使わないなら

(defconst original-FUNC (symbol-function 'FUNC))

(defun temporary-FUNC (&rest args)
(let ((retval (apply 'original-FUNC args))
....))

みたいにして

(fset 'FUNC 'original-FUNC) と (fset 'FUNC 'temporary-FUNC)

を切り換える、とか？

**名無しさん＠お腹いっぱい。** · 2014/01/14(火) 23:04:51.41

>>252
advice された関数に対してそれをするとアカンのですよ。

(defun dump-me ()
"me me")

(defadvice dump-me (after test-ad activate)
(setq ad-return-value (concat ad-return-value "??")))

(defconst original-dump-me (symbol-function 'dump-me))

(defun temporary-dump-me (&rest args)
(let ((retval (apply original-dump-me args)))
(concat retval "!!"))
)

(fset 'dump-me original-dump-me)
(fset 'dump-me 'temporary-dump-me)

(dump-me) ;; => スタック使い果たす

24.4 では fset 時に advice がついてこなくなるとかなんとか。

**名無しさん＠お腹いっぱい。** · 2014/01/14(火) 23:43:36.78

どうでもいいけど、函数ってかなり古い表現だよね
フォント⇒字母
アルゴリズム⇒算法
プログラム⇒算譜
みたいな

**250** · 2014/01/14(火) 23:56:40.51

>>251
; あーこれdefadviceに対して debug-print-eval-last-sexp するとエラーになりますね.
単純にenable/disableするだけだとアドバイスが複数あったときに元の状態に戻せないのです.
advice.elの実装見れば対処法はわかるのかもしれませんがマニュアルしか読んでないので...
; ad-activate入れないといけないってのはわかりにくいですよね. マニュアルにもhelpにもあんまり書いてないですし.

(defmacro keu:with-advice (on-or-off func class advice &rest body)
"[internal] Evaluate BODY with ADVICE enabled/disabled.
Note that there is a bug that it cannot restore the state of ADVICE.
Any ideas?"
`(progn
,(pcase on-or-off
(`'on `(ad-enable-advice ,func ,class ,advice))
(`'off `(ad-disable-advice ,func ,class ,advice))
(_ (error "the first argument must be the symol 'on or 'off")))
(ad-activate ,func)
(let ((keu:with-advice:return-value ,@body))
,(pcase on-or-off
(`'on `(ad-disable-advice ,func ,class ,advice))
(`'off `(ad-enable-advice ,func ,class ,advice))
(_ (error "the first argument must be the symol 'on or 'off")))
(ad-activate ,func)
keu:with-advice:return-value)))

改行が多すぎるので続く.

**名無しさん＠お腹いっぱい。** · 2014/01/14(火) 23:58:06.38

(defun foo (x)
(cons 'foo x))

(defadvice foo (after advice-a)
(setq ad-return-value `(advice-a ,ad-return-value)))

(defadvice foo (after advice-b)
(setq ad-return-value `(advice-b ,ad-return-value)))

(keu:with-advice 'on 'foo 'after 'advice-a
(funcall 'foo 100))
; => (advice-a
; (advice-b
; (foo . 100)))
(foo 100)
; => (advice-b
; (foo . 100))
(keu:with-advice 'on 'foo 'after 'advice-b
(funcall 'foo 100))
; => (advice-b
; (foo . 100))
(foo 100)
; => (foo . 100)

**250** · 2014/01/15(水) 00:04:52.00

ああ, 複数じゃなくてもいいですよね.

(ad-disable-advice 'foo 'after 'advice-a)
(ad-activate 'foo)
(foo 100)
; => (foo . 100)
(keu:with-advice 'on 'foo 'after 'advice-a
(funcall 'foo 100))
; => (advice-a (foo . 100))
(foo 100)
; => (foo . 100)

(ad-enable-advice 'foo 'after 'advice-a)
(ad-activate 'foo)
(foo 100)
; => (advice-a (foo . 100))
(keu:with-advice 'on 'foo 'after 'advice-a
(funcall 'foo 100))
; => (advice-a (foo . 100))
(foo 100)
; => (foo . 100)

**名無しさん＠お腹いっぱい。** · 2014/01/15(水) 00:33:23.13

>>250
なるほど。ある advice の有効/無効状態を取得出来るオフィシャルな方法はあるのかってことですね。
もともと enable ならなにもしない、って感じで。
Info みた感じだとなさそう。

結局 advice の実装見ることになっちゃうけど、ad-get-advice-info あたりを使うしかないのかしらん。
describe-function なんかでも使ってるから準公式みたいなもんでしょうきっと。

それと skk-isearch.el なんかでも advice 済みかどうかの判断に ad-get-advice-info を使ってるみたいです。

**名無しさん＠お腹いっぱい。** · 2014/01/15(水) 01:17:18.21

>>258
こういうことか？マクロ書き慣れてないから eval 沢山あってキモい
(defmacro keu:with-advice (on-or-off func class advice &rest body)
"[internal] Evaluate BODY with ADVICE enabled/disabled.
Note that there is a bug that it cannot restore the state of ADVICE.
Any ideas?"
(let ((adviced (caddr (assq (eval advice)
(assq (eval class)
(ad-get-advice-info (eval func)))))))
(if (or (and (eq (eval on-or-off) 'on) adviced)
(and (eq (eval on-or-off) 'off) (not adviced)))
`(progn
,@body)
`(progn
,(pcase on-or-off
(`'on `(ad-enable-advice ,func ,class ,advice))
(`'off `(ad-disable-advice ,func ,class ,advice))
(_ (error "the first argument must be the symol 'on or 'off")))
(ad-activate ,func)
(let ((keu:with-advice:return-value ,@body))
,(pcase on-or-off
(`'on `(ad-disable-advice ,func ,class ,advice))
(`'off `(ad-enable-advice ,func ,class ,advice))
(_ (error "the first argument must be the symol 'on or 'off")))
(ad-activate ,func)
keu:with-advice:return-value)))))

**名無しさん＠お腹いっぱい。** · 2014/01/15(水) 01:25:37.09

>>259
状態チェック入るなら展開時に評価はまずいんじゃないでしょうか。
pcase のところまで含めて実行時評価になるようにしないといけないかと。

**250** · 2014/01/15(水) 02:59:03.92

>>258
はい! そういうことです. ありがとうございます.

>>259
一から書き直してみました.
funcallの後ろを ',(if ...) としないといけないのはわからなくはないけど納得いかない.

(defsubst keu:advice-enabled-p (func class name)
(ad-advice-enabled (ad-find-advice func class name)))

(defmacro keu:with-advice (on-or-off func class name &rest body)
"[internal] Evaluate BODY with NAME enabled/disabled."
(let ((onoff
(pcase on-or-off
(`'on t)
(`'off nil)
(_ (error "the first argument must be the symol 'on or 'off")))))
`(let ((enabled (not (not (keu:advice-enabled-p ,func ,class ,name)))))
(if (eq ,onoff enabled)
(progn ,@body)
(prog2 ; return value is that of BODY
(progn
(funcall ',(if onoff 'ad-enable-advice 'ad-disable-advice) ,func ,class ,name)
(ad-activate ,func))
(progn ,@body)
(progn
(funcall ',(if (not onoff) 'ad-enable-advice 'ad-disable-advice) ,func ,class ,name)
(ad-activate ,func)))))))

**名無しさん＠お腹いっぱい。** · 2014/01/15(水) 04:05:06.60

>>261
> funcallの後ろを ',(if ...) としないといけないのはわからなくはないけど納得いかない.
funcall 使わなければいいのでは？

**名無しさん＠お腹いっぱい。** · 2014/01/15(水) 09:31:47.01

ああ、マクロ展開だから素でシンボルが頭にくるようにすりゃいいんかな
re-builder みたいに書いてるはしから macroexpand-all した結果を表示し続けるやつが欲しいわ・・・

**名無しさん＠お腹いっぱい。** · 2014/01/15(水) 09:39:36.07

defsubst ありなら
onoff その他を引数にとって enable と disable と activate までやってくれる toggle みたいなの書いちゃえば
progn 減ってすごく見やすくなりそうだな

**名無しさん＠お腹いっぱい。** · 2014/01/15(水) 10:07:46.31

しかし advice は何度説明読んでも preactivate と compile の意味がわからんわ

**名無しさん＠お腹いっぱい。** · 2014/01/15(水) 20:04:03.59

アドバイスが欲しいってか？

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 17:20:20.61

emacs と vim の advent calendar 見比べてると
(少なくともあそこら辺界隈での) emacs の息切れ感が伝わってきて切なくなるな

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 18:01:53.84

もう成熟してるからあとは腐るだけ

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 18:29:43.31

化石化してるから腐らないんじゃない

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 18:40:25.83

Mac book 使ってカフェで JavaScript 書いてる層には確実に受け悪そうだよな Emacs は。

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 18:49:00.73

アイコンの可愛いAquamacsちゃんもおるんやで

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 19:30:37.12

(interactive)と(interactive "p")の違いはどういうものですか？

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 19:36:16.72

Mac Book とカフェで JavaScript はダサくて
型落ち ThinkPad とメイドカフェで C が最高にクールというのが
Emacser の価値観だからねえ。

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 19:45:46.24

emacsってjs2-modeあるしmacとも相性良い気がするんだけど理屈じゃないのかな

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 19:50:46.22

>>272
"p"だと、コマンドを実行するときに指定した前置引数の値が関数の引数になる。

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 19:57:05.49

>>274
Web 界隈だと vim 使ってる人がクールってイメージなんじゃないだろうか。
自分の狭い観測範囲だとそんな感じを受ける。

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 20:01:36.29

俺の .vimrc には set compatible って書いてある。

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 20:06:17.51

>>275
なるほどそういうことですか
勉強になりました

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 20:10:13.80

打ち合わせの時、メモを Mac Book + iTerm2 + Emacs（黒地フルスクリーン）
で書いてたら、隣の女の子にじーーーーっと見られて非常にやりづらかった

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 20:12:50.32

なんでなんだろ
・Emacs が珍しかった
・黒背景ワロス
・イケメンだった
・ブサメンすぎた
・Mac Book(笑)
・別にお前を見ていたわけではない

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 20:14:28.57

・実はゆたぽんフォントを使っていた

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 20:34:23.61

>>280
・実はスパイだった

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 20:39:55.26

・なにこれMIFES？

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 21:06:50.38

・隣の女の子なんていなかった

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 21:13:22.52

・女の子じゃなくて髪の長いrmsだった

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 21:28:46.61

>>285
じわじわくるな。

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 21:47:50.19

Emacs絡みの女子ネタとは珍しいなｗ

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 21:48:25.45

>>285
優勝

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 21:54:24.10

Emacs 使ってる女の子とか女子力強すぎんだろ

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 22:07:56.76

なんで女子力って「高い」って言うんだ

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 22:08:12.20

前スレには高２の女の子来てたぞ

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 22:09:22.68

こんだけPCが普及してたら女子小学生Emacs使いがいても驚かない

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 22:12:59.80

どういうルートを辿ったら女子小学生が Emacs にリーチするんだろう
ぶっちゃけ PC なんかよりスマホで動くかどうかだな

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 22:14:42.02

>>290
「強い」って表現した時点で、たおやかな女子の魅力が損なわれるだろ？
その自己矛盾に陥ってしまうことを防ぐのが目的の一つ。
あと、「力が高い」という、ユルいけど嫌味にならない程度の
頭の悪さを匂わすフレーズを敢えて使うことで、
さらに女子としての魅力を演出している。

それはさておき、emacs 使ってたらとりあえずモテるよね。

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 22:15:53.28

別のスレで女子中学生のpython使いを見た。

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 22:21:25.46

>>290
能力が高いって言うだろ
つうかそれ位すぐ分かれよ

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 22:25:56.33

戦闘力も「強い」より「高い」な気がするな

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 22:30:50.60

腕力が高い

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 22:34:02.79

そんなことよりお前ら最近 elisp かいてんの？

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 22:49:43.97

毎日書いてはいるけど十数行で簡潔するような小物ばっかり

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 22:58:54.08

やべーskewer-modeすげー！
https://github.com/skeeto/skewer-mode
知らん人は↑ここからリンクしているムービーを見るべし
俺的に久々にヒットだわ

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 23:04:55.94

ちなみにM-x list-packagesでac-js2を入れると
js2-modeとskewer-modeがいっぺんに入る
auto-completeは自動で入らないけど入れた方がいいね

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 23:16:01.80

>>301
昔からブラウザ <-> Emacs 間で js や html/css 等は操作できてた
FireFox だったら Mozrepl があったし、よく使われてただろ (Chrome のお陰でもう死んでるけど)
ただ、なぜにこの skewer ってものは js2-mode を必須としているんだ？

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 23:40:44.46

趣味じゃね？
事実上モダンな js 用のモードは js2 しかない状況だから致し方ない気もするが。

**名無しさん＠お腹いっぱい。** · 2014/01/16(木) 23:45:14.12

そうすか
そのサイトに書いてあったけど、時前でhttpサーバを持ってるのと
ブラウザに依存しないのが利点かね
js2-modeが必須なのは分からんが、js2-mode自体JavaScript編集には必須だとは思う

**名無しさん＠お腹いっぱい。** · 2014/01/17(金) 00:55:05.06

js3-modeてのがあるけど何これ

**名無しさん＠お腹いっぱい。** · 2014/01/17(金) 00:58:12.85

A chimeric fork of js-mode (included with emacs 24) and js2-mode that supports comma-first style and other quirks.
って普通に書いてあるじゃん

**名無しさん＠お腹いっぱい。** · 2014/01/17(金) 01:56:43.56

"chimeric fork" って表現が非常にダサイ。
chimeric って形容詞自体、ここでは意味が通じない又は曖昧すぎて意味を無さない。
個人的に、もうその時点で「絶対使いたくない elisp」の仲間入りだわ。

**名無しさん＠お腹いっぱい。** · 2014/01/17(金) 03:09:34.65

そりゃご自由にと言うほかないが

もし前にchimericがなかったら of js-mode and js2-mode まで読んだところで
2つのモードのforkってどういうことさ？ってちょっと疑問符が浮かんでしまいそうなもんだから役目は果たしてると思うけどな
ダサイかどうかは判断つきかねるが

**名無しさん＠お腹いっぱい。** · 2014/01/17(金) 09:53:34.74

js2-modeの完成度が高いからjs3-modeを使う利点は無いだろう

**名無しさん＠お腹いっぱい。** · 2014/01/17(金) 13:09:25.37

普通にマージとか移植とかパクリとか言うたればええ

**名無しさん＠お腹いっぱい。** · 2014/01/17(金) 13:24:55.58

一応 npm スタイル対応を追加ってのがメインの売りなんじゃないのかね。
しかしプロダクト名にバージョンっぽいのがくっついてるのは気持ち悪いな。js2 からして。

**名無しさん＠お腹いっぱい。** · 2014/01/17(金) 21:09:42.79

ん？SysVディスってる？

**名無しさん＠お腹いっぱい。** · 2014/01/17(金) 21:18:31.94

SVR4とか気持ち悪い。

**名無しさん＠お腹いっぱい。** · 2014/01/17(金) 21:52:29.09

普通に気持ち悪いだろ。X11 もキモいよな。

**名無しさん＠お腹いっぱい。** · 2014/01/17(金) 21:55:58.43

キモすぎて離れたいのに離れられないジレンマ

**名無しさん＠お腹いっぱい。** · 2014/01/18(土) 00:32:39.86

お前らも年齢というバージョンを背負って生きてるだろ

**名無しさん＠お腹いっぱい。** · 2014/01/18(土) 01:27:12.24

>>317
バージョンが上がっても機能は衰えるのか。

**名無しさん＠お腹いっぱい。** · 2014/01/18(土) 02:06:30.77

儂らには経験がある(｀･ω･´)

**名無しさん＠お腹いっぱい。** · 2014/01/18(土) 11:49:37.84

(make-obsolete 'お前ら nil "2000-01-01")

**名無しさん＠お腹いっぱい。** · 2014/01/18(土) 14:54:06.44

elispでの正規表現の書き方を質問します
(split-string "123[test]456" "\\[")
;; => ("123" "test]456")
(split-string "123[test]456" "\\]")
;; => ("123[test" "456")
(split-string "123[test]456" "[\\[\\]]")
;; ("123[test]456")
最後の例で ("123" "test" "456") を得たいのですが
"[\\[\\]]"をどのように修正すればよいですか？

**名無しさん＠お腹いっぱい。** · 2014/01/18(土) 14:58:31.82

(split-string "123[test]456" "[][]")

**名無しさん＠お腹いっぱい。** · 2014/01/18(土) 15:02:57.06

(split-string "123[test]456" "\\[\\|\\]")

**名無しさん＠お腹いっぱい。** · 2014/01/18(土) 15:48:11.23

>>322-323
ありがとうございます。どちらも思ったとおりの動きです

**名無しさん＠お腹いっぱい。** · 2014/01/19(日) 00:51:50.97

Lingr の Emacs 部屋が vim 勢に乗っ取られててワロタ

**名無しさん＠お腹いっぱい。** · 2014/01/19(日) 09:06:09.83

リストに対して操作をするとき、dolist と mapc はどう使い分けたらいいんでっしゃろ。

**名無しさん＠お腹いっぱい。** · 2014/01/19(日) 13:12:34.14

まだ Lingr 盛り上がってるの?

**名無しさん＠お腹いっぱい。** · 2014/01/19(日) 14:14:18.79

何故か暗黒美夢王が eshell をプッシュしてる>Lingr

**名無しさん＠お腹いっぱい。** · 2014/01/19(日) 14:41:36.24

>>326
mapcはemacsがネイティブに用意してる関数
dolistはCommon Lisp互換マクロで本来は(require 'cl)しないと使えない
でも今時は誰かが(require 'cl)してるので何もしなくても使えてしまう
Common Lisp互換マクロを積極的に使うべきかはどうかはいろいろ議論がある／った

**名無しさん＠お腹いっぱい。** · 2014/01/19(日) 14:55:55.30

emacs24.3で試したら最初からdolist使えた

**名無しさん＠お腹いっぱい。** · 2014/01/19(日) 15:10:34.58

emacs24.3 の場合、dolist は subr.el で定義されてるから
素の emacs で使えちゃう

**名無しさん＠お腹いっぱい。** · 2014/01/19(日) 15:27:06.91

Emacs21あたりからdolistはsubr.elにあったはず。

mapcの引数FUNCTIONは、関数呼び出しされるので、それがlambda式であり、
bytecompileして使用する場合、

- 関数呼び出しのコスト(実行時間)が、プリミティブによるdolistループ実行コストよ
り大きい

- lexical bindingにおいて、lambda式の外部のローカル変数にアクセスできない

などの可能性がある。

既存の関数をそのまま呼び出せばいい場合だけmapcを使い、他はdollistを使うことが、
一つの有力な選択肢だと思う。

**名無しさん＠お腹いっぱい。** · 2014/01/19(日) 15:33:55.30

mapcの存在を忘れてdolistだけ使ってたほうが幸せになれる

**名無しさん＠お腹いっぱい。** · 2014/01/19(日) 15:37:51.11

dolistはsubrとclの両方で定義されてるのか
そいでclがロードされてたらsubr側のは使わないような感じになってるのな

**名無しさん＠お腹いっぱい。** · 2014/01/19(日) 15:41:55.67

副作用で弄ったリストそのものが戻り値で欲しい場合は mapc を使うことにしてるなあ。
dolist はリストを元に何かしたい場合にしてる。