Mercurial > emacs

comparison lisp/dos-fns.el @ 15195:160e99f12c6d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Comment change.
author Richard M. Stallman <rms@gnu.org>
date Thu, 09 May 1996 17:41:53 +0000
parents d46c1e8bdb0d
children 05b3a08b268f
comparison
equal deleted inserted replaced
15194:7cfe542d5a79 15195:160e99f12c6d
55 filename 55 filename
56 (let* ((dir (file-name-directory filename)) 56 (let* ((dir (file-name-directory filename))
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 ?_))
64 ;; Get rid of invalid characters. 63 ;; Get rid of invalid characters.
65 (while (setq i (string-match 64 (while (setq i (string-match