diff options
| -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 c0ab1af80f5..825a449955f 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el | |||
| @@ -1134,7 +1134,7 @@ Sets the variable `ffap-string-at-point-region' to the bounds of URL, if any." | |||
| 1134 | (match-end 2)))) | 1134 | (match-end 2)))) |
| 1135 | (set var val) | 1135 | (set var val) |
| 1136 | (forward-line 1))) | 1136 | (forward-line 1))) |
| 1137 | (setcdr ffap-string-at-point-region (point)) | 1137 | (setcdr ffap-string-at-point-region (list (point))) |
| 1138 | (if (and path (string-match "^ftp:.*@" path)) | 1138 | (if (and path (string-match "^ftp:.*@" path)) |
| 1139 | (concat "ftp://" | 1139 | (concat "ftp://" |
| 1140 | (substring path 4 (1- (match-end 0))) | 1140 | (substring path 4 (1- (match-end 0))) |