diff options
| author | Richard M. Stallman | 1997-09-01 21:29:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-01 21:29:44 +0000 |
| commit | 5b4dd2e27e7ddde17435d2a90ad27747bfb30b96 (patch) | |
| tree | ab4d1530205cda86bb154b43ae3fcba93fa0a5a0 | |
| parent | 68e3e5f5e28c48be7b6b9a81068752f95f3d99b7 (diff) | |
| download | emacs-5b4dd2e27e7ddde17435d2a90ad27747bfb30b96.tar.gz emacs-5b4dd2e27e7ddde17435d2a90ad27747bfb30b96.zip | |
Fix indentation.
| -rw-r--r-- | lisp/files.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 896640171c1..7b5bca4a4db 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -2742,7 +2742,7 @@ See also `auto-save-file-name-p'." | |||
| 2742 | (if (and (eq system-type 'ms-dos) | 2742 | (if (and (eq system-type 'ms-dos) |
| 2743 | (not (msdos-long-file-names))) | 2743 | (not (msdos-long-file-names))) |
| 2744 | (let ((fn (file-name-nondirectory buffer-file-name))) | 2744 | (let ((fn (file-name-nondirectory buffer-file-name))) |
| 2745 | (string-match "\\`\\([^.]+\\)\\(\\.\\(..?\\)?.?\\|\\)\\'" fn) | 2745 | (string-match "\\`\\([^.]+\\)\\(\\.\\(..?\\)?.?\\|\\)\\'" fn) |
| 2746 | (concat (file-name-directory buffer-file-name) | 2746 | (concat (file-name-directory buffer-file-name) |
| 2747 | "#" (match-string 1 fn) | 2747 | "#" (match-string 1 fn) |
| 2748 | "." (match-string 3 fn) "#")) | 2748 | "." (match-string 3 fn) "#")) |