mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
before aref.
This commit is contained in:
Andrew Innes 2001-01-02 22:38:06 +00:00
parent 064866e7f5
commit 82d5a7b2a6
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/w32-fns.el
View file

@ -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)