# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1212693274 0
# Node ID d05c87c7a8edd6128b4b406d48b327612065c809
# Parent  fff438dcde9e6123597c2087299e7b445af00339
(ffap-prompter): Don't use the region.

diff -r fff438dcde9e -r d05c87c7a8ed lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jun 05 18:52:48 2008 +0000
+++ b/lisp/ChangeLog	Thu Jun 05 19:14:34 2008 +0000
@@ -1,3 +1,7 @@
+2008-06-05  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* ffap.el (ffap-prompter): Don't use the region.
+
 2008-06-05  Sam Steingold  <sds@gnu.org>
 
 	* vc-cvs.el (vc-cvs-registered): Consider a directory with a CVS
diff -r fff438dcde9e -r d05c87c7a8ed lisp/ffap.el
--- a/lisp/ffap.el	Thu Jun 05 18:52:48 2008 +0000
+++ b/lisp/ffap.el	Thu Jun 05 19:14:34 2008 +0000
@@ -1398,7 +1398,11 @@
 	(ffap-read-file-or-url
 	 (if ffap-url-regexp "Find file or URL: " "Find file: ")
 	 (prog1
-	     (setq guess (or guess (ffap-guesser))) ; using ffap-alist here
+             (let ((mark-active nil))
+               ;; Don't use the region here, since it can be something
+               ;; completely unwieldy.  If the user wants that, she could
+               ;; use M-w before and then C-y.  --Stef
+               (setq guess (or guess (ffap-guesser)))) ; using ffap-alist here
 	   (and guess (ffap-highlight))
 	   )))
     (ffap-highlight t)))