xyzzy Part8

Part6から自動あぼーんのコードをサルベージします。

> (defvar *auto-aborn-list* '("あぼーんリスト"
> "ここにあげた文字列を含むレスが自動的にあぼーんされます"))
>
> (defvar *reloading* nil)
>
> (defun auto-aborn ()
> (unless *auto-aborn-list*
> (return-from auto-aborn nil))
> (let ((line (current-line-number))
> (r "") f)
> (dolist (x *auto-aborn-list*)
> (setq r (concat "\\|" (regexp-quote x) r)))
> (setq r (compile-regexp (substring r 2 nil)))
> (beginning-of-buffer)
> (while (scan-buffer r :regexp t)
> (thread-aborn-add)
> (next-line)
> (setq f t))
> (when f
> (setq *reloading* t)
> (delete-hook '*thread-show-hook* 'auto-aborn)
> (reload-local-thread)
> ; (thread-update)
> (add-hook '*thread-show-hook* 'auto-aborn)
> (setq *reloading* nil)
> (goto-line line)
> )))