From d1aafe02c3f00caea42aa107567875fcbfca733d Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 17 Oct 2019 15:25:07 +0200 Subject: [PATCH] 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 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) -- 2.39.2