[Emacs-diffs] master d1aafe0: Remove XEmacs compat code from ffap.el

[Stefan Kangas]

branch: master
commit d1aafe02c3f00caea42aa107567875fcbfca733d
Author: Stefan Kangas <address@hidden>
Commit: Stefan Kangas <address@hidden>

    Remove XEmacs compat code from ffap.el
    
    * lisp/ffap.el (ffap-what-domain): Remove XEmacs compat code.
---
 lisp/ffap.el | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 5b4e8b5..c4e6d8d 100644
--- 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)