diff options
| author | Mark A. Hershberger <mah@everybody.org> | 2010-02-26 22:37:34 -0500 |
|---|---|---|
| committer | Mark A. Hershberger <mah@everybody.org> | 2015-05-29 09:55:34 -0400 |
| commit | d8d2883b521185e4986ad1b07b5f6f190bfcd2fe (patch) | |
| tree | f5aa62fb8df15706c8dd05675304ae891eb6eed1 | |
| parent | fa2aee2be9bd740951dda06d10e40ec1a5a99e35 (diff) | |
(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/)
| -rw-r--r-- | xml-rpc.el | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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) |