From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 19 Jun 2019 23:45:56 +0000 (+0200)
Subject: Remove XEmacs compat code from gravatar.el
X-Git-Tag: emacs-27.0.90~2355
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86c3d9280e13f72af1b353a473dea48b06cc8c6f;p=emacs.git

Remove XEmacs compat code from gravatar.el

* lisp/image/gravatar.el (gravatar-retrieve): Remove XEmacs compat code
---

diff --git a/lisp/image/gravatar.el b/lisp/image/gravatar.el
index cf61119ab2e..91da840e3a4 100644
--- a/lisp/image/gravatar.el
+++ b/lisp/image/gravatar.el
@@ -107,10 +107,8 @@ You can provide a list of argument to pass to CB in CBARGS."
 	(let ((args (list url
 			  'gravatar-retrieved
 			  (list cb (when cbargs cbargs)))))
-	  (when (> (length (if (featurep 'xemacs)
-			       (cdr (split-string (function-arglist 'url-retrieve)))
-			     (help-function-arglist 'url-retrieve)))
-		   4)
+	  (when (> (length (help-function-arglist 'url-retrieve))
+                   4)
 	    (setq args (nconc args (list t))))
 	  (apply #'url-retrieve args))
       (apply cb