andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ffap-pass-wildcards-to-dired): New user option to

Browse source 
ensure dired always handles wildcards passed to ffap.
(find-file-at-point): Use it.
(ffap-dired-wildcards): Doc fix.
This commit is contained in:
Juri Linkov 2005-04-07 15:44:30 +00:00
parent 34d86208a3
commit 5b523a7744
2 changed files with 23 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2005-04-07 Benjamin Rutt <brutt@bloomington.in.us>
* ffap.el (ffap-pass-wildcards-to-dired): New user option to
ensure dired always handles wildcards passed to ffap.
(find-file-at-point): Use it.
(ffap-dired-wildcards): Doc fix.
2005-04-07 Juri Linkov <juri@jurta.org>
* simple.el (next-error-overlay-arrow-position): New defvar.

20
lisp/ffap.el
View file

@ -217,10 +217,13 @@ Sensible values are nil, \"news\", or \"mailto\"."
"*A regexp matching filename wildcard characters, or nil.
If `find-file-at-point' gets a filename matching this pattern,
it passes it on to `find-file' with non-nil WILDCARDS argument,
which expands wildcards and visits multiple files. To visit
a file whose name contains wildcard characters you can suppress
wildcard expansion by setting `find-file-wildcards'.
and `ffap-pass-wildcards-to-dired' is nil, it passes it on to
`find-file' with non-nil WILDCARDS argument, which expands
wildcards and visits multiple files. To visit a file whose name
contains wildcard characters you can suppress wildcard expansion
by setting `find-file-wildcards'. If `find-file-at-point' gets a
filename matching this pattern and `ffap-pass-wildcards-to-dired'
is non-nil, it passes it on to `dired'.
If `dired-at-point' gets a filename matching this pattern,
it passes it on to `dired'."
@ -230,6 +233,11 @@ it passes it on to `dired'."
)
:group 'ffap)
(defcustom ffap-pass-wildcards-to-dired nil
"*If non-nil, pass filenames matching `ffap-dired-wildcards' to dired."
:type 'boolean
:group 'ffap)
(defcustom ffap-newfile-prompt nil
;; Suggestion from RHOGEE, 11 Jul 1994. Disabled, I think this is
;; better handled by `find-file-not-found-hooks'.
@ -1386,6 +1394,10 @@ See <ftp://ftp.mathcs.emory.edu/pub/mic/emacs/> for latest version."
((ffap-url-p filename)
(let (current-prefix-arg) ; w3 2.3.25 bug, reported by KPC
(funcall ffap-url-fetcher filename)))
((and ffap-pass-wildcards-to-dired
ffap-dired-wildcards
(string-match ffap-dired-wildcards filename))
(funcall ffap-directory-finder filename))
((and ffap-dired-wildcards
(string-match ffap-dired-wildcards filename)
find-file-wildcards