diff options
| author | Richard M. Stallman | 1994-01-06 04:32:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-01-06 04:32:34 +0000 |
| commit | 8afc29f0bc9e31dd056d458b96da9cada1427d13 (patch) | |
| tree | 1f76769ebd23a2feb16b4228b1075265f4481942 | |
| parent | e3c72369dfc8166ac2d09d7a4f972048cde7c67a (diff) | |
| download | emacs-8afc29f0bc9e31dd056d458b96da9cada1427d13.tar.gz emacs-8afc29f0bc9e31dd056d458b96da9cada1427d13.zip | |
(change-log-name): Let default name for ms-dos be "change.log".
| -rw-r--r-- | lisp/add-log.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 0978e45ac6b..acb789bb52a 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el | |||
| @@ -50,7 +50,11 @@ an `@' character, followed by the value returned by `system-name'.") | |||
| 50 | 50 | ||
| 51 | (defun change-log-name () | 51 | (defun change-log-name () |
| 52 | (or change-log-default-name | 52 | (or change-log-default-name |
| 53 | (if (eq system-type 'vax-vms) "$CHANGE_LOG$.TXT" "ChangeLog"))) | 53 | (if (eq system-type 'vax-vms) |
| 54 | "$CHANGE_LOG$.TXT" | ||
| 55 | (if (eq system-type 'ms-dos) | ||
| 56 | "change.log" | ||
| 57 | "ChangeLog")))) | ||
| 54 | 58 | ||
| 55 | ;;;###autoload | 59 | ;;;###autoload |
| 56 | (defun prompt-for-change-log-name () | 60 | (defun prompt-for-change-log-name () |