Mercurial > emacs

changeset 95592:d05c87c7a8ed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ffap-prompter): Don't use the region.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 05 Jun 2008 19:14:34 +0000
parents fff438dcde9e
children 54d39499f129
files lisp/ChangeLog lisp/ffap.el
diffstat 2 files changed, 9 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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)))