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

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(a)sxemacs.org&gt; + + * 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! | |------------------------------------&lt;steve(a)sxemacs.org&gt;---| _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches