mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

Remove XEmacs compat code from ffap.el

Browse Source 
* lisp/ffap.el (ffap-what-domain): Remove XEmacs compat code.
This commit is contained in:
Stefan Kangas 2019-10-17 15:25:07 +02:00
parent dc05cf1206
commit d1aafe02c3
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ffap.el
View File

@ -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)