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

* lisp/ffap.el (ffap-lax-url): New var.

Browse Source 
(ffap-url-at-point): Use it.
(ffap-file-at-point): Avoid returning just "/".

Fixes: debbugs:17723
This commit is contained in:
Ivan Andrus 2014-06-11 22:29:50 -04:00 committed by Stefan Monnier
parent 82fb2a08db
commit 7c35a92251
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2014-06-12 Ivan Andrus <darthandrus@gmail.com>
* ffap.el (ffap-lax-url): New var (bug#17723).
(ffap-url-at-point): Use it.
(ffap-file-at-point): Avoid returning just "/".
2014-06-12 Matthias Meulien <orontee@gmail.com>
* progmodes/python.el (class skeleton): Don't erase last char of class

11
lisp/ffap.el
View File

@ -163,6 +163,12 @@ schemes (e.g. \"ftp\"); in that case, only convert those URLs."
:group 'ffap
:version "24.3")
(defcustom ffap-lax-url nil
"If non-nil, allow lax URL matching."
:type 'boolean
:group 'ffap
:version "24.5")
(defcustom ffap-ftp-default-user "anonymous"
"User name in FTP file names generated by `ffap-host-to-path'.
Note this name may be omitted if it equals the default
@ -1096,7 +1102,7 @@ Assumes the buffer has not changed."
(w3-view-this-url t))
(let ((thing-at-point-beginning-of-url-regexp ffap-url-regexp)
(thing-at-point-default-mail-uri-scheme ffap-foo-at-bar-prefix))
(thing-at-point-url-at-point t
(thing-at-point-url-at-point ffap-lax-url
(if (use-region-p)
(cons (region-beginning)
(region-end))))))))
@ -1253,7 +1259,8 @@ which may actually result in an URL rather than a filename."
(not (ffap-file-exists-string dir))
(not (equal dir (setq dir (file-name-directory
(directory-file-name dir)))))))
(ffap-file-exists-string dir)))
(and (not (string= dir "/"))
(ffap-file-exists-string dir))))
)
(set-match-data data))))