From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 17 Oct 2019 13:25:07 +0000 (+0200)
Subject: Remove XEmacs compat code from ffap.el
X-Git-Tag: emacs-27.0.90~1017
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d1aafe02c3f00caea42aa107567875fcbfca733d;p=emacs.git

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 5b4e8b5fca0..c4e6d8dbf49 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)