diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-11-10 22:03:43 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-11-10 22:03:43 +0000 |
commit | 12b31d3af8cbef44bf4fa72942c680458ddcbffe (patch) | |
tree | 0b65dd64bb6c6c7e65aeb531a37d4dd872425089 /lisp/add-log.el | |
parent | c2a85c12181503c4314aded0ffbba5f7a0d4bd64 (diff) | |
download | emacs-12b31d3af8cbef44bf4fa72942c680458ddcbffe.tar.gz |
(find-change-log): If change-log-default-name
has no dir component, search through parent dirs for it.
Diffstat (limited to 'lisp/add-log.el')
-rw-r--r-- | lisp/add-log.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 9cc2e2d36f8..734fa5ebf86 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -77,16 +77,22 @@ This defaults to the value of `user-mail-address'.") "Find a change log file for \\[add-change-log-entry] and return the name. Optional arg FILE-NAME specifies the file to use. -If FILE-NAME is nil, use the value of `change-log-default-name' if non-nil. -Otherwise, search in the current directory and its successive parents -for a file named `ChangeLog' (or whatever we use on this operating system). +If FILE-NAME is nil, use the value of `change-log-default-name'. +If 'change-log-default-name' is nil, behave as though it were 'ChangeLog' +\(or whatever we use on this operating system). + +If 'change-log-default-name' contains a leading directory component, then +simply find it in the current directory. Otherwise, search in the current +directory and its successive parents for a file so named. Once a file is found, `change-log-default-name' is set locally in the current buffer to the complete file name." ;; If user specified a file name or if this buffer knows which one to use, ;; just use that. (or file-name - (setq file-name change-log-default-name) + (setq file-name (and change-log-default-name + (file-name-directory change-log-default-name) + change-log-default-name)) (progn ;; Chase links in the source file ;; and use the change log in the dir where it points. |