diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2019-10-17 15:25:07 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2019-10-17 15:25:07 +0200 |
| commit | d1aafe02c3f00caea42aa107567875fcbfca733d (patch) | |
| tree | a31c499039b6962667a1e83a893202dd0ad9b4fa /lisp/ffap.el | |
| parent | dc05cf12062cb724acd72136d4679439656e3750 (diff) | |
| download | emacs-d1aafe02c3f00caea42aa107567875fcbfca733d.tar.gz | |
Remove XEmacs compat code from ffap.el
* lisp/ffap.el (ffap-what-domain): Remove XEmacs compat code.
Diffstat (limited to 'lisp/ffap.el')
| -rw-r--r-- | lisp/ffap.el | 5 |
1 files changed, 1 insertions, 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) |