多分、今のところできないです。やってみます。
>>259
乙です。sssp がなにものか理解していませんが、気になったところを。
- (lambda (s) s) は #'identity のが速いと思います。
;; ここでは (regexp-opt navi2ch-browse-url-image-extentions) がよりよいかな。
- (concat navi2ch-directory "/sssp_icon/") は expand-file-name を。
- (setq file (match-string 1 url)) は
(setq file (expand-file-name (match-string 1 url) sssp_dir)) のほうがよいのでは?
- let* は let でいいと思います。
- buffer-read-only が nil になりっぱなしでは?
;; 戻し忘れ防止のため let で拘束してやるのがよいです。
- navi2ch-net-update-file() のとこは save-excursion を。
;; navi2ch-net-update-file() でポイントずれるのはあまりよくなさそうなので見てみます。
- "
あとはぼくの趣味ですが、
- 正規表現であとから参照しない \\(\\) は \\(?:\\) にしたほうがいいかも。
- 80 桁を目安に改行したほうがいいかも。
(if (re-search-forward のとこを (while (re-search-forward にしたら全部読みそうですけど、重いかな…?
url に property をつけるあたりで image 入れてやってもいいかもしれませんね。