mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

Fix a thinko in 'ffap-gopher-at-point'

Browse Source 
* lisp/ffap.el (ffap-gopher-at-point): Fix last change.  (Bug#21168)
This commit is contained in:
Eli Zaretskii 2015-08-01 12:33:48 +03:00
parent e91d2b3b27
commit e663cfec5a
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

@ -1134,7 +1134,7 @@ Sets the variable `ffap-string-at-point-region' to the bounds of URL, if any."
(match-end 2))))
(set var val)
(forward-line 1)))
(setcdr ffap-string-at-point-region (point))
(setcdr ffap-string-at-point-region (list (point)))
(if (and path (string-match "^ftp:.*@" path))
(concat "ftp://"
(substring path 4 (1- (match-end 0)))