[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#6299: In read-file-name: (args-out-of-range "c:" 0 3)
From: |
Stefan Monnier |
Subject: |
bug#6299: In read-file-name: (args-out-of-range "c:" 0 3) |
Date: |
Sun, 30 May 2010 10:18:44 -0400 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) |
>>> What about (file-name-nondirectory "c:")?
ELISP> (file-name-nondirectory "c:")
>> ""
Good thanks.
>>> And what about (file-name-all-completions
>>> (file-name-nondirectory "c:")
>>> (file-name-directory "c:")) ?
>> Returns all files and dirs in C:/
Again, thank you.
> The same + tramp's symbols (fcp:, psftp:, plinkx: etc) and tramp's
> usernames ("some.one@" etc).
Not sure if that's correct, but it's a separate problem.
I've installed the patch below which should hopefully fix the original problem.
Please confirm.
Stefan
=== modified file 'lisp/minibuffer.el'
--- lisp/minibuffer.el 2010-05-12 00:39:46 +0000
+++ lisp/minibuffer.el 2010-05-30 14:13:36 +0000
@@ -1342,7 +1342,14 @@
((eq (car-safe action) 'boundaries)
(let ((start (length (file-name-directory string)))
(end (string-match-p "/" (cdr action))))
- (list* 'boundaries start end)))
+ (list* 'boundaries
+ ;; if `string' is "C:" in w32, (file-name-directory string)
+ ;; returns "C:/", so `start' is 3 rather than 2.
+ ;; Not quite sure what is The Right Fix, but clipping it
+ ;; back to 2 will work for this particular case. We'll
+ ;; see if we can come up with a better fix when we bump
+ ;; into more such problematic cases.
+ (min start (length string)) end)))
((eq action 'lambda)
(if (zerop (length string))
@@ -1395,17 +1402,18 @@
(cond
((eq (car-safe action) 'boundaries)
;; For the boundaries, we can't really delegate to
- ;; completion-file-name-table and then fix them up, because it
- ;; would require us to track the relationship between `str' and
+ ;; substitute-in-file-name+completion-file-name-table and then fix
+ ;; them up (as we do for the other actions), because it would
+ ;; require us to track the relationship between `str' and
;; `string', which is difficult. And in any case, if
- ;; substitute-in-file-name turns "fo-$TO-ba" into "fo-o/b-ba", there's
- ;; no way for us to return proper boundaries info, because the
- ;; boundary is not (yet) in `string'.
- ;; FIXME: Actually there is a way to return correct boundaries info,
- ;; at the condition of modifying the all-completions return accordingly.
- (let ((start (length (file-name-directory string)))
- (end (string-match-p "/" (cdr action))))
- (list* 'boundaries start end)))
+ ;; substitute-in-file-name turns "fo-$TO-ba" into "fo-o/b-ba",
+ ;; there's no way for us to return proper boundaries info, because
+ ;; the boundary is not (yet) in `string'.
+ ;;
+ ;; FIXME: Actually there is a way to return correct boundaries
+ ;; info, at the condition of modifying the all-completions
+ ;; return accordingly. But for now, let's not bother.
+ (completion-file-name-table string pred action))
(t
(let* ((default-directory
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Lennart Borgman, 2010/05/28
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Eli Zaretskii, 2010/05/29
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Stefan Monnier, 2010/05/29
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Lennart Borgman, 2010/05/29
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Lennart Borgman, 2010/05/29
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Stefan Monnier, 2010/05/29
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Lennart Borgman, 2010/05/29
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Stefan Monnier, 2010/05/29
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Juanma Barranquero, 2010/05/30
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Lennart Borgman, 2010/05/30
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3),
Stefan Monnier <=
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Lennart Borgman, 2010/05/30
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Stefan Monnier, 2010/05/30
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Lennart Borgman, 2010/05/30
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Stefan Monnier, 2010/05/30
- bug#6299: In read-file-name: (args-out-of-range "c:" 0 3), Lennart Borgman, 2010/05/30