mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

Made ffap-url-p a defun instead of a defsubst

Browse Source 
* 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:
Lars Ingebrigtsen 2015-12-25 20:43:36 +01:00
parent 65c64058b8
commit a68633e774
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ffap.el
View File

@ -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)