Mercurial > hg > xemacs-beta

comparison lisp/packages/add-log.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 131b0175ea99
children cca96a509cfe
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
53 "*Electronic mail address of user, for inclusion in ChangeLog daily headers. 53 "*Electronic mail address of user, for inclusion in ChangeLog daily headers.
54 This defaults to the value of `user-mail-address'.") 54 This defaults to the value of `user-mail-address'.")
55 55
56 ;; So that the dump-time value doesn't go into loaddefs.el with the autoload. 56 ;; So that the dump-time value doesn't go into loaddefs.el with the autoload.
57 (or add-log-mailing-address 57 (or add-log-mailing-address
58 (setq add-log-mailing-address user-mail-address)) 58 (setq add-log-mailing-address (user-mail-address)))
59 59
60 (defvar change-log-font-lock-keywords 60 (defvar change-log-font-lock-keywords
61 '(("^[SMTWF].+" . font-lock-function-name-face) ; Date line. 61 '(("^[SMTWF].+" . font-lock-function-name-face) ; Date line.
62 ("^\t\\* \\([^ :\n]+\\)" 1 font-lock-comment-face) ; File name. 62 ("^\t\\* \\([^ :\n]+\\)" 1 font-lock-comment-face) ; File name.
63 ("(\\([^)\n]+\\)):" 1 font-lock-keyword-face)) ; Function name. 63 ("(\\([^)\n]+\\)):" 1 font-lock-keyword-face)) ; Function name.
166 (interactive (list current-prefix-arg 166 (interactive (list current-prefix-arg
167 (prompt-for-change-log-name))) 167 (prompt-for-change-log-name)))
168 (or add-log-full-name 168 (or add-log-full-name
169 (setq add-log-full-name (user-full-name))) 169 (setq add-log-full-name (user-full-name)))
170 (or add-log-mailing-address 170 (or add-log-mailing-address
171 (setq add-log-mailing-address user-mail-address)) 171 (setq add-log-mailing-address (user-mail-address)))
172 (if whoami 172 (if whoami
173 (progn 173 (progn
174 (setq add-log-full-name (read-string "Full name: " add-log-full-name)) 174 (setq add-log-full-name (read-string "Full name: " add-log-full-name))
175 ;; Note that some sites have room and phone number fields in 175 ;; Note that some sites have room and phone number fields in
176 ;; full name which look silly when inserted. Rather than do 176 ;; full name which look silly when inserted. Rather than do