Emacs Part 42

**名無しさん＠お腹いっぱい。** · 2012/12/24(月) 12:26:20.01

前スレ

Emacs Part 41
http://toro.2ch.net/test/read.cgi/unix/1347009022/

**名無しさん＠お腹いっぱい。** · 2013/03/12(火) 23:23:28.38

always trunk な俺。

**636** · 2013/03/13(水) 01:46:20.30

自己解決できた
(remove-hook 'helm-after-update-hook 'helm-ff-update-when-only-one-matched)

**名無しさん＠お腹いっぱい。** · 2013/03/13(水) 09:38:03.19

>>638
安定性

**名無しさん＠お腹いっぱい。** · 2013/03/13(水) 09:52:06.15

安定してどうするよ。
俺は Emacs にはサラリーマンになんかなってほしくないね。
もっとチャレンジングに、ビッグに発展してほしい。

**名無しさん＠お腹いっぱい。** · 2013/03/13(水) 11:54:13.84

24.3 で navi2ch が重い気がするんだが

**名無しさん＠お腹いっぱい。** · 2013/03/13(水) 12:04:25.98

はぁ。

**名無しさん＠お腹いっぱい。** · 2013/03/13(水) 12:19:52.26

2chでいちいちため息つく奴って何なの？

**名無しさん＠お腹いっぱい。** · 2013/03/13(水) 19:35:50.99

>>637-638
24.1,24.2はメモリ管理まわりがドタバタしてて普通に使う分には気づかないけど
大きなアプリケーションを動かそうとすると落ちたりしてた

>>642
そういう意味の安定性じゃない

**名無しさん＠お腹いっぱい。** · 2013/03/13(水) 22:43:21.64

もういい年なんだからそろそろ落ち着きましょうよ

**名無しさん＠お腹いっぱい。** · 2013/03/13(水) 22:48:18.87

まだ8歳だけど?

**名無しさん＠お腹いっぱい。** · 2013/03/13(水) 23:22:31.35

神童現わる

**名無しさん＠お腹いっぱい。** · 2013/03/13(水) 23:32:11.94

4歳なんとなく父親のPCをいじり始める
5歳なんとなく父親のホームページをメモ帳でいじり始める
6歳 HTML,CSS,Javascriptを完全にマスターする
7歳サーバーサイドに興味を持ち始め、Webサーバーを実装してみる
8歳溢れるアイディアを押さえきれず、Emacsで世界を揺がすアプリを開発中
↑
いまここ

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 00:06:25.64

C++をマスターするのはいつなんです？

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 00:54:06.97

C++ マスターしてる奴なんて存在するの?

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 01:07:07.60

ストラウストラップとステパノフ

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 05:46:16.90

俺だよ俺俺

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 07:20:56.69

B系のEmacsが欲しい。Bmacs。

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 17:05:51.54

emacs使いならC++なんか気にしなくていいからcommon lisp習得しろよ

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 18:12:02.33

GoogleReader がサービス終了で吐きそう
emacs の newsticker まじめに使えってことか・・・

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 18:17:13.85

吐いてもいいんだよ

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 18:18:19.69

いま話題になってるけど、俺全然触ってすらいなかった。
お前らどんなサイトのRSSを購読してるの？

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 18:19:36.27

"hoge/foo/filename"という文字列がバッファにあった時その文字列からファイルを開く方法ってありませんか？

(load "hoge/foo/filename")などとあった場合に参照先を見たい時があります。

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 18:21:34.16

それなんて ffap？

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 18:22:30.96

stackoverflow の elisp とか emacs タグのとこ購読したりしてたよ
ブログは見てるのは全部 RSS 経由でしか見てねーよおーげろろろげろろろ」

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 18:46:18.26

>>661
おおおおお！！こんな便利なものが・・・しかも標準で。
.emacsに(ffap-bindings)と書くだけで使えるようになりました。
ありがとうございました。。

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 21:11:08.46

>>638
アニメgifがサポートされた。パンチラgifがパンチラするのがうれしい。

**名無しさん＠お腹いっぱい。** · 2013/03/14(木) 21:58:06.24

http://www.amazon.co.jp/o/ASIN/B0076ECI5I/777777778888888-22

Microsoft Office 2010

※並行輸入品（＝正規品≠海賊版）
※アカデミック版より安い

インストールはレビュー　参照

**名無しさん＠お腹いっぱい。** · 2013/03/15(金) 17:08:38.18

C-hをbackward-delete-charにしてるんだけど
24.3にしてからミニバッファだと有効にならないな

**名無しさん＠お腹いっぱい。** · 2013/03/15(金) 17:52:39.12

(keyboard-translate ?\177 ?\^h)
(keyboard-translate ?\^h ?\177)

**666** · 2013/03/15(金) 19:04:23.66

>>667
うまくいった．
ありがとうございます

**名無しさん＠お腹いっぱい。** · 2013/03/16(土) 13:41:03.82

w3m が使えなくなった

**名無しさん＠お腹いっぱい。** · 2013/03/16(土) 13:53:23.05

elispの勉強始めた
forward-sexp backward-sexpで他のこと始めた

**名無しさん＠お腹いっぱい。** · 2013/03/16(土) 14:00:48.89

elispはcommon lisp勉強してlispを少し理解したあとは勘で他人のelispを書き換えてる

**名無しさん＠お腹いっぱい。** · 2013/03/17(日) 03:15:06.66

find-grep-diredで特定のディレクトリを無視する方法が分かりません
どうすればいいのでしょうか

**名無しさん＠お腹いっぱい。** · 2013/03/17(日) 10:56:55.02

ソース見る限り find の引数文字列決め打ちしてるからそのままじゃ出来なさそうね。
find-grep-dired 自体は find の引数組み立てて find-dired に渡してるだけだから
自分で ./.git -prune -o ... みたいな引数付け加えたバージョンつくるのもありなんじゃないかな。

**名無しさん＠お腹いっぱい。** · 2013/03/17(日) 17:11:29.48

ありがとう、変数は無いんですね
作ってみます

**名無しさん＠お腹いっぱい。** · 2013/03/17(日) 21:01:37.29

Emacs が好きすぎて名字をイーマックスにしたい。
しかし名前のほうが日本風だとダサいので
フランソワ・イーマックスに改名したい。
教えて下さい。

**名無しさん＠お腹いっぱい。** · 2013/03/17(日) 21:36:22.66

今楠でどう？

**名無しさん＠お腹いっぱい。** · 2013/03/17(日) 21:47:28.52

>>672
これでどうかしら
ただ find-dired を直接呼び出した時の履歴に除外 dir がどんどん溜まってくのが使いづらいな

(defcustom find-grep-dired-ignore-directories '(".git" "RCS" "CVS" ".svn" ".hg" ".bzr")
"`find-grep-dired' で検索時に除外するディレクトリ名のリスト.")

(defvar find-dired-ignore-directories nil
"`find-dired' で検索時に除外するディレクトリ名のリスト.")

(defadvice find-dired (before ad-find-dired-ignore-dirs activate)
"`find-dired-ignore-directories' で指定されたディレクトリ以下を検索対象外にする."
(when find-dired-ignore-directories
(ad-set-arg 1
(concat " " (shell-quote-argument "(") " "
(mapconcat (lambda (d)
(format "-path \"*/%s\"" d))
find-dired-ignore-directories
" -o ")
" " (shell-quote-argument ")") " -prune -o "
(ad-get-arg 1)))
))

(defadvice find-grep-dired (around ad-find-grep-dired-ignore-dirs activate)
"`find-grep-dired-ignore-directories' で指定されたディレクトリ以下を検索対象外にする."
(let ((find-dired-ignore-directories find-grep-dired-ignore-directories))
ad-do-it))

**名無しさん＠お腹いっぱい。** · 2013/03/18(月) 06:29:04.49

grep-edit.el が使えない(grep後に編集できない)のだけど、Emacs 24 では使えないとかある?
linux版 24.1.1
Windows版 24.2.21
両方とも使えない・・・

**名無しさん＠お腹いっぱい。** · 2013/03/19(火) 13:53:24.82

画面の一番下で行が見切れてしまって困る。どうしたもんか。

- follow-modeで次のwindowには見切れている次の行から表示される。
見切れてる行から表示するにはどうしたらいいのだろうか。
- (setq scroll-step 1
scroll-conservatively 1)
として next-line していくと
見切れている行の一つ上の行に移動 -> 見切れている行が見えるようにスクロール
の繰り返し。同時にやって欲しいのだけど・・・
(pointが移動しているか否かを調べてもう一回next-lineするというのでいけそうだけど、
もっと単純な設定はないものだろうか。)

**名無しさん＠お腹いっぱい。** · 2013/03/19(火) 23:13:52.79

>>678
wgrepはどうですか？

**名無しさん＠お腹いっぱい。** · 2013/03/20(水) 00:32:48.47

org-mode で IMAP なメールを org-store-link したいと思ってます。

たとえば Gnus で Gmail の INBOX に届いたメールを org-store-link してキャプチャすることはできるんですが、キャプチャした後にそのメールをアーカイブすると org-store-link したリンクが切れてしまいます。

なにかうまい回避策はあるでしょうか?

All Mail フォルダにはすべてのメールがあるので、そこからメールを探して org-store-link してもいいのですが、INBOX に来たメールを All Mail から探すのが二度手間なのでもっと手軽にやる方法はないかと。

**名無しさん＠お腹いっぱい。** · 2013/03/20(水) 09:35:16.90

そんなに横文字使ってハイカラぶって質問されてもわからん。
次からは横文字を使わらずに自分の言葉で質問して下さい。

**名無しさん＠お腹いっぱい。** · 2013/03/20(水) 09:40:30.80

orgモードってそんなこともできるのか・・・
アーカイブするタイミングとかでフックかけてリンク書き換えとかだと力技になりそうだけど

**名無しさん＠お腹いっぱい。** · 2013/03/20(水) 14:17:46.85

>>680

wgrep で出来ました。
ありがとう。

でも、なんで grep-edit はダメなんだろう・・・

**名無しさん＠お腹いっぱい。** · 2013/03/20(水) 18:43:57.06

common lispスレにかいたらこっちで聞いてくださいっていわれたので質問します。

value に格納されている文字列

"hogehoge 'abc' 1112 'def'999 'ghi'"
でクオーテーションで囲まれている部分を$(数字) で置き換えて
"hogehoge $(0) 1112 $(1)999 $(2)"
という風にしたいのですが

"hogehoge $(0) 1112 $(0)999 $(0)"
となってしまいうまくいきません

(let* (
(value "hogehoge 'abc' 1112 'def'999 'ghi'")
(pattern "\$'[^']*'\$")
(eval-value value)
)
(setq eval-value (replace-regexp-in-string pattern (format "$(%d)" 0) eval-value nil nil 1))
(setq eval-value (replace-regexp-in-string pattern (format "$(%d)" 1) eval-value nil nil 1))
(setq eval-value (replace-regexp-in-string pattern (format "$(%d)" 2) eval-value nil nil 1))
)
１回目のreplace～で全て$(0)になってしまい、引数が↓のときとおなじ結果になってしまいます。
(replace-regexp-in-string pattern (format "$(%d)" 0) eval-value)

これってどうすればいいんでしょうか？

**名無しさん＠お腹いっぱい。** · 2013/03/20(水) 19:17:12.98

replac-regexp-in-string だとマッチを一気に置き換えちゃうから，
string-match と replace-match で1個ずつ置き換えればいいんじゃない？

**名無しさん＠お腹いっぱい。** · 2013/03/20(水) 19:32:12.25

こんな感じかね．インデントないと超読みにくいな

(let* ((value "hogehoge 'abc' 1112 'def'999 'ghi'")
(pattern "'[^']*'")
(eval-value value)
(start 0)
(cnt 0))
(while (string-match pattern eval-value (min start (length eval-value)))
(setq start (match-end 0))
(setq eval-value (replace-match (format "$(%d)" cnt) nil nil eval-value))
(setq cnt (1+ cnt)))
(message "String \"%s\" is replaced to \"%s\"" value eval-value))

**名無しさん＠お腹いっぱい。** · 2013/03/20(水) 19:47:12.46

(let* ((value "hogehoge 'abc' 1112 'def'999 'ghi'")
(pattern "'[^']*'")
(cnt 0)
(eval-value
(replace-regexp-in-string pattern
(lambda (m)
(prog1
(format "$(%d)" cnt)
(setq cnt (1+ cnt))))
value)))
eval-value)

**名無しさん＠お腹いっぱい。** · 2013/03/21(木) 02:09:25.89

ありがとう。試してみます。

**名無しさん＠お腹いっぱい。** · 2013/03/21(木) 23:30:04.14

やっと24.3のWindows版バイナリがアップされたんで使ってみたけど、
DiredでシンボリックリンクがUnix版のように→が表示されるのは
かなりうれしい。
あと、w32-shell-executeもやっとエラーが起きなくなったな。

ツールバーはいつも非表示だけど、試しに表示してみたらやっぱりダサかった。

**名無しさん＠お腹いっぱい。** · 2013/03/22(金) 15:23:09.73

あの、EmacsとFirefox or Safariとの切り替えを最小限で行いたいのですが、何か良い方法はないでしょうか？
Mac OS Xを使っていてCommand+Tabでてきるのですが、他のソフトを開いている時はそれらをまたいでカーソルを動かしたい分だけタブキーを押す事になるので、何かもっと直にEmacs とFirefoxやその他のブラウザを最小限のタイプで行ったり来たりを行いたいです。

よろしくお願いします。

**名無しさん＠お腹いっぱい。** · 2013/03/22(金) 15:26:53.73

それはどっちかって言うと OS X スレで聞いたほうがいいのでは。

**名無しさん＠お腹いっぱい。** · 2013/03/22(金) 21:06:06.82

>> 691
Alfred

**名無しさん＠お腹いっぱい。** · 2013/03/23(土) 19:47:08.34

iPhone 用の MobileOrg を App store で探したのですが見つからんです。
ひょっとしてまた「temporarily removed」なんでしょうか。

スレチっぽいんですが、iPhone系の板で聞くと禿しくスルーされそうなのですいませんです。

**名無しさん＠お腹いっぱい。** · 2013/03/23(土) 21:06:25.17

emacs-24.3で、cp5022x.el使えてる人いますか？

**名無しさん＠お腹いっぱい。** · 2013/03/23(土) 23:24:06.71

>>685
新Emacsの強力な置換機能を使いこなす - ZDNet Japan
http://japan.zdnet.com/development/analysis/20350805/

**名無しさん＠お腹いっぱい。** · 2013/03/24(日) 00:55:08.38

emacs-lispで質問です

funcallについてですが

(funcall '+ 1 2)
はおｋなのに
(funcall 'and t nil)
がだめなのはなぜでしょう？

**名無しさん＠お腹いっぱい。** · 2013/03/24(日) 01:15:19.95

>>697
and は関数じゃなくスペシャルフォームだからじゃない？

関数の場合は引数が全て評価されるけどスペシャルフォームは必ずしも評価されるとは限らない。
and の場合は途中の引数が偽の時点で後のものは評価されない。

**名無しさん＠お腹いっぱい。** · 2013/03/24(日) 01:45:33.34

>>695
24.3 で CJK 含んだ UTF-8 encoding のファイルが開けないのはそのせい? 24.2 だと問題なし。

**695** · 2013/03/24(日) 09:58:31.06

>>699
> >>695
> 24.3 で CJK 含んだ UTF-8 encoding のファイルが開けないのはそのせい? 24.2 だと問題なし。

あー、やっぱりそうですか。急に仕様が変わるなんて。。

**名無しさん＠お腹いっぱい。** · 2013/03/24(日) 10:22:24.69

>>691
http://news.livedoor.com/article/detail/6854669/
http://news.mynavi.jp/articles/2012/08/14/tips/index.html

**名無しさん＠お腹いっぱい。** · 2013/03/24(日) 12:49:03.69

>>691
「Mac ワークスペース」でググったら Spaces ってのがみつかった。
Mac持ってないから使い勝手がいいのか悪いのかはわからない。

もしも、「ワークスペース」って単語に馴染みがなかったら
「UNIX ワークスペース」や「Linux ワークスペース」でググるといい。

**名無しさん＠お腹いっぱい。** · 2013/03/24(日) 13:49:44.97

>>691
俺は mission control を option + カーソルにあてて
Emacs の隣の画面に firefox 置いてる

**名無しさん＠お腹いっぱい。** · 2013/03/24(日) 15:28:11.46

>>694
ちょくちょく確認するけど最近は見つからないな．
iOSのバージョンアップに合わせて再インストールしたときに消えた覚えがあるので
バージョン間の不具合のまま放置じゃないか

**名無しさん＠お腹いっぱい。** · 2013/03/24(日) 15:40:55.19

emacs 24.1.1 + helm 環境で、helm-migemo が使えない。

helm-occur 実行時に (require 'helm-migemo) してると、occur の
結果が出力されない・・・

だれか情報持ってませんか?

**名無しさん＠お腹いっぱい。** · 2013/03/24(日) 16:38:47.63

>>705
https://github.com/emacs-jp/emacs-jp.github.com/issues/30

**名無しさん＠お腹いっぱい。** · 2013/03/24(日) 18:36:21.69

>>706
情報ありがとうございます。

見てみましたが、私の環境で起きてる問題は
(setq helm-use-migemo nil)
でも発生するので、どうも違う気がします。

**名無しさん＠お腹いっぱい。** · 2013/03/25(月) 11:30:33.74

>>704
やっぱりそうすか orz
org-mode 連携するなら泥のほうがよさそうなきがしてｷﾏｽﾀ

**名無しさん＠お腹いっぱい。** · 2013/03/26(火) 22:11:41.22

org-modeで表を編集するとき、特定の列だけを置換対象にできないでしょうか？

**672** · 2013/03/27(水) 05:26:50.34

>>677
ありがとうございます！
履歴は command-history 弄ればいいのかな

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 05:48:31.13

>>709
cua-mode で cua-replace-in-rectangle したらどうかね．
cua-mode を有効にして，C-RET して矩形選択して M-r でどうぞ

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 08:10:14.67

>>711
ありがとうございます！　大変助かりました。
プレーンテキストで表を編集したくて、慣れないemacsと格闘してます。。。

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 08:18:08.07

すなおにexcel使えよ

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 09:02:22.26

最近emacsをはじめたものですが、
色々奥が深くて勉強してます。
質問ですが、下記のisearch-occurというものが
便利で使わせております。
これだと上下になるのですが、
検索結果を左右に表示させるにはどのようにすればよいの
でしょうか？
ザウルス　＋　emacs 22.1を使っております。

(defun isearch-occur ()
"Invoke `occur' from within isearch."
(interactive)
(let ((case-fold-search isearch-case-fold-search))
(occur
(if isearch-regexp
isearch-string (regexp-quote isearch-string)))))
(define-key isearch-mode-map (kbd "C-o") 'isearch-occur)

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 16:37:31.42

>>714
replace.el の occur-1 のあたりを見てるんだけど、
display-buffer-overriding-action をsplit-window-right してから開くようにしてやればいけるかな
とか思うけど window周りはめっさハマりそうなんでちょっとたんま。

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 17:02:13.11

ちょっと大仰だけど popwin なんかだとバッファの種類によって右に開くとか上に開くとか指定できるね。
もっとも Emasc 22.1 では動かないような気がする。

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 17:33:57.51

emacs24様子見。

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 17:50:56.14

>>716
popwin is tested under GNU Emacs 22 or later.
一応こう書いてあるよ、試してないけど

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 18:13:03.23

最近Emacs始めたんなら24使うべきだと思うな。
様子見してても代替策なんて出てこないだろうし。

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 18:26:37.22

ttps://github.com/browse-kill-ring/browse-kill-ring/blob/master/browse-kill-ring.el

複数バッファを表示している状態で，browse-kill-ringを使うと，
バッファが一つになってしまうのですが，
設定で複数のバッファを表示した状態を維持できるでしょうか。

環境は，Mac OS X 10.8 + Emacs 24.2です。

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 18:43:38.17

>>720
使ってないから試してないけど、ソースよむ限りだとこうするとよさげ。

(setq browse-kill-ring-quit-action 'save-and-restore)

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 19:26:18.64

むしろリナザウ未だに使ってる人がいるのに驚きだ
24ちゃんと動くんだろうか

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 19:30:06.99

白井さん現役復帰したらしいからtwitterで@moepandaに聞いてみるとかw
もう使ってないかなー。やっほー白井さん。

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 20:11:15.19

ttp://twitpic.com/carpx2

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 20:46:48.27

このurlからh抜くやつってなんなの？おっさんなの？

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 20:51:07.65

このスレには女子中学生しかいないよ

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 21:19:20.43

Emacs24は、co5022x.elは不要？

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 21:19:44.94

>>725
消えろガキ

**727** · 2013/03/27(水) 21:21:08.30

s/co5022x/cp5022x/

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 21:35:55.26

2chのプロはh抜くんだぜかっけーだろ。

キター！禿同今北産業ｋｗｓｋ

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 21:44:04.14

昨今のweb事情から考えても抜く方が頭悪い。頭腐ってる。

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 21:52:58.43

>>731
遺体香具師だな逝ってよし。

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 22:48:25.70

web事情()

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 22:56:53.63

>>722
24は動きが緩慢で22に戻してます。
まだまだザウはなかなか手放せない状態です。
予備機もあるし...
小さい画面で一覧性が悪いのがやや不満ですが、
そういう意味でも横並びになればと思ってます。

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 23:09:10.17

>>734
動くらしいしpopwinためしてみたら？
設定がらみはぐぐると出てくると思う

**名無しさん＠お腹いっぱい。** · 2013/03/27(水) 23:45:20.13

>>735
ちょっと調べて見ます。
popwin...奥深さに興味津々なのですが、
過去にメモったものを見るのに
emacsで少し便利さを感じてます。

**名無しさん＠お腹いっぱい。** · 2013/03/30(土) 17:30:46.65

lispで質問です。
以下が意図通り動いてくれません。

初回USERには"debu"が入っているとします。
以下をscratchで評価
(progn
(let (
(process-environment process-environment)
)
(print (getenv "USER"))
(print (setenv "USER" "hage"))
)
(print (getenv "USER"))
)

意図する挙動は
debu
hage
debu
です。

しかし実際は
debu
hage
hage
でした。
マニュアルにもletでbindしておｋとかかいてあったのになんででしょう？？

**名無しさん＠お腹いっぱい。** · 2013/03/30(土) 17:41:09.01

自己解決
(process-environment (copy-tree process-environment))
でいけました。