diff options
Diffstat (limited to 'lisp/net/soap-client.el')
-rw-r--r-- | lisp/net/soap-client.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el index e36b34fc542..de04d58ed18 100644 --- a/lisp/net/soap-client.el +++ b/lisp/net/soap-client.el @@ -5,12 +5,15 @@ ;; Author: Alexandru Harsanyi <AlexHarsanyi@gmail.com> ;; Author: Thomas Fitzsimmons <fitzsim@fitzsim.org> ;; Created: December, 2009 -;; Version: 3.2.1 +;; Version: 3.2.3 ;; Keywords: soap, web-services, comm, hypermedia ;; Package: soap-client ;; URL: https://github.com/alex-hhh/emacs-soap-client ;; Package-Requires: ((emacs "24.1") (cl-lib "0.6.1")) +;; This is a GNU ELPA :core package. Avoid functionality that is not +;; compatible with the version of Emacs recorded above. + ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify @@ -717,9 +720,9 @@ representing leap seconds." second) minute hour day month year second-fraction datatype time-zone) (let ((time - (encode-time (list - (if new-decode-time new-decode-time-second second) - minute hour day month year nil nil time-zone)))) + ;; Call encode-time the old way, for Emacs<27. + (encode-time (if new-decode-time new-decode-time-second second) + minute hour day month year time-zone))) (if new-decode-time (with-no-warnings (decode-time time nil t)) (decode-time time)))))) @@ -946,7 +949,7 @@ This is a specialization of `soap-encode-attributes' for (t nil))) (defun soap-type-is-array? (type) - "Return t if TYPE defines an ARRAY." + "Return t if TYPE is an ARRAY." (and (soap-xs-complex-type-p type) (eq (soap-xs-complex-type-indicator type) 'array))) @@ -1317,7 +1320,7 @@ See also `soap-wsdl-resolve-references'." "Validate VALUE against the basic type TYPE." (let* ((kind (soap-xs-basic-type-kind type))) (cl-case kind - ((anyType Array byte[]) + ((anyType Array byte\[\]) value) (t (let ((convert (get kind 'rng-xsd-convert))) |