Re: 要望：リンクを新しいバ ッファで開く機能

[Katsumi Yamaoka <yamaoka@xxxxxxxxxx>]

>>>>> In [emacs-w3m : No.01803]
>>>>>	Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp> wrote:

中山さん> ちょっとだけ気付いた点があります．

中山さん> http://emacs-w3m.namazu.org/#install -> no such anchor

中山さん> つまり http://emacs-w3m.namazu.org/ 等で <a href="#install">
中山さん> の所で C-u RET すると開けないのは悲しいので，

あ、本当だ。

中山さん> こういう時はバッファをコピーするようにしてはどうでしょう？

と言うか、最初にバッファをコピーしているんですが、

  Reading http://emacs-w3m.namazu.org/#install...

というものを表示するために内容を消してしまっているのです。何とも
間抜けですねえ。^^;;
ちゃんとした対処は後で考えるとして (それともだれか考えて :-)、そ
ういう問題の起きない w3m-view-this-url を出しておきますです。

(defun w3m-view-this-url (&optional arg)
  "View the URL of the link under point.  If ARG is non-nil and the link
is an anchor, make a copy of the current session in advance.  If the
option `w3m-pop-up-frames' is non-nil, also make a new frame for the
copied session."
  (interactive "P")
  (let ((url (w3m-anchor))
	(act (w3m-action)))
    (cond
     (url
      (when arg
	(switch-to-buffer (w3m-copy-buffer (current-buffer) nil t)))
      (w3m-goto-url url nil nil nil w3m-current-url))
     (act
      (eval act))
     ((w3m-image)
      (if (w3m-display-graphic-p)
	  (w3m-toggle-inline-image)
	(w3m-view-image)))
     (t
      (message "No URL at point")))))
-- 
Katsumi Yamaoka <yamaoka@namazu.org>