diff options
| -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 @@ | |||
| 112 | 112 | ||
| 113 | (defgroup ffap nil | 113 | (defgroup ffap nil |
| 114 | "Find file or URL at point." | 114 | "Find file or URL at point." |
| 115 | ;; Dead 2009/07/05. | ||
| 116 | ;; :link '(url-link :tag "URL" "ftp://ftp.mathcs.emory.edu/pub/mic/emacs/") | ||
| 117 | :group 'matching | 115 | :group 'matching |
| 118 | :group 'convenience) | 116 | :group 'convenience) |
| 119 | 117 | ||
| @@ -409,8 +407,7 @@ See `mail-extr.el' for the known domains." | |||
| 409 | (defun ffap-what-domain (domain) | 407 | (defun ffap-what-domain (domain) |
| 410 | ;; Like what-domain in mail-extr.el, returns string or nil. | 408 | ;; Like what-domain in mail-extr.el, returns string or nil. |
| 411 | (require 'mail-extr) | 409 | (require 'mail-extr) |
| 412 | (let ((ob (or (ffap-symbol-value 'mail-extr-all-top-level-domains) | 410 | (let ((ob (ffap-symbol-value 'mail-extr-all-top-level-domains))) |
| 413 | (ffap-symbol-value 'all-top-level-domains)))) ; XEmacs | ||
| 414 | (and ob (get (intern-soft (downcase domain) ob) 'domain-name)))) | 411 | (and ob (get (intern-soft (downcase domain) ob) 'domain-name)))) |
| 415 | 412 | ||
| 416 | (defun ffap-machine-p (host &optional service quiet strategy) | 413 | (defun ffap-machine-p (host &optional service quiet strategy) |