Mercurial > emacs
comparison lisp/add-log.el @ 13648:ce23ae11d3fa
(add-change-log-entry): Initialize add-log-full-name
and add-log-mailing-address before prompting.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 25 Nov 1995 03:47:12 +0000 |
parents | 86470b361571 |
children | ba34746d66fd |
comparison
equal
deleted
inserted
replaced
13647:40e469e13255 | 13648:ce23ae11d3fa |
---|---|
147 Third arg OTHER-WINDOW non-nil means visit in other window. | 147 Third arg OTHER-WINDOW non-nil means visit in other window. |
148 Fourth arg NEW-ENTRY non-nil means always create a new entry at the front; | 148 Fourth arg NEW-ENTRY non-nil means always create a new entry at the front; |
149 never append to an existing entry." | 149 never append to an existing entry." |
150 (interactive (list current-prefix-arg | 150 (interactive (list current-prefix-arg |
151 (prompt-for-change-log-name))) | 151 (prompt-for-change-log-name))) |
152 (or add-log-full-name | |
153 (setq add-log-full-name (user-full-name))) | |
154 (or add-log-mailing-address | |
155 (setq add-log-mailing-address user-mail-address)) | |
152 (if whoami | 156 (if whoami |
153 (progn | 157 (progn |
154 (setq add-log-full-name (read-input "Full name: " add-log-full-name)) | 158 (setq add-log-full-name (read-input "Full name: " add-log-full-name)) |
155 ;; Note that some sites have room and phone number fields in | 159 ;; Note that some sites have room and phone number fields in |
156 ;; full name which look silly when inserted. Rather than do | 160 ;; full name which look silly when inserted. Rather than do |
157 ;; anything about that here, let user give prefix argument so that | 161 ;; anything about that here, let user give prefix argument so that |
158 ;; s/he can edit the full name field in prompter if s/he wants. | 162 ;; s/he can edit the full name field in prompter if s/he wants. |
159 (setq add-log-mailing-address | 163 (setq add-log-mailing-address |
160 (read-input "Mailing address: " add-log-mailing-address)))) | 164 (read-input "Mailing address: " add-log-mailing-address)))) |
161 (or add-log-full-name | |
162 (setq add-log-full-name (user-full-name))) | |
163 (or add-log-mailing-address | |
164 (setq add-log-mailing-address user-mail-address)) | |
165 (let ((defun (funcall (or add-log-current-defun-function | 165 (let ((defun (funcall (or add-log-current-defun-function |
166 'add-log-current-defun))) | 166 'add-log-current-defun))) |
167 paragraph-end entry) | 167 paragraph-end entry) |
168 | 168 |
169 (setq file-name (expand-file-name (find-change-log file-name))) | 169 (setq file-name (expand-file-name (find-change-log file-name))) |