Navigator for 2ch

このエントリーをはてなブックマークに追加
929名無しさん@Emacs
>>925 こんな感じ?

--- navi2ch-util.el.ORIG Sat Jul 28 17:22:10 2001
+++ navi2ch-util.el Sat Jul 28 18:10:08 2001
@@ -256,7 +256,10 @@


(defun navi2ch-browse-url (url)
- (browse-url url browse-url-new-window-p))
+ (browse-url
+ url
+ (cond ((boundp 'browse-url-new-window-p) browse-url-new-window-p)
+ ((boundp 'browse-url-new-window-flag) browse-url-new-window-flag))))

;; from apel
(defun navi2ch-put-alist (item value alist)