[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Emacs 21 as a tab browser
>>>>> <20011030.145057.09103021.shirai@rdmg.mgcs.mei.co.jp> にて、
>>>>> "白井" = <shirai@rdmg.mgcs.mei.co.jp> さんは書きました:
寺> emacs-w3m on XEmacs がタブブラウザになってくやしいので(?)、
寺> Emacs 21 もタブブラウザ(もどき) にしてみました。
白井> 試しました。おもしろいです。
御反応ありがとうございます。
寺> これだと header-line をタブ領域としてのっとってしまうので、
白井> これはちょっと寂しいけど、しょうがないですね。
w3m-use-tab が nil かつ、w3m-use-header-line が non-nil の場合には
header-line は URL 表示のほうがいいんでしょうね...。
>>>>> <m3n129ixfw.wl@gohome.org> にて、
>>>>> "寺" = <teranisi@gohome.org> は書きました:
寺> 問題点として、header-line でクリックした位置のテキストプロパティを
寺> 取り出す方法がわからなかったので、あやしげな方法をとっているのが
寺> 気になっています。
寺> ;; 微妙に当たり判定がおかしい気もします...。
column と length を混同してました。こうかな?
(defun w3m-tab-select (event)
(interactive "e")
(with-temp-buffer
(insert (w3m-tab-line))
(move-to-column (car (posn-col-row (event-start event))))
(let ((buf (get-text-property (point) 'w3m-tab-buffer)))
(when buf (switch-to-buffer buf)))))
でも、まだ微妙にずれてます。
もっとまっとうな方法がありそうな気がするんですが...。
--
Yuuichi Teranishi (寺西裕一) <teranisi@gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"Love is needing to be loved..."