# HG changeset patch # User Richard M. Stallman # Date 873149384 0 # Node ID cdd578704f28fc6984b0c2a4ccc824a1a3b676cd # Parent 791a40c16c0bfcaef2fef62b80f53164121643a5 Fix indentation. diff -r 791a40c16c0b -r cdd578704f28 lisp/files.el --- a/lisp/files.el Mon Sep 01 19:42:16 1997 +0000 +++ b/lisp/files.el Mon Sep 01 21:29:44 1997 +0000 @@ -2742,7 +2742,7 @@ (if (and (eq system-type 'ms-dos) (not (msdos-long-file-names))) (let ((fn (file-name-nondirectory buffer-file-name))) - (string-match "\\`\\([^.]+\\)\\(\\.\\(..?\\)?.?\\|\\)\\'" fn) + (string-match "\\`\\([^.]+\\)\\(\\.\\(..?\\)?.?\\|\\)\\'" fn) (concat (file-name-directory buffer-file-name) "#" (match-string 1 fn) "." (match-string 3 fn) "#"))