# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 784505023 0
# Node ID f54af6fe889e2e4bddaee3fc5238163b7167e56f
# Parent  841621b2305feefba45e4550cd45327a91a50d8b
(find-change-log): If change-log-default-name
has no dir component, search through parent dirs for it.

diff -r 841621b2305f -r f54af6fe889e lisp/add-log.el
--- a/lisp/add-log.el	Thu Nov 10 19:51:28 1994 +0000
+++ b/lisp/add-log.el	Thu Nov 10 22:03:43 1994 +0000
@@ -77,16 +77,22 @@
   "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.