mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki 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
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)))