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

8afc29f0 · Richard M. Stallman · e3c72369 · 8afc29f0
Commit 8afc29f0 authored Jan 06, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/add-log.el lisp/add-log.el +5 -1

No files found.
--- 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 ()