Mercurial > emacs
changeset 82800:f25aaee01664
(tutorial-directory): Set with eval-at-startup so it gets the right
value in an installed Emacs.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 24 Aug 2007 02:57:42 +0000 |
| parents | 5a87629042db |
| children | 560ac93a642f |
| files | lisp/startup.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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