# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1072374288 0
# Node ID 89450ca4c47e5a3293a1b7ae04497e48bf6e6904
# Parent  93fc4ea3546c57d1d84307f74889d6c5778f642e
(ffap-read-file-or-url): Revert previous change.

diff -r 93fc4ea3546c -r 89450ca4c47e lisp/ffap.el
--- a/lisp/ffap.el	Thu Dec 25 17:31:23 2003 +0000
+++ b/lisp/ffap.el	Thu Dec 25 17:44:48 2003 +0000
@@ -1216,7 +1216,7 @@
 	     'ffap-read-file-or-url-internal
 	     dir
 	     nil
-	     (if dir (cons guess (1+ (length dir))) guess)
+	     (if dir (cons guess (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)))