[Emacs-diffs] Changes to emacs/lisp/startup.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/08/22 07:41:58

Index: startup.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/startup.el,v
retrieving revision 1.448
retrieving revision 1.449
diff -u -b -r1.448 -r1.449
--- startup.el  20 Aug 2007 23:28:05 -0000      1.448
+++ startup.el  22 Aug 2007 07:41:58 -0000      1.449
@@ -308,6 +308,9 @@
 (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 @@
                              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))))))