Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 10:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(convert-standard-filename): Make sure firstdot is not nil.

Browse source
This commit is contained in:
Richard M. Stallman 1996-01-12 21:47:32 +00:00
parent 46cfcdb4c2
commit 1982da71ac
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/dos-fns.el
View file

@ -1,6 +1,6 @@
;;; dos-fns.el --- MS-Dos specific functions.
;; Copyright (C) 1991, 1993 Free Software Foundation, Inc.
;; Copyright (C) 1991, 1993, 1995 Free Software Foundation, Inc.
;; Maintainer: Morten Welinder (terra@diku.dk)
;; Keywords: internal
@ -71,7 +71,7 @@ with a definition that really does change some file names."
(concat (substring string 0 8)
"."
(substring string 8))))
(setq firstdot (string-match "\\." string))
(setq firstdot (or (string-match "\\." string) (1- (length string))))
;; Truncate to 3 chars after the first period.
(if (> (length string) (+ firstdot 4))
(setq string (substring string 0 (+ firstdot 4))))