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

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/08/24 02:57:42

Index: startup.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/startup.el,v
retrieving revision 1.449
retrieving revision 1.450
diff -u -b -r1.449 -r1.450
--- startup.el  22 Aug 2007 07:41:58 -0000      1.449
+++ startup.el  24 Aug 2007 02:57:42 -0000      1.450
@@ -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