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

This commit is contained in:
Stefan Monnier 2008-06-05 19:14:34 +00:00
parent 1d1d90d624
commit 1961ef0413
2 changed files with 9 additions and 1 deletions

View file

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

View file

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