From a68633e774886ab7da16772a7eef10f0471a6b77 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 25 Dec 2015 20:43:36 +0100 Subject: [PATCH] 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). --- lisp/ffap.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.2