[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
link
タグ対応
- From: Masayuki Ataka <ataka@xxxxxxxxxxxxxxxxxxx>
- Date: Thu, 08 Nov 2001 21:30:26 +0900 (JST)
- X-ml-name: emacs-w3m
- X-mail-count: 02124
安宅です。
emacs/w3m は link タグに対応して
rel="next" や rel="prev" のページにとんでくれます。
でも、世の中には「前のページ」というのを
rel="previous"
で指定しているページもあるようです。
HTML 4.01 の仕様には次のように書いてありました。
Prev
Refers to the previous document in an ordered series of documents. Some user agents also
support the synonym "Previous".
出来れば、previous にも対応して下さると嬉しいです。
ちなみに w3.org のページは rel="previous" でした。
パッチを添付します。w3m.el は今夜取って来たものです。
P.S.
----
ちなみに私はコードに中にこのように書いています。
(add-hook 'w3m-mode-hook
'(lambda ()
(define-key w3m-mode-map "\C-cN"
(lambda () (interactive)
(if w3m-next-url (w3m-goto-url w3m-next-url))))
(define-key w3m-mode-map "\C-cP"
(lambda () (interactive)
(if w3m-previous-url (w3m-goto-url w3m-previous-url))))))
----Input with T-Code!
http://isweb22.infoseek.co.jp/computer/pop-club
Masayuki Ataka / 安宅 正之 (ataka@milk.freemail.ne.jp)
--- w3m.el~ Thu Nov 8 20:24:35 2001
+++ w3m.el Thu Nov 8 21:08:40 2001
@@ -1725,7 +1725,7 @@
(setq rel (split-string rel))
(cond
((member "next" rel) (setq w3m-next-url href))
- ((member "prev" rel) (setq w3m-previous-url href))))
+ ((or (member "prev" rel) (member "previous" rel)) (setq w3m-previous-url href))))
(delete-region start (point))
(cond
(href
@@ -2997,7 +2997,7 @@
(setq rel (split-string rel))
(cond
((member "next" rel) (setq w3m-next-url href))
- ((member "prev" rel) (setq w3m-previous-url href))))))))))
+ ((or (member "prev" rel) (member "previous" rel)) (setq w3m-previous-url href))))))))))
(defun w3m-remove-meta-charset-tags ()
(let ((case-fold-search t))