diff options
| author | Eli Zaretskii | 2015-08-01 12:33:48 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2015-08-01 12:33:48 +0300 |
| commit | e663cfec5a2dbf69d0f4360e1f8e05f81a037333 (patch) | |
| tree | 844e54129623d37abf667fe63df15482572ccc3e | |
| parent | e91d2b3b276f684baea19a9844c3f750b64ff96d (diff) | |
| download | emacs-e663cfec5a2dbf69d0f4360e1f8e05f81a037333.tar.gz emacs-e663cfec5a2dbf69d0f4360e1f8e05f81a037333.zip | |
Fix a thinko in 'ffap-gopher-at-point'
* lisp/ffap.el (ffap-gopher-at-point): Fix last change. (Bug#21168)
| -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))) |