Commit 9998d430 authored by Richard M. Stallman's avatar Richard M. Stallman

Comment change.

parent a0844449
......@@ -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 ?_))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment