213

[0001 名無しさん＠お腹いっぱい。 NG NG]

(defun return-complementary-file-name (file-name list)
"Return complementary file name. or return nil in case of not found."
(let ((new-name nil))
(while list
(let ((ext1 (car (car list)))
(ext2 (cdr (car list))))
(if (not (null (string-match ext1 file-name)))
(progn
(setq new-name (concat
(file-name-sans-extension file-name)
(extension-from-pattern ext2)))
(if (file-exists-p new-name)
(setq list '(dummy))))
(if (not (null (string-match ext2 file-name)))
(progn
(setq new-name (concat
(file-name-sans-extension file-name)
(extension-from-pattern ext1)))
(if (file-exists-p new-name)
(setq list '(dummy)))))))
(setq list (cdr list)))
new-name))

[0002 名無しさん＠お腹いっぱい。 NG NG]

((call/cc call/cc) (call/cc call/cc))

[0003 名無しさん＠お腹いっぱい。 NG NG]

(manko tinpo)

[0004 名無しさん＠お腹いっぱい。 NG NG]

自慢の.emacsを貼り付けよう
http://pc.2ch.net/test/read.cgi/unix/1001393679/913

[0005 ??? NG NG]

覗いたが価値！ウキウキしますよ♪

http://angely.h.fc2.com/page004.html

[0006 ぼるじょあ ◆yBEncckFOU NG NG]

　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ