diff options
| -rw-r--r-- | lisp/w32-fns.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index ab9c8d82212..8e0e85dc5f1 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el | |||
| @@ -257,7 +257,8 @@ with a definition that really does change some file names." | |||
| 257 | (let ((name (copy-sequence filename)) | 257 | (let ((name (copy-sequence filename)) |
| 258 | (start 0)) | 258 | (start 0)) |
| 259 | ;; leave ':' if part of drive specifier | 259 | ;; leave ':' if part of drive specifier |
| 260 | (if (eq (aref name 1) ?:) | 260 | (if (and (> (length name) 1) |
| 261 | (eq (aref name 1) ?:)) | ||
| 261 | (setq start 2)) | 262 | (setq start 2)) |
| 262 | ;; destructively replace invalid filename characters with ! | 263 | ;; destructively replace invalid filename characters with ! |
| 263 | (while (string-match "[?*:<>|\"\000-\037]" name start) | 264 | (while (string-match "[?*:<>|\"\000-\037]" name start) |