[nongnu] elpa/xml-rpc d8d2883b52 06/64: (xml-rpc-value-structp, xml-rpc-value-to-xml-list): Apply patch from Vitaly Mayatskikh <address@hidden> to add support for more complex struct types. Add xml-rpc patch from trac-wiki-mode (http://www.meadowy.org/~gotoh/projects/trac-wiki/)

[Stefan Kangas]

branch: elpa/xml-rpc
commit d8d2883b521185e4986ad1b07b5f6f190bfcd2fe
Author: Mark A. Hershberger <mah@everybody.org>
Commit: Mark A. Hershberger <mah@everybody.org>

    (xml-rpc-value-structp, xml-rpc-value-to-xml-list): Apply patch from Vitaly 
Mayatskikh <vmayatsk@redhat.com> to add support for more complex struct types. 
Add xml-rpc patch from trac-wiki-mode 
(http://www.meadowy.org/~gotoh/projects/trac-wiki/)
---
 xml-rpc.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/xml-rpc.el b/xml-rpc.el
index 3c52a3a042..b93fb9a333 100644
--- a/xml-rpc.el
+++ b/xml-rpc.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2001 CodeFactory AB.
 ;; Copyright (C) 2001 Daniel Lundin.
-;; Parts Copyright (C) 2002-2003 Mark A. Hershberger
+;; Parts Copyright (C) 2002-2005 Mark A. Hershberger
 
 ;; Author: Daniel Lundin <daniel@codefactory.se>
 ;; Maintainer: Mark A. Hershberger <mah@everybody.org>
@@ -144,7 +144,7 @@
 ;;; Code:
 
 (defun xml-rpc-clean-string (s)
-  (if (string-match "\\`[ \t\n]*\\'" s)
+  (if (string-match "\\`[ \t\n\r]*\\'" s)
                                        ;"^[ \t\n]*$" s)
       nil
     s))
@@ -341,7 +341,7 @@ functions in xml.el."
   "An 'xml-rpc-method-call'  result value is always a list, where the first \
 element in RESPONSE is either nil or if an error occured, a cons pair \
 according to (errnum .  \"Error string\"),"
-  (eq 'fault (car (caddar response))))
+  (eq 'fault (car-safe (caddar response))))
 
 (defsubst xml-rpc-response-error-code (response)
   "Return the error code from RESPONSE."
@@ -506,7 +506,7 @@ or nil if called with ASYNC-CALLBACK-FUNCTION."
        (when (fboundp 'url-uncompress)
          (url-uncompress))
        (goto-char (point-min))
-       (search-forward-regexp "<\\?xml")
+       (search-forward-regexp "<\\?xml" nil t)
        (move-to-column 0)
        ;; Gather the results
        (let* ((status url-http-response-status)