[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

link タグ対応



安宅です。

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))