[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: editing emulated header
From: TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> さん曰く
Subject: [emacs-w3m:04244] editing emulated header
Message-ID: <mpabs52ypqz.fsf@moss.lang-private.kuee.kyoto-u.ac.jp>
Date: Thu, 07 Nov 2002 13:20:52 +0900
土> 知り合いから「疑似ヘッダ部分(Location:)に表示されている URL を編集でき
土> て，その URL に移動できるといいよね」という提案を受けました．良さそう
土> なアイデアだと思ったので実装しかけたのですが，この変更には意外と癖があ
土> ることに気が付きました．
良さそうですが、
土> それから，事実上，独自にミニバッファを実装するのと同じくらいの作業が必
土> 要になりそうで，大変そうだとも思います．
これは、そう思います。
土> ただし，この方向で buffer-read-only を廃止できると，form のその場での
土> 編集が可能になって都合が良いかもしれません．
う〜ん、そこまで考えなければこれで十分かなぁ、という気もするので
すが、どうでしょう。
--
白井秀行 (mailto:shirai@rdmg.mgcs.mei.co.jp)
Index: w3m.el
===================================================================
RCS file: /cvsroot/w3m-shirai/emacs-w3m/w3m.el,v
retrieving revision 1.675
diff -u -r1.675 w3m.el
--- w3m.el 7 Nov 2002 00:18:20 -0000 1.675
+++ w3m.el 7 Nov 2002 04:41:54 -0000
@@ -4371,10 +4371,18 @@
(if (w3m-display-graphic-p)
(w3m-toggle-inline-image)
(w3m-view-image)))
- ((setq url (w3m-url-at-point))
+ ((setq url (or (w3m-url-at-point) (w3m-url-at-location)))
(unless (eq 'quit (setq url (w3m-input-url nil url 'quit)))
(w3m-view-this-url-1 url arg new-session)))
(t (w3m-display-message "No URL at point")))))
+
+(defun w3m-url-at-location ()
+ (when (and (eq major-mode 'w3m-mode)
+ (eq (get-text-property (point) 'face)
+ 'w3m-header-line-location-title-face))
+ (save-excursion
+ (end-of-line)
+ (w3m-url-at-point))))
(defun w3m-mouse-view-this-url (event &optional arg)
"Perform the command `w3m-view-this-url' by the mouse event."