# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1187924262 0
# Node ID f25aaee01664c97e8bc185cb0c4f1b63b5d16d94
# Parent  5a87629042dbf7b8f5c05587071362f5accce236
(tutorial-directory): Set with eval-at-startup so it gets the right
value in an installed Emacs.

diff -r 5a87629042db -r f25aaee01664 lisp/startup.el
--- a/lisp/startup.el	Fri Aug 24 02:43:19 2007 +0000
+++ b/lisp/startup.el	Fri Aug 24 02:57:42 2007 +0000
@@ -308,9 +308,14 @@
 (defvar pure-space-overflow nil
   "Non-nil if building Emacs overflowed pure space.")
 
-(defconst tutorial-directory (expand-file-name "tutorials" data-directory)
+(defvar tutorial-directory nil
   "Directory containing the Emacs TUTORIAL files.")
 
+;; Get correct value in a dumped, installed Emacs.
+(eval-at-startup
+ (setq tutorial-directory (file-name-as-directory
+                           (expand-file-name "tutorials" data-directory))))
+
 (defun normal-top-level-add-subdirs-to-load-path ()
   "Add all subdirectories of current directory to `load-path'.
 More precisely, this uses only the subdirectories whose names