(convert-standard-filename): Do length check on name

before aref.

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."
   (let ((name (copy-sequence filename))
         (start 0))
     ;; leave ':' if part of drive specifier
-    (if (eq (aref name 1) ?:)
+    (if (and (> (length name) 1)
+             (eq (aref name 1) ?:))
         (setq start 2))
     ;; destructively replace invalid filename characters with !
     (while (string-match "[?*:<>|\"\000-\037]" name start)