From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 24 Nov 1993 01:53:58 +0000 (+0000)
Subject: (add-change-log-entry): put buffer in change-log-mode.
X-Git-Tag: emacs-19.34~10701
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=675a998f8c373b8d3ec180524dc22568a597dfce;p=emacs.git

(add-change-log-entry): put buffer in change-log-mode.
(find-change-log): correct calculation of file one directory out.
---

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)