Emacs Part 43

**名無しさん＠お腹いっぱい。** · 2013/06/09(日) 14:05:32.09

語り合いましょう。

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

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

Emacsのトラノマキ | 検索結果: | ありえるえりあ
http://dev.ariel-networks.com/wp/?s=Emacs%E3%81%AE%E3%83%88%E3%83%A9%E3%83%8E%E3%83%9E%E3%82%AD

前スレ
EmacsPart42
http://toro.2ch.net/test/read.cgi/unix/1356319580/

**名無しさん＠お腹いっぱい。** · 2013/09/25(水) 08:45:35.15

>>456

>通常のテキストファイルに elisp を付属させて、必要に応じて
>eval-last-sexp で簡単に処理したり

あー、これオレもよくやったわ。
シェルスクリプトだとどこに置いたかすぐに忘れてしまって、何ヶ月後かに似たようなことするときに探せないんだけど、
こうしとくと、その手のテキストを探すだけですむ。その場しのぎだとかなり該当率高いし。

**名無しさん＠お腹いっぱい。** · 2013/09/25(水) 08:47:58.57

ニワカの{エディタ|言語|GUI|OS|自作マシン}談義ほどつまらんものはないわ

**名無しさん＠お腹いっぱい。** · 2013/09/25(水) 08:56:45.98

>>477
人が作ったelispを使うだけなら、そんな感じなのも理解できまつ。

でも、ひとたび自分で elisp を書き出すとLisp脳で考えるのがフツーになって、シェルスクリプト書くのがめんどくなる。
末期的には、前に書いた elisp を find-file して、ちょこっと手直しして eval-buffer して終了、みたいなことが結構あるんだなこれが。
場合によってはキーボードマクロ使うより速いし。

**名無しさん＠お腹いっぱい。** · 2013/09/25(水) 09:11:08.80

>前に書いた elisp を find-file して、ちょこっと手直しして eval-buffer して終了、みたいなことが結構あるんだなこれが。

そういうことすっからオレの.emacsが手の施しようのない魔境になっちゃってるんだろうがっ！TT

**名無しさん＠お腹いっぱい。** · 2013/09/25(水) 13:18:14.51

よしよしここはおじさんが

**名無しさん＠お腹いっぱい。** · 2013/09/25(水) 16:16:55.22

>>481
なんで.emacsが関係あるんだ？いみわからずー

**名無しさん＠お腹いっぱい。** · 2013/09/25(水) 17:26:40.54

scratch バッファが一番使用率高くなってくる

**名無しさん＠お腹いっぱい。** · 2013/09/25(水) 21:42:31.13

scratch バッファみたいに保存されないところに作業内容を記録する気にはならんな。

**名無しさん＠お腹いっぱい。** · 2013/09/25(水) 21:47:56.56

保存されるようにすればいいのだ

**名無しさん＠お腹いっぱい。** · 2013/09/25(水) 23:29:01.83

アイドル時に勝手に保存されるようにして再起動してもレジュームするようにしてるよ
しょうもない書き捨て .el ファイルが量産されなくなってすっきり

**名無しさん＠お腹いっぱい。** · 2013/09/25(水) 23:41:03.31

保存したければscratch.elをひとつ作っておくのが筋ではなかろうか
保存されないのが*scratch*さんのいいところだろうに

**名無しさん＠お腹いっぱい。** · 2013/09/26(木) 00:59:20.10

>>487
同じくです。
最初はそれ用の el を適当に拾ってきてそのまま使ってたんだけど
ある日突然 *scratch* がまっさらになって真っ青になったｗ

**名無しさん＠お腹いっぱい。** · 2013/09/26(木) 08:30:24.97

>>487
できればそのelispを晒してほしいでごわす

**名無しさん＠お腹いっぱい。** · 2013/09/26(木) 10:15:47.08

>>490
487じゃないけれど
でらうま倶楽部 : [Emacs]スクラッチバッファを自動保存したり行末コメントをまとめて削除したりな小粒マクロ集
http://blog.livedoor.jp/tek_nishi/archives/3714842.html
これとrun-with-idle-timerを組み合わせればできると思う

**名無しさん＠お腹いっぱい。** · 2013/09/26(木) 11:53:06.25

そこまでelisp書く機会が思い付かない
ちょっとしたelispってどんなことをやってるのか教えてほしい

**名無しさん＠お腹いっぱい。** · 2013/09/26(木) 12:12:49.99

>>490
はい
http://pastebin.com/y1cgxu7s

kill-buffer 出来なくしたり write-buffer した時に scratch バッファを再作成したりってのもどっかにおちてたけど
別名作ったり複数作ったりする時の完全なやり方が思いつかなかったからそっちは消しちゃった

**名無しさん＠お腹いっぱい。** · 2013/09/26(木) 12:54:27.88

>>490です。

ありがとうございました。
何気に、util:aif マクロがいい感じです。

(if (buffer-file-name)
(find-file (buffer-file-name))
(message "このバッファはファイルじゃないでつ"))

とか頻繁に書いていたのですが、こういうマクロを書けばよかったんですね。勉強になりますた。

**名無しさん＠お腹いっぱい。** · 2013/09/26(木) 13:51:39.03

マクロいうてるのがdefmacroの話してるんだかkbd-macroの話してるんだかもっと他の話してるんだかワカンネ

**名無しさん＠お腹いっぱい。** · 2013/09/26(木) 15:24:17.52

>>494
aif は On Lisp に載ってるメジャーなマクロシリーズなのでこっちも読んでみてね！
http://www.asahi-net.or.jp/~kc7k-nd/onlispjhtml/anaphoricMacros.html

**名無しさん＠お腹いっぱい。** · 2013/09/26(木) 16:12:57.48

>>496
なんと、元は On Lisp のアナフォリックマクロでしたか。

すっかり本棚の肥やしとなっていたので、この機会に読み直しまつ！
グレアム先生、野田先生、ごめんなさい。

**名無しさん＠お腹いっぱい。** · 2013/09/26(木) 22:19:51.81

まだ現象の切り分けもしていないからクレクレ状態で済まないんだけれど、
auto-complete (今週頭にgithabからもらってきたもの) で、c++, cのファイルの末尾に、
ふと気が付くと改行が連続して入っているという現象について、なにか知っている人はいるかな

c/c++のファイルについては、セーブするときに行末の空白とファイル末尾の改行コードを
削除するようにしているから実用上は困ってないんだけど、結構気になるんで何か知っていたら教えてクレクレ

popupしたときに表示領域を確保するために改行コードを一時的につけているんじゃないかということは、
以前から使っているバージョンでも思ってはいる

**名無しさん＠お腹いっぱい。** · 2013/09/27(金) 00:49:02.94

>>492
SJISのソースコードにUTF-8の文字列を書かなくちゃいけなくなった時に、
"日本語"ってソースに書いてリージョン選択してコマンド実行すると
↓
static const char data[] = {
　　0xe6, 0x97, 0xa5, 0xe6, 0x9c, 0xac, 0xe8, 0xaa, 0x9e, 0x00
};
って変換するelispを書いた時はかなり役に立った。

**名無しさん＠お腹いっぱい。** · 2013/09/27(金) 02:12:32.36

そのコード貼ってもええのんやねんでんで

**名無しさん＠お腹いっぱい。** · 2013/09/27(金) 05:57:03.11

>>499
おいどんも、コードを貼ってくれることを
希望するでごわす。

**名無しさん＠お腹いっぱい。** · 2013/09/27(金) 08:38:55.20

>>499
高校二年女子です。
わたしからもお願いします。

**名無しさん＠お腹いっぱい。** · 2013/09/27(金) 10:09:23.52

しかたないにゃあ・・・

**名無しさん＠お腹いっぱい。** · 2013/09/27(金) 12:49:19.21

gccのバージョンによって設定を場合分けしたくてこのように書いたんですが
全て"4"と出力されてしまいます
どこが間違っているのでしょうか

(setq debian-x86-64 "")
(setq ubuntu-x86-64 "")
(setq g++ver (shell-command-to-string "g++ -v"))

(defun case-test (value)
(case value
(debian-x86-64 "1")
(ubuntu-x84-64 "2")
(g++ver "3")
(t "4")))

(message (case-test debian-x86-64))
(message (case-test (shell-command-to-string "g++ -v")))
(message (case-test "sklfj"))

**名無しさん＠お腹いっぱい。** · 2013/09/27(金) 15:16:02.54

caseを使ってるとこが

**名無しさん＠お腹いっぱい。** · 2013/09/27(金) 17:40:50.49

ミニバッファまわりのキーバインドってなんでああも治外法権状態なん？
「お前のglobal-mapなんぞ知るかボケェ！」な奴多すぎだろ

**名無しさん＠お腹いっぱい。** · 2013/09/27(金) 18:45:05.19

>>504
高校二年女子です。

まずは、case-test関数をedebug-defunして、ご自分のされていることを確認されたほうがよろしいかと思います。
それと、'g++ -v'そのままではなく、regexで引っ掛ける等しないと、このままではどうしようもないかと。

**名無しさん＠お腹いっぱい。** · 2013/09/27(金) 19:33:07.95

g++ -vよりg++ --versionの方が一行目にバージョンが来るからいじりやすいと思う

**名無しさん＠お腹いっぱい。** · 2013/09/27(金) 19:52:23.40

>>507
501のエセ薩摩人です。

499氏がコードを貼り付けなかったら
おいどんと付き合ってください。

**名無しさん＠お腹いっぱい。** · 2013/09/27(金) 23:01:26.08

>>504
>>505が言っているようにcondを使えばよろし
そういう形で分岐したいならこうかな

(defmacro cond-case (value &rest body)
(lexical-let* ((cand (gensym))
(result (gensym)))
`(loop for (cand result) in (quote ,body)
do (when (and (symbolp cand)
(or (equal (symbol-value cand) ,value)
(equal (symbol-value cand) t)))
(return result)))))

(defun case-test2 (value)
(cond-case value
(debian-x86-64 "1")
(ubuntu-x86-64 "2")
(g++ver "3")
(t "4")))

(message (case-test2 debian-x86-64))
(message (case-test2 (shell-command-to-string "g++ -v")))
(message (case-test2 "sklfj"))

**名無しさん＠お腹いっぱい。** · 2013/09/28(土) 07:24:23.71

>>509
47歳男子です。
ありがとうございます。今後ともどうぞよろしくお願い致します。

**名無しさん＠お腹いっぱい。** · 2013/09/28(土) 11:46:59.29

>>510
マクロのパワーを見せつけられました。

中2女子の私がこのような達人級のコードを書けるようになるには、何をすればよろしいのでしょうか？
まず服を脱ぐのは無しの方向で、お願いします。

**名無しさん＠お腹いっぱい。** · 2013/09/28(土) 12:18:52.46

まずスク水を着ます

**名無しさん＠お腹いっぱい。** · 2013/09/28(土) 12:27:59.85

服は着たままスク水着るのか

**504** · 2013/09/28(土) 13:39:46.00

ありがとうございます
emacs lisp勉強します

**名無しさん＠お腹いっぱい。** · 2013/09/28(土) 15:22:38.81

512に　emacs
のヘルプのここを見ろというレスは付かないのかな?

**名無しさん＠お腹いっぱい。** · 2013/09/28(土) 15:38:34.81

>>512

Emacs というより、まずはこんなのかな。

http://www.aoky.net/articles/paul_graham/int.htm

**名無しさん＠お腹いっぱい。** · 2013/09/28(土) 16:30:54.44

>>512

エセ薩摩人です。
>まず服を脱ぐのは無しの方向で、お願いします。
では、お口でお願いし ... (/ω＼)ｲﾔﾝ

ところで本題だが EmacsLisp に限ったことではないが
プログラミングの上達のコツは
　a.自分が欲しい機能をリファレンスを読みながらでも作成してみる
　b.他人が書いたコードを読む（初めは少々短めがお勧め）
あたりかな。

>>516
http://www.emacswiki.org/emacs/EmacsLisp%E3%83%AA%E3%83%95%E3%82%A1%E3%83%AC%E3%83%B3%E3%82%B9

**名無しさん＠お腹いっぱい。** · 2013/09/28(土) 19:28:33.77

Webカメラがクラックされると簡易的な地獄が顕現しそうなスレだ

**499** · 2013/09/29(日) 01:20:21.88

(defun util-encode-region-utf8 ()
(interactive)
(save-excursion
(let ((beg (region-beginning))
(end (region-end)))
(end-of-line)
(insert "\nstatic const char data[] = {\n\t")
(mapc #'(lambda (x) (insert (format "0x%02x, " x)))
(encode-coding-region beg end 'utf-8 t))
(insert "0x00\n};"))))

**名無しさん＠お腹いっぱい。** · 2013/09/29(日) 03:13:57.14

>>520
わーいありがとう！
姉も喜んでます

**エセ薩摩人** · 2013/09/29(日) 06:57:21.56

>>520
わーいありがとう！
おいどんのチン●も喜んでます

**名無しさん＠お腹いっぱい。** · 2013/09/29(日) 09:34:03.32

エセ薩摩人さん、ついにコテハン化ｗ

**名無しさん＠お腹いっぱい。** · 2013/09/29(日) 09:57:01.09

>>522
簡潔に書き直せば、こんな感じになりそうだね。

(defun util-encode-region-utf8 (b e)
(interactive "r")
(save-excursion
(let ((s (concat (buffer-substring b e) "\0")))
(end-of-line)
(insert
"\nstatic const char data[] = {\n\t"
(mapconcat #'(lambda (x) (format "0x%02x" x))
(encode-coding-string s 'utf-8)
", ")
"\n};"))))

**524** · 2013/09/29(日) 10:05:19.46

>>522 でなくて >>520 だったよw
>>520->>522 で笑って、手元が狂ってしまったよw

**名無しさん＠お腹いっぱい。** · 2013/09/29(日) 10:43:12.76

>>520
おおきに

**510** · 2013/09/29(日) 15:01:35.14

>>504
>>510はおかしいところがいくつかあったので修正するよ　ついでにもうちょっと汎用的にしてみた
(require 'cl)
;; http://www.gigamonkeys.com/book/macros-defining-your-own.html
(defmacro with-gensyms (names &rest body)
`(let ,(loop for n in names collect `(,n (gensym)))
,@body))

(defmacro cond-case (value &rest body)
(with-gensyms (cand result x)
`(loop for (cand result) in (quote ,body)
when (symbolp cand) for x = (symbol-value cand)
else for x = cand
when (member x `(,value t))
return result)))

(defun case-test2 (value)
(cond-case value
(123 "aaa")
("hoge" "bbb")
(debian-x86-64 "1")
(ubuntu-x86-64 "2")
(g++ver "3")
(t "4")))

(message (case-test2 123))
(message (case-test2 "hoge"))
(message (case-test2 debian-x86-64))
(message (case-test2 (shell-command-to-string "g++ -v")))
(message (case-test2 "sklfj"))

>>512 defmacroはon lispが、loopマクロはland of lispがわかりやすいよ emacs lispレファレンスだけだど慣れるまで時間がかかるかも

**名無しさん＠お腹いっぱい。** · 2013/09/29(日) 18:32:16.02

loop の中身がLISPに見えない件ｗ

**名無しさん＠お腹いっぱい。** · 2013/09/30(月) 02:22:05.16

>>528
Boost Spirit も似ている気がする。
言語仕様を上手く使って別言語の世界を作り出している。

Loop言語はマスターするとElispが非常に短くかけるし、
マクロなんでバイトコンパイルすれば速度処理もない。

**名無しさん＠お腹いっぱい。** · 2013/09/30(月) 07:14:53.59

Spiritはコンパイルするのがイヤになる

**名無しさん＠お腹いっぱい。** · 2013/09/30(月) 08:05:41.61

>>529
>Loop言語は

！！！
loop はDSLだと思えばよかったのですね。その発想はなかったです。

**名無しさん＠お腹いっぱい。** · 2013/09/30(月) 12:48:36.98

loop 好きだけどアンチも多いらしい

**名無しさん＠お腹いっぱい。** · 2013/09/30(月) 15:11:53.81

デバッグが必要になった場合の手間考えると、展開結果が複雑になるようなマ
クロは使わない方が得策だと思う。

**名無しさん＠お腹いっぱい。** · 2013/09/30(月) 15:30:40.24

そのマクロが正しく動くことが保証されてたら大丈夫じゃない?

**名無しさん＠お腹いっぱい。** · 2013/09/30(月) 16:21:25.84

Emacs でマクロ否定って Emacs を否定してるようなもんじゃん。
Editor MACroS なめんなよ。

**名無しさん＠お腹いっぱい。** · 2013/09/30(月) 17:01:41.30

elispのloopマクロで面白いものがあれば知りたい

**名無しさん＠お腹いっぱい。** · 2013/09/30(月) 17:06:46.61

>>535
マクロ違い

**名無しさん＠お腹いっぱい。** · 2013/10/01(火) 08:43:04.22

これの6章にediting macrosについて書いてある
http://haleakala-avenue.style.coocan.jp/lealea/

**名無しさん＠お腹いっぱい。** · 2013/10/01(火) 08:47:34.26

>>536
Common lispのloopマクロをelispで動くようにしたものなんだよね
Land of Lisp 10章のLoopマクロ周期表がおすすめ

**名無しさん＠お腹いっぱい。** · 2013/10/01(火) 09:52:35.10

ANSI Common Lisp によるとだな
規格でも loop は定義しきれてないってさ
実際 sbcl で動く loop が clisp でコケたりする

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

http://orgmode.org/worg/exporters/ox-overview.html
ここにあるox-texinfoを使って.org->.texiに、
さらにtexi2htmlで.texi->.htmlに変換したら
元の.orgで#+authorで設定していたその設定が失われてしまうようで
This document was generated by *PC-name\user-name* on October 1, 2013 using texi2html 1.82
となってしまいます
.org->.htmlであれば問題なくauthor情報が引き継がれているのですが、どうすれば引き継げるのでしょうか

orgファイルはこう書いています
#+TITLE: Org-mode test
#+AUTHOR: test-name

* hello

- world

**名無しさん＠お腹いっぱい。** · 2013/10/01(火) 17:04:44.91

>>541
> This document was generated by *PC-name\user-name* on October 1, 2013 using texi2html 1.82

それで正しいのだと思うが

**名無しさん＠お腹いっぱい。** · 2013/10/01(火) 17:32:22.04

>>538
こんなのがあったとは。
RMS信者の私はただいま絶賛感動中です。

**名無しさん＠お腹いっぱい。** · 2013/10/01(火) 22:48:31.45

>>504
なんだかすごいことになっているような気もするが
君がやりたいことへの最短距離は cond を使うことだと思うぞ

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 00:38:41.21

サルでも完全理解loopマクロ講座を誰か書いてくれ

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 07:08:14.10

case に関連して、

ttp://wisdom.sakura.ne.jp/programming/lisp/clisp11.html

ここの最後、

「記号を直接指定すると、記号が評価されてしまうということに注意しなけれ
ばなりません。そのため、リストに記号を指定するか、quote や ' によって明
示的に記号型の値そのものを与えなければならないのです。」

って本当ですか？誰か common lisp に詳しい人教えて。

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 08:22:39.45

記号tやnilは直接指定すると
tはotherwiseにnilは空リストに解釈されてしまうから、
tやnilと直接比較したい場合には
クォートするかリストにいれる必要があるよって意味じゃないの？
tやnilじゃなければシンボルは評価されないと思うけどね

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 09:28:13.09

>>545
Common Lisp loop でぐぐればいろいろある

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 12:47:25.54

まったく、いつになったらEmacsは縦書に対応してくれるのか！
Emacs18 の頃から待ってるのに。ぷんぷん！

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 13:14:23.42

縦書きelispってあったような。

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 13:19:49.61

>>549
必要なら自分で作るんだ。
Mule拡張もそうだった。

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 13:22:44.27

縦書って書いたり閲覧したりするときだけ縦で
テキストデータ自体は他と変わらないみたいな感じがいいのかね

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 15:43:25.51

縦表示ってことだろうね。

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 21:04:50.16

>>542
そうですか　スレ汚し失礼しました

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 21:22:21.87

save時の処理が重くなっているようなのですが、
関連するhookを確認するにはどこを見ればよいのでしょう？

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 21:30:44.58

caseはちょっとわかりにくいよね
わからないうちはちょっと冗長だけどつねにcondを使っておけばいい
elispじゃcondがネィティブでcaseはcommon lisp互換マクロだし

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 21:43:06.70

>>555
参考になるかわからんけどこのへんかね？
http://www.gnu.org/software/emacs/manual/html_node/elisp/Saving-Buffers.html

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 22:01:11.53

リアルな話になってしまうが正直コモリプは糞だと思っている。

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 23:01:05.52

ローカル関数すら無いどっかの超絶糞言語に比べればはるかにマシ

**名無しさん＠お腹いっぱい。** · 2013/10/02(水) 23:23:58.73

>>559
チューリングマシンの悪口はやめて下さい。

**名無しさん＠お腹いっぱい。** · 2013/10/03(木) 06:13:05.57

>コモリプ
ないわ
ないないない

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

(load-theme 'wombat t)
と設定しているのですが，lookupの中だけテーマを変えるには
どうしたらよいでしょうか。
外字が黒文字なので見難くなってしまいます

**名無しさん＠お腹いっぱい。** · 2013/10/03(木) 08:21:08.56

lookupって？

**名無しさん＠お腹いっぱい。** · 2013/10/03(木) 09:06:40.73

load-theme使ってないからよくわからんが、enable-themeとかで切り替えはできるみたいだけど、
バッファ毎に変更なんてできるのかね？

theme切り替えるんじゃなくて、
lookupの外字のfaceをthemeに合わせてカスタマイズとかじゃダメなん？

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

背景色をバッファ毎に変えるスマートなしくみは現状ないから無理だと思うよ。
フレーム単位なら素直にできるけど。
hiwin ってパッケージあるけどあれはオーバーレイ使って無理やり変更してる。

**名無しさん＠お腹いっぱい。** · 2013/10/03(木) 11:08:31.34

こもりぷてcommonlispのことか
しばらく考えてしまったぞ

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

org-mode のラジオターゲットってあまり使われてないんだな
リンクに飛ばないという致命的なバグにも関わらず
検索しても、日本語界隈だと全然ヒットしない

ttp://lists.gnu.org/archive/html/emacs-orgmode/2013-10/msg00105.html

要は、org.el の該当箇所に、「link」つー変数を and の直後に付け加えると直る

**名無しさん＠お腹いっぱい。** · 2013/10/03(木) 15:06:25.14

org-modeは肥大化しすぎて、もはやEmacsでやることに無理がある気がする。
このさいOmacsとして独立してほしい。

**名無しさん＠お腹いっぱい。** · 2013/10/03(木) 15:30:50.00

>>568
それいいかも
俺が emacs 使い始めた動機も org-mode だったわけで
実際今は org 除くと emacs あんまり使ってない

かつてはカスタマイズに凝った時期もあったが
やってるうちに手段と目的が逆転して、気づくととんでもなく
時間が経過してたり、ってのがバカバカしくなった

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

Emacs24.2～3辺りの comment-indent ってバグってない？
comment-colum を設定しても、コメント位置がずれるﾝｺﾞ
リポジトリの先端でも直ってないっぽいし。

手前味噌で直したからいいけど。

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

× comment-colum
○ comment-column

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

M-x compile を呼ぶとき常に C-u をつけて呼びたいんだけど
いい方法ないかな

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

(compile 4)

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

>>573　ありがとう
でも普通 M-x compile するとミニバッファに compile-command がでてリターンすると実行という流れなんだけど

(compile compile-command 4)

をキーバインドしてしまうと compile-command を
ミニバッファで編集するチャンスがなく実行されてしまうのでどうかなと思ってるんだけども

**名無しさん＠お腹いっぱい。** · 2013/10/03(木) 19:32:43.53

これかな http://stackoverflow.com/a/6156444
コメントも参照

**名無しさん＠お腹いっぱい。** · 2013/10/03(木) 22:33:03.85

>>575 ありがとう!

(defun compile-with-prefix ()
(interactive)
(let ((current-prefix-arg '(4)))
(call-interactively 'compile)))

とりあえずこれをキーバインドすることにしました。

**名無しさん＠お腹いっぱい。** · 2013/10/03(木) 23:46:07.11

独り相撲になってしまったけど

(global-set-key (kbd "s-x") '(lambda () (interactive) (execute-extended-command '(4))))

これでもいいかも C-u M-x を汎用的に使えるし