[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: unclosed option tag
>> On Mon, 17 Dec 2001 10:39:11 +0900
>> 「菅」== t-suga@atomsystem.co.jp (Taiki SUGAWARA) said as follows:
菅> 土屋さんの patch では option タグのすぐ後ろの空白も残ってしまいます。
ああ，それは考慮していませんでした．
時間がないので解決策までは示せませんが，FSF Emacs では，
(split-string " abc def")
-> ("abc" "def")
となるのに対して，XEmacs では
(split-string " abc def")
-> ("" "abc" "def")
となりますから，菅原さんのパッチを適用した状態で XEmacs で動かすと，先
頭に余分な空白が1つ入ってしまうのではないでしょうか．
菅> また、僕は空白がまとまってくれた方が嬉しい気がするので、僕の patch
菅> と合わせて以下のようだといい感じだと思います。
そうですね．私の手元でも似たような変更で試している最中でした．
;; [emacs-w3m:02415] の変更も入っているはずです．
;; 規格について説明してくださった国島さん，有り難うございました．
Index: w3m-form.el
===================================================================
RCS file: /home/tsuchiya/cvsroot/emacs-w3m/w3m-form.el,v
retrieving revision 1.70
diff -u -u -r1.70 w3m-form.el
--- w3m-form.el 12 Dec 2001 03:32:44 -0000 1.70
+++ w3m-form.el 12 Dec 2001 12:14:00 -0000
@@ -336,23 +336,31 @@
(w3m-parse-attributes ((value :decode-entity)
(selected :bool))
(setq vbeg (point))
- (skip-chars-forward "^<")
+ (if (re-search-forward
+ (w3m-tag-regexp-of "/?option" "/optgroup" "/select" "/form")
+ nil t)
+ (goto-char (match-beginning 0))
+ (skip-chars-forward "^<"))
+ (skip-chars-backward " \t\r\f\n")
(setq svalue
(w3m-decode-entities-string
(mapconcat 'identity
(split-string
- (buffer-substring vbeg (point)) "\n")
- "")))
+ (buffer-substring vbeg (point))
+ "[ \t\r\f\n]+")
+ " ")))
(unless value
(setq value svalue))
(when selected
(setq cvalue value))
(push (cons value svalue) candidates)))
+ (setq candidates (nreverse candidates))
(when name
- (w3m-form-put (car forms) name (cons
- cvalue ; current value
- (nreverse
- candidates))))))))))))
+ (w3m-form-put (car forms)
+ name
+ (cons (or cvalue ; current value
+ (caar candidates))
+ candidates)))))))))))
forms))
(defun w3m-form-resume (forms)
--
土屋 雅稔 ( TSUCHIYA Masatoshi )