X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/1f6898d0510cd15455f665c0f38451755a374243..c7bef6a4f033fa6b22906de0be6da54958d5b3c3:/lisp/ffap.el

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 36727b3747..abf979f612 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -570,7 +570,7 @@ Looks at `ffap-ftp-default-user', returns \"\" for \"localhost\"."
 (defvaralias 'ffap-newsgroup-heads  'thing-at-point-newsgroup-heads)
 (defalias 'ffap-newsgroup-p 'thing-at-point-newsgroup-p)
 
-(defsubst ffap-url-p (string)
+(defun ffap-url-p (string)
   "If STRING looks like an URL, return it (maybe improved), else nil."
   (when (and (stringp string) ffap-url-regexp)
     (let* ((case-fold-search t)