diff options
| author | Richard M. Stallman | 1996-05-09 17:41:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-05-09 17:41:53 +0000 |
| commit | 9998d430a7abbafc6a89911d679248a77a3c8ad3 (patch) | |
| tree | 4d30edfd165d8ade455788187dc99ab418dc2018 | |
| parent | a0844449c576cac779cc3a3fd69c09b5c3d0d443 (diff) | |
| download | emacs-9998d430a7abbafc6a89911d679248a77a3c8ad3.tar.gz emacs-9998d430a7abbafc6a89911d679248a77a3c8ad3.zip | |
Comment change.
| -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 ?_)) |