diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-20 01:45:56 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-20 12:51:39 +0200 |
| commit | 86c3d9280e13f72af1b353a473dea48b06cc8c6f (patch) | |
| tree | 9d1e06182726252d7a707c5563ed4a496c7726bf | |
| parent | 9f4cced5db01b256dfcb78a8fa90f388ec32a840 (diff) | |
| download | emacs-86c3d9280e13f72af1b353a473dea48b06cc8c6f.tar.gz | |
Remove XEmacs compat code from gravatar.el
* lisp/image/gravatar.el (gravatar-retrieve): Remove XEmacs compat code
| -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 |