From d35146fa43e9e2d8d346073c3c0692162abf4759 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 17 Jun 2013 23:49:24 +0200 Subject: [PATCH 1/1] * eww.el (eww-tag-select): Don't render totally empty 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)) -- 2.25.1