Commit 675a998f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(add-change-log-entry): put buffer in change-log-mode.

(find-change-log): correct calculation of file one directory out.
parent 4b43d418
......@@ -103,7 +103,9 @@ current buffer to the complete file name."
(not (string= (file-name-directory file1)
;; 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))
;; 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)
(goto-char (point-min))
(if (looking-at (concat (regexp-quote (substring (current-time-string)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment