(tutorial-directory): Set with eval-at-startup so it gets the right

value in an installed Emacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b6440133395ffb4d46e8fd9b75e9e174cfe03668..bfeef25ffcb0686cebad23af510ed002f81eb367 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,18 @@
+2007-08-24  Glenn Morris  <rgm@gnu.org>
+
+       * startup.el (tutorial-directory): Set with eval-at-startup so it
+       gets the right value in an installed Emacs.
+
+2007-08-24  Nikolaj Schumacher  <n_schumacher@web.de>  (tiny change)
+
+       * emacs-lisp/eldoc.el (eldoc-highlight-function-argument): New face.
+       (eldoc-highlight-function-argument): Use it.
+
 2007-08-23  Masatake YAMATO  <jet@gyve.org>
 
        * progmodes/cc-fonts.el (gtkdoc-font-lock-doc-comments): Highlight
        name of parameters in document body.
-       
+
 2007-08-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/bytecomp.el (byte-compile-output-docform)

diff --git a/lisp/startup.el b/lisp/startup.el
index d791a0f6e5a3bf792693291d865006395adc988f..30d058afabc7afdc90cc5aae740285addffa8f3a 100644 (file)
--- 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