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

2 files changed, 9 insertions, 1 deletions

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)))