changeset 47733:d1dbe1fc93d6

(normal-top-level): Reset standard-value of `user-full-name' here.
author Markus Rost <rost@math.uni-bielefeld.de>
date Wed, 02 Oct 2002 16:32:15 +0000
parents 3712c799f805
children 4d0401ba4eae
files lisp/startup.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Wed Oct 02 16:31:16 2002 +0000
+++ b/lisp/startup.el	Wed Oct 02 16:32:15 2002 +0000
@@ -429,6 +429,9 @@
       (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))