From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 17 Jun 2013 21:49:24 +0000 (+0200)
Subject: * eww.el (eww-tag-select): Don't render totally empty <select> forms.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=d35146fa43e9e2d8d346073c3c0692162abf4759;hp=53ba8f343521c48f295df2a0238aa6b9e55a975e

* eww.el (eww-tag-select): Don't render totally empty <select> forms.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 06a930cf9..34703c81a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-06-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* eww.el (eww-tag-select): Don't render totally empty <select> forms.
+
 	* shr.el (shr-insert-table): Respect border-collapse: collapse.
 	(shr-tag-base): Protect against base specs that are degenerate.
 	(shr-ensure-paragraph): Don't delete empty lines that have text
diff --git a/lisp/eww.el b/lisp/eww.el
index ccbd5ee9a..811aa5718 100644
--- a/lisp/eww.el
+++ b/lisp/eww.el
@@ -350,13 +350,14 @@
 		    :value (cdr (assq :value (cdr elem)))
 		    :tag (cdr (assq 'text (cdr elem))))
 	      options)))
-    ;; If we have no selected values, default to the first value.
-    (unless (plist-get (cdr menu) :value)
-      (nconc menu (list :value (nth 2 (car options)))))
-    (nconc menu options)
-    (apply 'widget-create menu)
-    (put-text-property start (point) 'eww-widget menu)
-    (shr-ensure-paragraph)))
+    (when options
+      ;; If we have no selected values, default to the first value.
+      (unless (plist-get (cdr menu) :value)
+	(nconc menu (list :value (nth 2 (car options)))))
+      (nconc menu options)
+      (apply 'widget-create menu)
+      (put-text-property start (point) 'eww-widget menu)
+      (shr-ensure-paragraph))))
 
 (defun eww-click-radio (widget &rest ignore)
   (let ((form (plist-get (cdr widget) :eww-form))