Mercurial > emacs

comparison lisp/add-log.el @ 5455:cbc904743f16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(change-log-name): Let default name for ms-dos be "change.log".
author Richard M. Stallman <rms@gnu.org>
date Thu, 06 Jan 1994 04:32:34 +0000
parents 7caf06258d7b
children 4507b4972c4a
comparison
equal deleted inserted replaced
5454:751ea2cff517 5455:cbc904743f16
48 This defaults to the value returned by `user-login-name', followed by 48 This defaults to the value returned by `user-login-name', followed by
49 an `@' character, followed by the value returned by `system-name'.") 49 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 ()
57 "Prompt for a change log name." 61 "Prompt for a change log name."
58 (let ((default (change-log-name))) 62 (let ((default (change-log-name)))