From 675a998f8c373b8d3ec180524dc22568a597dfce Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 24 Nov 1993 01:53:58 +0000 Subject: [PATCH] (add-change-log-entry): put buffer in change-log-mode. (find-change-log): correct calculation of file one directory out. --- lisp/add-log.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/add-log.el b/lisp/add-log.el index ffc1494f85c..8c7bdcd85a9 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -103,7 +103,9 @@ current buffer to the complete file name." (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))) + (setq file1 (expand-file-name + (file-name-nondirectory (change-log-name)) + parent-dir))) ;; If we found a change log in a parent, use that. (if (or (get-file-buffer file1) (file-exists-p file1)) (setq file-name file1))) @@ -150,6 +152,8 @@ never append to an existing entry." (if (and other-window (not (equal file-name buffer-file-name))) (find-file-other-window file-name) (find-file file-name)) + (or (eq major-mode 'change-log-mode) + (change-log-mode)) (undo-boundary) (goto-char (point-min)) (if (looking-at (concat (regexp-quote (substring (current-time-string) -- 2.39.5