From 1961ef0413be87ece3c5aac82d50c3f29d4e4ca0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 5 Jun 2008 19:14:34 +0000 Subject: [PATCH] (ffap-prompter): Don't use the region. --- lisp/ChangeLog | 4 ++++ lisp/ffap.el | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * ffap.el (ffap-prompter): Don't use the region. + 2008-06-05 Sam Steingold * 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))) -- 2.39.2