From 1d6d1f60bfe010d46af442b9a73dc228dde09fff Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sat, 12 Apr 2003 19:44:02 +0000 Subject: [PATCH] (add-change-log-entry): Get add-log-full-name and add-log-mailing-address from the right buffer. --- lisp/ChangeLog | 5 +++++ lisp/add-log.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cd8efbd3ad8..048d5a324b0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-04-12 Morten Welinder + + * add-log.el (add-change-log-entry): Get add-log-full-name and + add-log-mailing-address from the right buffer. + 2003-04-07 Francesco Potort,Al(B * xt-mouse.el (xterm-mouse-event-read): New function. diff --git a/lisp/add-log.el b/lisp/add-log.el index 61a29beda84..e30938cfa0e 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -441,6 +441,9 @@ non-nil, otherwise in local time." (or file-name (find-change-log file-name buffer-file)))) ;; Set ENTRY to the file name to use in the new entry. (entry (add-log-file-name buffer-file file-name)) + ;; Get copies from this buffer + (full-name add-log-full-name) + (mailing-address add-log-mailing-address) bound) (if (or (and other-window (not (equal file-name buffer-file-name))) @@ -452,8 +455,8 @@ non-nil, otherwise in local time." (undo-boundary) (goto-char (point-min)) (let ((new-entry (concat (funcall add-log-time-format) - " " add-log-full-name - " <" add-log-mailing-address ">"))) + " " full-name + " <" mailing-address ">"))) (if (looking-at (regexp-quote new-entry)) (forward-line 1) (insert new-entry "\n\n"))) -- 2.39.5