Commit 86c3d928 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Remove XEmacs compat code from gravatar.el

* lisp/image/gravatar.el (gravatar-retrieve): Remove XEmacs compat code
parent 9f4cced5
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment