diff options
| author | Lars Ingebrigtsen | 2015-12-25 20:43:36 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2015-12-25 20:43:36 +0100 |
| commit | a68633e774886ab7da16772a7eef10f0471a6b77 (patch) | |
| tree | 7526c2d7e1704f404d608b7a5c6ec992c37232fa | |
| parent | 65c64058b817f169e356ea7825d173eb4c27fcf6 (diff) | |
| download | emacs-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.el | 2 |
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) |