[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r115324: Support <optgroup> tags in <select> forms.
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] trunk r115324: Support <optgroup> tags in <select> forms. |
Date: |
Sun, 01 Dec 2013 13:21:57 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 115324
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/15860
author: Kenjiro NAKAYAMA <address@hidden>
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sun 2013-12-01 14:21:53 +0100
message:
Support <optgroup> tags in <select> forms.
* net/eww.el (eww-tag-select): Support <optgroup> tags in <select>
forms.
Test case:
<html>
<head><title>SELECT TEST</title></head>
<body>
<form method="POST" action="./dummy.php">
<input type="text" name="text1">
<input type="submit" name="btn1" value="val1">
<select>
<optgroup label="group 1">
<option value="a">Value A</option>
<option value="b">Value B</option>
</optgroup>
<optgroup label="group 2">
<option value="c">Value C</option>
<option value="d">Value D</option>
</optgroup>
</select>
</form>
</body>
</html>
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/net/eww.el eww.el-20130610114603-80ap3gwnw4x4m5ix-1
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-12-01 13:11:36 +0000
+++ b/lisp/ChangeLog 2013-12-01 13:21:53 +0000
@@ -1,3 +1,8 @@
+2013-12-01 Kenjiro NAKAYAMA <address@hidden>
+
+ * net/eww.el (eww-tag-select): Support <optgroup> tags in <select>
+ forms.
+
2013-12-01 Lars Magne Ingebrigtsen <address@hidden>
* net/eww.el (eww-restore-history): Update the window title after
=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el 2013-12-01 13:11:36 +0000
+++ b/lisp/net/eww.el 2013-12-01 13:21:53 +0000
@@ -737,8 +737,14 @@
:eww-form eww-form))
(options nil)
(start (point))
- (max 0))
- (dolist (elem cont)
+ (max 0)
+ opelem)
+ (if (eq (car (car cont)) 'optgroup)
+ (dolist (groupelem cont)
+ (unless (cdr (assq :disabled (cdr groupelem)))
+ (setq opelem (append opelem (cdr (cdr groupelem))))))
+ (setq opelem cont))
+ (dolist (elem opelem)
(when (eq (car elem) 'option)
(when (cdr (assq :selected (cdr elem)))
(nconc menu (list :value
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r115324: Support <optgroup> tags in <select> forms.,
Lars Ingebrigtsen <=