441 |
(or file-name (find-change-log file-name buffer-file)))) |
(or file-name (find-change-log file-name buffer-file)))) |
442 |
;; Set ENTRY to the file name to use in the new entry. |
;; Set ENTRY to the file name to use in the new entry. |
443 |
(entry (add-log-file-name buffer-file file-name)) |
(entry (add-log-file-name buffer-file file-name)) |
444 |
|
;; Get copies from this buffer |
445 |
|
(full-name add-log-full-name) |
446 |
|
(mailing-address add-log-mailing-address) |
447 |
bound) |
bound) |
448 |
|
|
449 |
(if (or (and other-window (not (equal file-name buffer-file-name))) |
(if (or (and other-window (not (equal file-name buffer-file-name))) |
455 |
(undo-boundary) |
(undo-boundary) |
456 |
(goto-char (point-min)) |
(goto-char (point-min)) |
457 |
(let ((new-entry (concat (funcall add-log-time-format) |
(let ((new-entry (concat (funcall add-log-time-format) |
458 |
" " add-log-full-name |
" " full-name |
459 |
" <" add-log-mailing-address ">"))) |
" <" mailing-address ">"))) |
460 |
(if (looking-at (regexp-quote new-entry)) |
(if (looking-at (regexp-quote new-entry)) |
461 |
(forward-line 1) |
(forward-line 1) |
462 |
(insert new-entry "\n\n"))) |
(insert new-entry "\n\n"))) |