レス数が950を超えています。1000を超えると表示できなくなるよ。

Emacs part3

[464:初心者代表 (02/01/15 16:22)]
(sort '(3 5 4) '>)
これ評価してみ

[465:教えてください！ (02/01/15 16:30)]
＞４６４
関数としてsortを定義するとどうなりますか？
（defun sort ・・・）という感じでおしえてもらえないでしょうか？

[466:初心者代表 (02/01/15 16:45)]
それ大学のレポートかなにか？

(defun mysort (foo)
(interactive)
(sort foo '>)
)

[467:名無しさん＠お腹いっぱい。 (02/01/15 16:47)]
ﾏﾙﾁｳｻﾞｲ…とか言ってみるテスト。

[468:タカノ (02/01/15 16:50)]
レポートっぽいね。宿題は自分でやろうね、厨房君。
sortはbuilt-inだけれど、sourceを読めば示唆が得られないこともないだろう。

DEFUN ("sort", Fsort, Ssort, 2, 2, 0,
doc: /* Sort LIST, stably, comparing elements using PREDICATE.
Returns the sorted list. LIST is modified by side effects.
PREDICATE is called with two elements of LIST, and should return t
if the first element is "less" than the second. */)
(list, predicate)
Lisp_Object list, predicate;
{
Lisp_Object front, back;
register Lisp_Object len, tem;
struct gcpro gcpro1, gcpro2;
register int length;

front = list;
len = Flength (list);
length = XINT (len);
if (length < 2)
return list;

XSETINT (len, (length / 2) - 1);
tem = Fnthcdr (len, list);
back = Fcdr (tem);
Fsetcdr (tem, Qnil);

GCPRO2 (front, back);
front = Fsort (front, predicate);
back = Fsort (back, predicate);
UNGCPRO;
return merge (front, back, predicate);
}

[469:名無しさん＠Ｅｍａｃｓ (02/01/15 17:15)]
>>460
それって、そんなに重要なことですか？
auto-fill で十分じゃない？

[470:教えてください！ (02/01/15 18:37)]
>466 >468
はい、そうです。すいませんが、できたら、carとかcdrとか使ったプログラム
ってありますか？

[471:名無しさん＠Ｅｍａｃｓ (02/01/15 18:54)]
>>469
長い行を長いままで編集したいんでしょ。
auto-fillじゃ短く整形されちゃうじゃん。
で、どうすればいいのか、おれも知らん。

[472:461 (02/01/15 21:17)]
>>462
これって、そのためにあったのね。
(add-hook 'dired-mode-hook
(lambda ()
(make-local-variable 'process-environment)
(setenv "LANG" "C")))
で解決しました。
ありがとうございました。

[473:名無しさん＠お腹いっぱい。 (02/01/15 21:31)]
禿遅レスだが、
>>443 elisp初心者は、とりあえず、
ftp://ftp.ascii.co.jp/pub/GNU
ここのintroな。で、elisp manualもな。

read.cgi ver5.26+ (01/10/21-)