[nongnu] elpa/xml-rpc b96150b775 08/10: Merge pull request #24 from skangas/package-lint

[ELPA Syncer]

branch: elpa/xml-rpc
commit b96150b7757cf40831ed33eb77c10acb8b789bb1
Merge: ce3d947798 d3e467f142
Author: Mark A. Hershberger <mah@everybody.org>
Commit: GitHub <noreply@github.com>

    Merge pull request #24 from skangas/package-lint
    
    Fix issues discovered by package-lint
---
 xml-rpc.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/xml-rpc.el b/xml-rpc.el
index 4affcfae85..c044827668 100644
--- a/xml-rpc.el
+++ b/xml-rpc.el
@@ -10,7 +10,8 @@
 ;; Original Author: Daniel Lundin <daniel@codefactory.se>
 ;; Version: 1.6.16
 ;; Created: May 13 2001
-;; Keywords: xml rpc network
+;; Keywords: xml rpc network comm
+;; Package-Requires: ((emacs "24.1"))
 ;; URL: http://github.com/xml-rpc-el/xml-rpc-el
 ;; Last Modified: <2022-10-04 18:14:42 skangas>
 
@@ -32,6 +33,8 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'xml)
@@ -460,7 +463,7 @@ or nil if called with ASYNC-CALLBACK-FUNCTION."
                  (if async-callback-function
                      (let ((cbargs (list async-callback-function)))
                        (url-retrieve server-url
-                                     'xml-new-rpc-request-callback-handler
+                                     'xml-rpc-new-request-callback-handler
                                      cbargs))
                    (let ((buffer (url-retrieve-synchronously server-url)))
                      (with-current-buffer buffer
@@ -572,7 +575,7 @@ handled from XML-BUFFER."
     (funcall callback-fun (xml-rpc-xml-to-response xml-response))))
 
 
-(defun xml-new-rpc-request-callback-handler (_status callback-fun)
+(defun xml-rpc-new-request-callback-handler (_status callback-fun)
   "Handle a new style `url-retrieve' callback passing `STATUS'
 and `CALLBACK-FUN'."
   (let ((xml-buffer (current-buffer)))
@@ -609,6 +612,10 @@ parameters."
           (t
            (xml-rpc-xml-to-response response)))))
 
+;; This can be removed later:
+(define-obsolete-function-alias 'xml-new-rpc-request-callback-handler
+  #'xml-rpc-new-request-callback-handler "XML-RPC 1.6.15")
+
 (provide 'xml-rpc)
 
 ;; Local Variables: