# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 902783638 0
# Node ID f580b969487610da004e345eeeed54901ad7d8f2
# Parent  9b39197e9ecd25a8397d6599345ccea013f6428e
(time-stamp-string-preprocess): Add %U code.

diff -r 9b39197e9ecd -r f580b9694876 lisp/time-stamp.el
--- a/lisp/time-stamp.el	Mon Aug 10 15:34:32 1998 +0000
+++ b/lisp/time-stamp.el	Mon Aug 10 21:13:58 1998 +0000
@@ -69,6 +69,7 @@
 %f   file name without directory	%F  gives absolute pathname
 %s   system name
 %u   user's login name
+%U   user's full name
 %h   mail host name
 
 Decimal digits between the % and the type character specify the
@@ -445,6 +446,8 @@
 	  (system-name))
 	 ((eq cur-char ?u)		;user name
 	  (user-login-name))
+	 ((eq cur-char ?U)		;user full name
+	  (user-full-name))
 	 ((eq cur-char ?h)		;mail host name
 	  (time-stamp-mail-host-name))
 	 ))