Remove XEmacs compat code from ffap.el

* lisp/ffap.el (ffap-what-domain): Remove XEmacs compat code.

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 5b4e8b5fca03026dca1c7972aed1127a1806da5b..c4e6d8dbf49d0567198360e61a864570528671a5 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -112,8 +112,6 @@
 
 (defgroup ffap nil
   "Find file or URL at point."
-  ;; Dead 2009/07/05.
-;;  :link '(url-link :tag "URL" "ftp://ftp.mathcs.emory.edu/pub/mic/emacs/")
   :group 'matching
   :group 'convenience)
 
@@ -409,8 +407,7 @@ See `mail-extr.el' for the known domains."
 (defun ffap-what-domain (domain)
   ;; Like what-domain in mail-extr.el, returns string or nil.
   (require 'mail-extr)
-  (let ((ob (or (ffap-symbol-value 'mail-extr-all-top-level-domains)
-               (ffap-symbol-value 'all-top-level-domains)))) ; XEmacs
+  (let ((ob (ffap-symbol-value 'mail-extr-all-top-level-domains)))
     (and ob (get (intern-soft (downcase domain) ob) 'domain-name))))
 
 (defun ffap-machine-p (host &optional service quiet strategy)