From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 6 Jan 1994 04:32:34 +0000 (+0000)
Subject: (change-log-name): Let default name for ms-dos be "change.log".
X-Git-Tag: emacs-19.34~10396
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8afc29f0bc9e31dd056d458b96da9cada1427d13;p=emacs.git

(change-log-name): Let default name for ms-dos be "change.log".
---

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'.")
 
 (defun change-log-name ()
   (or change-log-default-name
-      (if (eq system-type 'vax-vms) "$CHANGE_LOG$.TXT" "ChangeLog")))
+      (if (eq system-type 'vax-vms) 
+	  "$CHANGE_LOG$.TXT" 
+	(if (eq system-type 'ms-dos)
+	    "change.log"
+	  "ChangeLog"))))
 
 ;;;###autoload
 (defun prompt-for-change-log-name ()