UNIX厨房の扱いについてat UNIXUNIX厨房の扱いについて - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト50:名無しさん＠お腹いっぱい。 08/02/08 16:21:04 (defun replace-white-space-to-2ch-board-format (begin end) (interactive (let () (list (if (and transient-mark-mode mark-active) (region-beginning)) (if (and transient-mark-mode mark-active) (region-end))))) (let ((temp (buffer-substring begin end)) (buffer (get-buffer-create "replace-white-space-to-2ch-board-format"))) (with-current-buffer buffer (erase-buffer) (insert temp) (let ((b (point-min)) (e (point-max))) (untabify b e) (perform-replace " " " " nil nil nil nil nil b (point-max)) (kill-ring-save b (point-max))) (kill-buffer (current-buffer)) ))) test 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch