Comment change.

This commit is contained in:
Richard M. Stallman 1996-05-09 17:41:53 +00:00
parent a0844449c5
commit 9998d430a7

View file

@ -57,7 +57,6 @@ with a definition that really does change some file names."
(string (copy-sequence (file-name-nondirectory filename)))
(lastchar (aref string (1- (length string))))
i firstdot)
;; If the argument is empty, just return it.
;; Change a leading period to a leading underscore.
(if (= (aref string 0) ?.)
(aset string 0 ?_))