diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2003-12-24 02:07:48 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2003-12-24 02:07:48 +0000 |
| commit | 220898759c7012ac9cbfe54ee505110926249014 (patch) | |
| tree | 4a5fe9588184271d44daa7c59bf6651c15449736 /lisp/ffap.el | |
| parent | 000eeb15879bc8d158e55551d7927cee0ee174c6 (diff) | |
| download | emacs-220898759c7012ac9cbfe54ee505110926249014.tar.gz | |
(ffap-read-file-or-url): Eliminate reliance of the call to
`completing-read' on a recently fixed bug.
Diffstat (limited to 'lisp/ffap.el')
| -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 668700a5c1f..b249ce8daa0 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el @@ -1216,7 +1216,7 @@ which may actually result in an url rather than a filename." 'ffap-read-file-or-url-internal dir nil - (if dir (cons guess (length dir)) guess) + (if dir (cons guess (1+ (length dir))) guess) (list 'file-name-history)))) ;; Do file substitution like (interactive "F"), suggested by MCOOK. (or (ffap-url-p guess) (setq guess (substitute-in-file-name guess))) |