From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 5 Jun 2008 19:14:34 +0000 (+0000)
Subject: (ffap-prompter): Don't use the region.
X-Git-Tag: emacs-pretest-23.0.90~5071
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1961ef0413be87ece3c5aac82d50c3f29d4e4ca0;p=emacs.git

(ffap-prompter): Don't use the region.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dfbdb8269fe..7bc14c264ea 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/ffap.el b/lisp/ffap.el
index 4a63b769b97..8c2bf71afde 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1398,7 +1398,11 @@ Uses the face `ffap' if it is defined, or else `highlight'."
 	(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)))