quick search doesn't work for waei:, etc.

[Katsumi Yamaoka <yamaoka@xxxxxxx>]

もっと早くに気が付いているべきでした。問題が二つ＋おまけがありま
す。

1. Quick search doesn't work for Japanese terms.

waei:かつお
 => ● 和英辞典 [ %82%a9%82%c2%82%a8 ]の前方一致での検索結果 0件
gg:わかめ
 => (なんだこりゃ ^^;;)


2. Adding eiwa:, waei:, etc. to w3m-uri-replace-alist is not
   easy for all users.

せっかく w3m-search-engine-alist で eiwa や waei などが定義され
ているのに、それらを w3m-uri-replace-alist に追加するには、M-x
customize-option で一つずつ書き写すしかありませんよね(?)。


3. Error if w3m-quick-start is nil.

題名と関係ありませんが、この条件で *w3m* バッファが隠れていると
きに以下のエラーになります。

M-x w3m[RET]
URL (default popup):[RET]
 => Signaling: (wrong-type-argument stringp popup)
      string-match("[^!-~]+" popup 0)
      w3m-input-url(nil nil popup nil)

こんな変更で良いでしょうか?

--- w3m.el~	2003-07-04 04:44:34 +0000
+++ w3m.el	2003-07-08 05:42:37 +0000
@@ -2981,13 +2981,14 @@
 		   'w3m-url-completion nil nil initial
 		   'w3m-input-url-history)))
       (if (string= "" url) (setq url default))
-      ;; remove duplication
-      (when (stringp url)
-	(setq w3m-input-url-history
-	      (cons url (delete url w3m-input-url-history))))
       ;; return value
-      (w3m-url-transfer-encode-string url w3m-default-coding-system))))
-
+      (if (stringp url)
+	  (progn
+	    ;; remove duplication
+	    (setq w3m-input-url-history
+		  (cons url (delete url w3m-input-url-history)))
+	    (w3m-url-transfer-encode-string url w3m-default-coding-system))
+	url))))
 
 ;;; Cache:
 (defun w3m-cache-setup ()