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))) |