レス数が950を超えています。1000を超えると表示できなくなるよ。

Navigator for 2ch

873 ：名無しさん＠Ｅｍａｃｓ ：2001/07/09(月) 21:15

browse-url-*は、みんな(lambda (url &optinal new-window) ...)みたいなので、

(defun navi2ch-article-show-url ()
"url を表示して、その url を見るか kill ring にコピーする"
(interactive)
(let ((url (navi2ch-article-to-url navi2ch-article-current-board
navi2ch-article-current-article)))
(message "c)opy v)iew? URL: %s" url)
(let ((char (read-char)))
(cond ((eq char ?c) (funcall 'kill-new (navi2ch-article-show-url-subr)))
((eq char ?v) (funcall 'browse-url (navi2ch-article-show-url-subr)
browse-url-new-window-p))))))

でもいいけど、
;;; でも、browse-url.el内で閉じてないのでこれは美しくない。
"-noraise"は>>871のように書き換えないと無理だな。

elispが&optionalが渡されなかった時、unboundにするか、default設定できたら、
browse-url-*の仕様実現も可能なのだが…

read.cgi ver5.26+ (01/10/21-)