Mercurial > emacs
comparison lisp/add-log.el @ 5150:60fa14264c3b
(add-change-log-entry): put buffer in change-log-mode.
(find-change-log): correct calculation of file one directory out.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 24 Nov 1993 01:53:58 +0000 |
| parents | 61c4250fb760 |
| children | 7caf06258d7b |
comparison
equal
deleted
inserted
replaced
| 5149:c4c063887b13 | 5150:60fa14264c3b |
|---|---|
| 101 (file-name-directory file1)))) | 101 (file-name-directory file1)))) |
| 102 ;; Give up if we are already at the root dir. | 102 ;; Give up if we are already at the root dir. |
| 103 (not (string= (file-name-directory file1) | 103 (not (string= (file-name-directory file1) |
| 104 parent-dir)))) | 104 parent-dir)))) |
| 105 ;; Move up to the parent dir and try again. | 105 ;; Move up to the parent dir and try again. |
| 106 (setq file1 (expand-file-name (change-log-name) parent-dir))) | 106 (setq file1 (expand-file-name |
| 107 (file-name-nondirectory (change-log-name)) | |
| 108 parent-dir))) | |
| 107 ;; If we found a change log in a parent, use that. | 109 ;; If we found a change log in a parent, use that. |
| 108 (if (or (get-file-buffer file1) (file-exists-p file1)) | 110 (if (or (get-file-buffer file1) (file-exists-p file1)) |
| 109 (setq file-name file1))) | 111 (setq file-name file1))) |
| 110 ;; Make a local variable in this buffer so we needn't search again. | 112 ;; Make a local variable in this buffer so we needn't search again. |
| 111 (set (make-local-variable 'change-log-default-name) file-name) | 113 (set (make-local-variable 'change-log-default-name) file-name) |
| 148 (file-name-nondirectory buffer-file-name)))) | 150 (file-name-nondirectory buffer-file-name)))) |
| 149 | 151 |
| 150 (if (and other-window (not (equal file-name buffer-file-name))) | 152 (if (and other-window (not (equal file-name buffer-file-name))) |
| 151 (find-file-other-window file-name) | 153 (find-file-other-window file-name) |
| 152 (find-file file-name)) | 154 (find-file file-name)) |
| 155 (or (eq major-mode 'change-log-mode) | |
| 156 (change-log-mode)) | |
| 153 (undo-boundary) | 157 (undo-boundary) |
| 154 (goto-char (point-min)) | 158 (goto-char (point-min)) |
| 155 (if (looking-at (concat (regexp-quote (substring (current-time-string) | 159 (if (looking-at (concat (regexp-quote (substring (current-time-string) |
| 156 0 10)) | 160 0 10)) |
| 157 ".* " (regexp-quote add-log-full-name) | 161 ".* " (regexp-quote add-log-full-name) |