diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/image/gravatar.el | 6 |
1 files changed, 2 insertions, 4 deletions
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 |