(tutorial-directory): New constant.

(fancy-splash-text): Tutorials now in tutorial-directory.

lisp/startup.el

@@ -308,6 +308,9 @@ from being initialized."
 (defvar pure-space-overflow nil
   "Non-nil if building Emacs overflowed pure space.")
 
+(defconst tutorial-directory (expand-file-name "tutorials" data-directory)
+  "Directory containing the Emacs TUTORIAL files.")
+
 (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
@@ -1150,7 +1153,7 @@ regardless of the value of this variable."
                              en))
                     (title (with-temp-buffer
                              (insert-file-contents
-                              (expand-file-name tut data-directory)
+                              (expand-file-name tut tutorial-directory)
                               nil 0 256)
                              (search-forward ".")
                              (buffer-substring (point-min) (1- (point))))))