diff options
| author | Richard M. Stallman | 1996-01-12 21:47:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-01-12 21:47:32 +0000 |
| commit | 1982da71ac1b0bc44e8cd9fe620caa602afd0ef7 (patch) | |
| tree | 4463c34b1f5203a2354e3f4f57745250c2bcac9f | |
| parent | 46cfcdb4c2cb9dac07b47ff9ab27efab725c35d4 (diff) | |
| download | emacs-1982da71ac1b0bc44e8cd9fe620caa602afd0ef7.tar.gz emacs-1982da71ac1b0bc44e8cd9fe620caa602afd0ef7.zip | |
(convert-standard-filename): Make sure firstdot is not nil.
| -rw-r--r-- | lisp/dos-fns.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el index 50e32863602..5efb8a19f56 100644 --- a/lisp/dos-fns.el +++ b/lisp/dos-fns.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; dos-fns.el --- MS-Dos specific functions. | 1 | ;;; dos-fns.el --- MS-Dos specific functions. |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1991, 1993 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1991, 1993, 1995 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: Morten Welinder (terra@diku.dk) | 5 | ;; Maintainer: Morten Welinder (terra@diku.dk) |
| 6 | ;; Keywords: internal | 6 | ;; Keywords: internal |
| @@ -71,7 +71,7 @@ with a definition that really does change some file names." | |||
| 71 | (concat (substring string 0 8) | 71 | (concat (substring string 0 8) |
| 72 | "." | 72 | "." |
| 73 | (substring string 8)))) | 73 | (substring string 8)))) |
| 74 | (setq firstdot (string-match "\\." string)) | 74 | (setq firstdot (or (string-match "\\." string) (1- (length string)))) |
| 75 | ;; Truncate to 3 chars after the first period. | 75 | ;; Truncate to 3 chars after the first period. |
| 76 | (if (> (length string) (+ firstdot 4)) | 76 | (if (> (length string) (+ firstdot 4)) |
| 77 | (setq string (substring string 0 (+ firstdot 4)))) | 77 | (setq string (substring string 0 (+ firstdot 4)))) |