mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(add-change-log-entry): Search for existing ChangeLog

Browse source 
in parent dir and its parents.
This commit is contained in:
Richard M. Stallman 1993-01-08 21:13:23 +00:00
parent c193197b50
commit 6d7ee041a2
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/add-log.el
View file

@ -70,6 +70,22 @@ Third arg OTHER-WINDOW non-nil means visit in other window."
;; for several related directories.
(setq file-name
(expand-file-name (or (file-symlink-p file-name) file-name)))
;; Move up in the dir hierarchy till we find a change log file.
(let ((file1 file-name)
parent-dir)
(while (and (not (file-exists-p file1))
(progn (setq parent-dir
(file-name-directory
(directory-file-name
(file-name-directory file1))))
;; Give up if we are already at the root dir.
(not (string= (file-name-directory file1) parent-dir))))
;; Move up to the parent dir and try again.
(setq file1 (expand-file-name (change-log-name) parent-dir)))
;; If we found a change log in a parent, use that.
(if (file-exists-p file1)
(setq file-name file1)))
(set (make-local-variable 'change-log-default-name) file-name)
;; Set ENTRY to the file name to use in the new entry.