From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 25 Dec 2015 19:43:36 +0000 (+0100)
Subject: Made ffap-url-p a defun instead of a defsubst
X-Git-Tag: emacs-26.0.90~2863
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a68633e774886ab7da16772a7eef10f0471a6b77;p=emacs.git

Made ffap-url-p a defun instead of a defsubst

* lisp/ffap.el (ffap-url-p): Change from defsusbt to defun,
since there doesn't seem to be much of a reason for it to be a
defsubst (bug#18203).
---

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 8d3f8bfc37d..037b978b6fb 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)