From d8d2883b521185e4986ad1b07b5f6f190bfcd2fe Mon Sep 17 00:00:00 2001 From: "Mark A. Hershberger" Date: Fri, 26 Feb 2010 22:37:34 -0500 Subject: (xml-rpc-value-structp, xml-rpc-value-to-xml-list): Apply patch from Vitaly Mayatskikh 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 3c52a3a..b93fb9a 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 ;; Maintainer: Mark A. Hershberger @@ -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) -- cgit v1.2.3