mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(add-change-log-entry): Set up mailing address and full name later,

Browse source 
and don't alter add-log-mailing-address or add-log-full-name.
This commit is contained in:
Richard M. Stallman 2004-10-27 17:51:08 +00:00
parent 636004b972
commit 563631fe72
2 changed files with 35 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/ChangeLog
View file

@ -1,5 +1,23 @@
2004-10-27 Richard M. Stallman <rms@gnu.org>
* add-log.el (add-change-log-entry): Set up mailing address
and full name later, and don't alter add-log-mailing-address
or add-log-full-name.
* elide-head.el (elide-head): Change error to message.
(elide-head-show): Likewise.
* apropos.el (apropos-macrop): Doc fix.
* mouse.el (mouse-show-mark): Do most processing the same
regardless of transient-mark-mode.
* shadowfile.el (shadow-copy-files): Use interactive-p
only to control whether to print a message.
* tar-mode.el (tar-mode): Use write-contents-functions,
not write-contents-hooks.
* eshell/em-unix.el (eshell-du-sum-directory): Don't use
directory-sep-char.

36
lisp/add-log.el
View file

@ -471,20 +471,6 @@ Today's date is calculated according to `change-log-time-zone-rule' if
non-nil, otherwise in local time."
(interactive (list current-prefix-arg
(prompt-for-change-log-name)))
(or add-log-full-name
(setq add-log-full-name (user-full-name)))
(or add-log-mailing-address
(setq add-log-mailing-address user-mail-address))
(if whoami
(progn
(setq add-log-full-name (read-input "Full name: " add-log-full-name))
;; Note that some sites have room and phone number fields in
;; full name which look silly when inserted. Rather than do
;; anything about that here, let user give prefix argument so that
;; s/he can edit the full name field in prompter if s/he wants.
(setq add-log-mailing-address
(read-input "Mailing address: " add-log-mailing-address))))
(let* ((defun (add-log-current-defun))
(version (and change-log-version-info-enabled
(change-log-version-number-search)))
@ -495,7 +481,19 @@ non-nil, otherwise in local time."
(file-name (expand-file-name (find-change-log file-name buffer-file)))
;; Set ITEM to the file name to use in the new item.
(item (add-log-file-name buffer-file file-name))
bound)
bound
(full-name (or add-log-full-name (user-full-name)))
(mailing-address (or add-log-mailing-address user-mail-address)))
(if whoami
(progn
(setq full-name (read-input "Full name: " full-name))
;; Note that some sites have room and phone number fields in
;; full name which look silly when inserted. Rather than do
;; anything about that here, let user give prefix argument so that
;; s/he can edit the full name field in prompter if s/he wants.
(setq mailing-address
(read-input "Mailing address: " mailing-address))))
(unless (equal file-name buffer-file-name)
(if (or other-window (window-dedicated-p (selected-window)))
@ -515,11 +513,11 @@ non-nil, otherwise in local time."
;; Advance into first entry if it is usable; else make new one.
(let ((new-entries (mapcar (lambda (addr)
(concat (funcall add-log-time-format)
" " add-log-full-name
" " full-name
" <" addr ">"))
(if (consp add-log-mailing-address)
add-log-mailing-address
(list add-log-mailing-address)))))
(if (consp mailing-address)
mailing-address
(list mailing-address)))))
(if (and (not add-log-always-start-new-record)
(let ((hit nil))
(dolist (entry new-entries hit)