2ch専用ブラウザ「Navi2ch」

>>64
こんなんでどうでしょ。
ついでに独自のヒストリを持つようにしてみました。

diff -u2 -r navi2ch-010901.orig/navi2ch-search.el navi2ch-010901/navi2ch-search.el
--- navi2ch-010901.orig/navi2ch-search.el Thu Aug 16 01:41:20 2001
+++ navi2ch-010901/navi2ch-search.el Wed Sep 5 23:49:13 2001
@@ -63,4 +63,6 @@
(id . "search")))

+(defvar navi2ch-search-history nil)
+
;;; navi2ch-bm callbacks
(defun navi2ch-search-set-property (begin end item)
@@ -116,5 +118,6 @@
(message "searching article in %s..." (cdr (assq 'name board)))
(let ((default-directory (navi2ch-board-get-file-name board "")))
- (dolist (file (directory-files default-directory nil "[0-9]+\\.dat"))
+ (dolist (file (and (file-directory-p default-directory)
+ (directory-files default-directory nil "[0-9]+\\.dat")))
(with-temp-buffer
(navi2ch-insert-file-contents file)
@@ -189,5 +192,5 @@
(setq navi2ch-search-searched-subject-list
(navi2ch-search-article-regexp
- board-list (read-string "Search regexp: ")))
+ board-list (read-string "Search regexp: " nil 'navi2ch-search-history)))
(navi2ch-bm-select-board navi2ch-search-board))