[AC] [PACKAGES (net-utils)] Update google-query for Google's latest formatting change

[Steve Youngs]

APPROVE COMMIT

NOTE: This patch has been committed.


net-utils patch:
ChangeLog files diff command: cvs -q diff -U 0
Files affected:               ChangeLog
Source files diff command:    cvs -q diff -uN
Files affected:               google-query.el

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/net-utils/ChangeLog,v
retrieving revision 1.88
diff -u -p -U0 -r1.88 ChangeLog
--- ChangeLog	3 Mar 2008 13:21:11 -0000	1.88
+++ ChangeLog	5 Apr 2008 07:38:28 -0000
@@ -0,0 +1,7 @@
+2008-04-05  Steve Youngs  <steve at sxemacs.org>
+
+	* google-query.el (google-query-process-results): Fix the regexp
+	to find the URLs in the output.  Google decided to change their
+	format again.
+	(google-query-version): Bump to 1.9
+
Index: google-query.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/net-utils/google-query.el,v
retrieving revision 1.8
diff -u -p -u -r1.8 google-query.el
--- google-query.el	25 Sep 2006 01:30:21 -0000	1.8
+++ google-query.el	5 Apr 2008 07:38:20 -0000
@@ -78,7 +78,7 @@
 ;;
 
 ;;; Code:
-(defconst google-query-version 1.8
+(defconst google-query-version 1.9
   "Version number of google-query.el.")
 
 (defun google-query-version (&optional arg)
@@ -261,7 +261,7 @@ This is taken from RFC 2396.")
     (insert results)
     ;; Collect the stuff we want.
     (goto-char (point-max))
-    (while (re-search-backward "<a class=l href=\"\\(.*\\)\">\\(.*\\)</a>" nil t)
+    (while (re-search-backward "<a href=\"\\(.*\\)\" class=l>\\(.*\\)</a>" nil t)
       (setq matches (push (match-string 1) matches)
 	    titles (push (match-string 2) titles)))
     ;; Replace the contents of the buffer with our matches.

-- 
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
|       SXEmacs - The only _______ you'll ever need.       |
|         Fill in the blank, yes, it's THAT good!          |
|------------------------------------<steve at sxemacs.org>---|
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 316 bytes
Desc: not available
Url : http://lists.xemacs.org/pipermail/xemacs-patches/attachments/20080405/07a075e3/attachment.pgp