diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-24 01:53:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-24 01:53:58 +0000 |
| commit | e4af0fa342b04e1e09d317cc90bfa9749a4e983e (patch) | |
| tree | dc0f02e6414a4ccd4d2ffacad93a269661d6330d /lisp/add-log.el | |
| parent | e587aca58abe06926567204a2733d702c56c4983 (diff) | |
| download | emacs-e4af0fa342b04e1e09d317cc90bfa9749a4e983e.tar.gz | |
(add-change-log-entry): put buffer in change-log-mode.
(find-change-log): correct calculation of file one directory out.
Diffstat (limited to 'lisp/add-log.el')
| -rw-r--r-- | lisp/add-log.el | 6 |
1 files changed, 5 insertions, 1 deletions
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) |