[nongnu] elpa/xml-rpc d3e467f142 03/10: Fix issues discovered by package-lint

[ELPA Syncer]

branch: elpa/xml-rpc
commit d3e467f14265bb893e7c6912bc3c39bd064c9d56
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    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 46e4772a1f..dcff2a26e8 100644
--- a/xml-rpc.el
+++ b/xml-rpc.el
@@ -10,7 +10,8 @@
 ;; Original Author: Daniel Lundin <daniel@codefactory.se>
 ;; Version: 1.6.15
 ;; 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: <2020-09-06 20:07:23 mah>
 
@@ -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)
@@ -459,7 +462,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
@@ -571,7 +574,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)))
@@ -608,6 +611,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: