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

very ad-hoc patch to w3m-form.el



中川です。OS/2 非依存の話題もあります。

  w3m-form.el を使いはじめたのですが、google 検索で「検索」ボタンをお
すと
	Wrong type argument: stringp, ("Google 検索")
  エラーでけとばされるので、安直にパッチをあててみました。とりあえず検
索できているようです(本当はさらに再帰的に降りていかないといけないのか
も)。「ウェブ全体を検索」「日本語のページを検索」の Radio Button はう
まく動きませんが、まだ調べてません。

  裸の w3m 同様 form で TAB / M-TAB が止まるような 
w3m-goto-{next,previous}-anchor を作れないか思案中です。
{next,previous}-single-property-change が使えないのが問題。
w3m-href-anchor, w3m-action, w3m-form-face を三つ探して一番近いのに飛
ぶか、{next,previous}-property-change で飛んでおいて上記三つの
property 以外だったらさらに飛ぶか。

;;    野宮さんと私の違いは私が Mule 4.1 化していないことにあるのではな
;; いかと思っていますが、定かではありません。私は 4.1 化したことがなく、
;; 野宮さんは 4.0 で使ったことがないそうなので。

;;   OS/2 版 w3m の -dump_source も CRLF 変換しない方向で直してもらえ
;; そうです。


diff -u -a "j:/usr/local/emacs-20.x/site-lisp/w3m_el-0.2.150/w3m-form.el.ORG" "j:/usr/local/emacs-20.x/site-lisp/w3m_el-0.2.150/w3m-form.el"
--- j:/usr/local/emacs-20.x/site-lisp/w3m_el-0.2.150/w3m-form.el.ORG	Mon Apr  2 09:26:14 2001
+++ j:/usr/local/emacs-20.x/site-lisp/w3m_el-0.2.150/w3m-form.el	Fri Apr 20 12:05:18 2001
@@ -85,7 +85,9 @@
 	(setq buf (cons
 		   (format "%s=%s"
 			   (w3m-url-encode-string (symbol-name (car plist)))
-			   (w3m-url-encode-string (nth 1 plist)))
+			   (if (listp (nth 1 plist))
+			       (mapcar (function w3m-url-encode-string) (nth 1 plist))
+			     (w3m-url-encode-string (nth 1 plist))))
 		   buf)
 	      plist (nthcdr 2 plist)))
       (if buf

Diff finished at Tue Apr 24 21:14:41