diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-08-24 02:57:53 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-08-24 02:57:53 +0000 |
| commit | 5f5ba82536858ccac91a7dff38d95e75b23c5e55 (patch) | |
| tree | bbe5cff3d0a7964eddaf1eb80ae49608f5e9bdb2 /lisp/startup.el | |
| parent | 5e4599b863c0ef54d4a170f6e2c0e70f21919f30 (diff) | |
| download | emacs-5f5ba82536858ccac91a7dff38d95e75b23c5e55.tar.gz | |
(tutorial-directory): Set with eval-at-startup so it gets the right
value in an installed Emacs.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index d791a0f6e5a..30d058afabc 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -308,9 +308,14 @@ 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) +(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 |