Mercurial > emacs

comparison lisp/ffap.el @ 87649:107ccd98fa12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--rel--22 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-987
author Miles Bader <miles@gnu.org>
date Tue, 08 Jan 2008 20:46:54 +0000
parents 5a96d566fe43 73661ddc7ac7
children 3091cbee6fd8 606f2d163a64
comparison
equal deleted inserted replaced
87648:7ae99e295dfd 87649:107ccd98fa12
1 ;;; ffap.el --- find file (or url) at point 1 ;;; ffap.el --- find file (or url) at point
2 2
3 ;; Copyright (C) 1995, 1996, 1997, 2000, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1995, 1996, 1997, 2000, 2001, 2002, 2003, 2004,
4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. 4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
5 5
6 ;; Author: Michelangelo Grigni <mic@mathcs.emory.edu> 6 ;; Author: Michelangelo Grigni <mic@mathcs.emory.edu>
7 ;; Maintainer: FSF 7 ;; Maintainer: FSF
8 ;; Created: 29 Mar 1993 8 ;; Created: 29 Mar 1993
9 ;; Keywords: files, hypermedia, matching, mouse, convenience 9 ;; Keywords: files, hypermedia, matching, mouse, convenience
1260 (setq guess 1260 (setq guess
1261 (abbreviate-file-name (expand-file-name guess)) 1261 (abbreviate-file-name (expand-file-name guess))
1262 )) 1262 ))
1263 (setq dir (file-name-directory guess)))) 1263 (setq dir (file-name-directory guess))))
1264 (let ((minibuffer-completing-file-name t) 1264 (let ((minibuffer-completing-file-name t)
1265 (completion-ignore-case read-file-name-completion-ignore-case)) 1265 (completion-ignore-case read-file-name-completion-ignore-case)
1266 ;; because of `rfn-eshadow-update-overlay'.
1267 (file-name-handler-alist
1268 (cons (cons ffap-url-regexp 'url-file-handler)
1269 file-name-handler-alist)))
1266 (setq guess 1270 (setq guess
1267 (completing-read 1271 (completing-read
1268 prompt 1272 prompt
1269 'ffap-read-file-or-url-internal 1273 'ffap-read-file-or-url-internal
1270 dir 1274 dir