diff options
| -rw-r--r-- | lisp/dos-fns.el | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el index ff1b0ba9cb9..924f5a9b76a 100644 --- a/lisp/dos-fns.el +++ b/lisp/dos-fns.el | |||
| @@ -57,7 +57,6 @@ with a definition that really does change some file names." | |||
| 57 | (string (copy-sequence (file-name-nondirectory filename))) | 57 | (string (copy-sequence (file-name-nondirectory filename))) |
| 58 | (lastchar (aref string (1- (length string)))) | 58 | (lastchar (aref string (1- (length string)))) |
| 59 | i firstdot) | 59 | i firstdot) |
| 60 | ;; If the argument is empty, just return it. | ||
| 61 | ;; Change a leading period to a leading underscore. | 60 | ;; Change a leading period to a leading underscore. |
| 62 | (if (= (aref string 0) ?.) | 61 | (if (= (aref string 0) ?.) |
| 63 | (aset string 0 ?_)) | 62 | (aset string 0 ?_)) |