Mercurial > emacs
comparison lisp/ffap.el @ 87649:107ccd98fa12
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 |