[gnus git] branch master updated: m0-7-70-g2ced5ad =1= * eww.el (eww-tag-select): Use the first value as the default value.

       via  2ced5ad1e5c20c67071b08ea12039413229356fd (commit)
      from  ba7366475d45e7dad36fd53c42175ada2529710c (commit)


- Log -----------------------------------------------------------------
commit 2ced5ad1e5c20c67071b08ea12039413229356fd
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Thu Jun 13 14:44:38 2013 +0200

    * eww.el (eww-tag-select): Use the first value as the default value.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index be24fa7..76e0a52 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-06-13  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* eww.el (eww-tag-select): Use the first value as the default value.
+
 2013-06-13  Rüdiger Sonderfeld  <[email protected]>
 
 	* eww.el (eww): Prepend urls with http:// if scheme is missing.
diff --git a/lisp/eww.el b/lisp/eww.el
index 3f0399e..d4dd178 100644
--- a/lisp/eww.el
+++ b/lisp/eww.el
@@ -154,9 +154,12 @@
   (set (make-local-variable 'browse-url-browser-function) 'eww-browse-url))
 
 (defun eww-browse-url (url &optional new-window)
+  (let ((url-request-extra-headers
+	 (append '(("User-Agent" . "eww/1.0"))
+		 url-request-extra-headers)))
   (push (list eww-current-url (point))
 	eww-history)
-  (eww url))
+    (eww url)))
 
 (defun eww-quit ()
   "Exit the Emacs Web Wowser."
@@ -254,6 +257,9 @@
 		    :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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    4 ++++
 lisp/eww.el    |   12 +++++++++---
 2 files changed, 13 insertions(+), 3 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project