Commits

Anonymous committed b5339a0

2008-04-05 Steve Youngs <steve@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

Comments (0)

Files changed (2)

+2008-04-05  Steve Youngs  <steve@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
+
 2008-03-03  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.55 released.
 ;;
 
 ;;; 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)
     (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.