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).
This commit is contained in:
parent
65c64058b8
commit
a68633e774
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue