From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Wed, 2 Oct 2002 16:33:06 +0000 (+0000)
Subject: (normal-top-level): Reset standard-value of `user-full-name' here.
X-Git-Tag: ttn-vms-21-2-B4~12957
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9715399e582f026868841a0a2b017112843cf60d;p=emacs.git

(normal-top-level): Reset standard-value of `user-full-name' here.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0e25346fa93..59fbd6b6bab 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-10-02  Markus Rost  <rost@math.ohio-state.edu>
+
+	* progmodes/sh-script.el (sh-alias-alist): Use append instead of
+	nconc.
+
+	* startup.el (normal-top-level): Reset standard-value property of
+	`user-full-name' here.
+
 2002-10-01  Bill Wohler  <wohler@newt.com>
 
 	* mail/mh-comp.el, mail/mh-e.el, mail/mh-funcs.el,
diff --git a/lisp/startup.el b/lisp/startup.el
index eb8ce6e8418..99de8ff30d1 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -429,6 +429,9 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
       (save-excursion
 	(set-buffer (get-buffer "*Messages*"))
 	(setq default-directory dir)))
+    ;; `user-full-name' is now known; reset its standard-value here.
+    (put 'user-full-name 'standard-value
+	 (list (default-value 'user-full-name)))
     ;; For root, preserve owner and group when editing files.
     (if (equal (user-uid) 0)
 	(setq backup-by-copying-when-mismatch t))