aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2015-12-25 20:43:36 +0100
committerLars Ingebrigtsen2015-12-25 20:43:36 +0100
commita68633e774886ab7da16772a7eef10f0471a6b77 (patch)
tree7526c2d7e1704f404d608b7a5c6ec992c37232fa
parent65c64058b817f169e356ea7825d173eb4c27fcf6 (diff)
downloademacs-a68633e774886ab7da16772a7eef10f0471a6b77.tar.gz
emacs-a68633e774886ab7da16772a7eef10f0471a6b77.zip
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).
-rw-r--r--lisp/ffap.el2
1 files changed, 1 insertions, 1 deletions
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\"."
570(defvaralias 'ffap-newsgroup-heads 'thing-at-point-newsgroup-heads) 570(defvaralias 'ffap-newsgroup-heads 'thing-at-point-newsgroup-heads)
571(defalias 'ffap-newsgroup-p 'thing-at-point-newsgroup-p) 571(defalias 'ffap-newsgroup-p 'thing-at-point-newsgroup-p)
572 572
573(defsubst ffap-url-p (string) 573(defun ffap-url-p (string)
574 "If STRING looks like an URL, return it (maybe improved), else nil." 574 "If STRING looks like an URL, return it (maybe improved), else nil."
575 (when (and (stringp string) ffap-url-regexp) 575 (when (and (stringp string) ffap-url-regexp)
576 (let* ((case-fold-search t) 576 (let* ((case-fold-search t)