procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove XEmacs compat code from gravatar.el

Browse source 
* lisp/image/gravatar.el (gravatar-retrieve): Remove XEmacs compat code
This commit is contained in:
Lars Ingebrigtsen 2019-06-20 01:45:56 +02:00
parent 9f4cced5db
commit 86c3d9280e
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/image/gravatar.el
View file

@ -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