diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2015-12-25 20:43:36 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2015-12-25 20:43:36 +0100 |
| commit | a68633e774886ab7da16772a7eef10f0471a6b77 (patch) | |
| tree | 7526c2d7e1704f404d608b7a5c6ec992c37232fa | |
| parent | 65c64058b817f169e356ea7825d173eb4c27fcf6 (diff) | |
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.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 8d3f8bfc37..037b978b6f 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) |