*** empty log message ***

5 files changed, 8 insertions, 8 deletions

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 36e366e970b..66b3c4947bb 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -51,7 +51,7 @@ machine.")
 ;; it and document it.  This is so the code will work right after RMS adds
 ;; internal-doc-file-name.
 ;(or (boundp 'internal-doc-file-name)
-;    (setq internal-doc-file-name (concat exec-directory "DOC")))
+;    (setq internal-doc-file-name (concat data-directory "DOC")))
 ;(or (documentation-property 'internal-doc-file-name 'variable-documentation)
 ;    (put 'internal-doc-file-name 'variable-documentation
 ;        "The complete pathname of the documentation file that contains all
diff --git a/lisp/help.el b/lisp/help.el
index d2d65a5fa94..bc71ffa2084 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -68,7 +68,7 @@
       (setq buffer-file-name file)
       (setq default-directory (expand-file-name "~/"))
       (setq auto-save-file-name nil)
-      (insert-file-contents (expand-file-name "TUTORIAL" exec-directory))
+      (insert-file-contents (expand-file-name "TUTORIAL" data-directory))
       (goto-char (point-min))
       (search-forward "\n<<")
       (beginning-of-line)
@@ -157,13 +157,13 @@ describes the minor mode."
   "Display info on how to obtain the latest version of GNU Emacs."
   (interactive)
   (find-file-read-only
-   (expand-file-name "DISTRIB" exec-directory)))
+   (expand-file-name "DISTRIB" data-directory)))
 
 (defun describe-copying ()
   "Display info on how you may redistribute copies of GNU Emacs."
   (interactive)
   (find-file-read-only
-   (expand-file-name "COPYING" exec-directory))
+   (expand-file-name "COPYING" data-directory))
   (goto-char (point-min)))
 
 (defun describe-no-warranty ()
@@ -177,7 +177,7 @@ describes the minor mode."
 (defun view-emacs-news ()
   "Display info on recent changes to Emacs."
   (interactive)
-  (find-file-read-only (expand-file-name "NEWS" exec-directory)))
+  (find-file-read-only (expand-file-name "NEWS" data-directory)))
 
 (defun view-lossage ()
   "Display last 100 input keystrokes."
diff --git a/lisp/paths.el b/lisp/paths.el
index fb334c722ed..50a5880eac3 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -26,7 +26,7 @@
 
 (defvar Info-default-directory-list
   (list "/usr/local/lib/info/"
-        (expand-file-name "../info/" exec-directory))
+        (expand-file-name "../info/" data-directory))
   "List of directories to search for Info documentation files.")
 
 (defvar news-path "/usr/spool/news/"
diff --git a/lisp/play/spook.el b/lisp/play/spook.el
index 84fffceeaa1..3b35ec44b00 100644
--- a/lisp/play/spook.el
+++ b/lisp/play/spook.el
@@ -36,7 +36,7 @@
 ;  keyword scanners.
 
 ; Variables
-(defvar spook-phrases-file (concat exec-directory "spook.lines")
+(defvar spook-phrases-file (concat data-directory "spook.lines")
    "Keep your favorite phrases here.")
 
 (defvar spook-phrase-default-count 15
diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index 46edb8e95fc..a4d33d3609f 100644
--- a/lisp/play/yow.el
+++ b/lisp/play/yow.el
@@ -54,7 +54,7 @@
       (message "Am I CONSING yet?...")
       (set-buffer buf)
       (insert-file-contents (or file
-                                (expand-file-name "yow.lines" exec-directory)))
+                                (expand-file-name "yow.lines" data-directory)))
       (search-forward "\0")
       (while (progn (skip-chars-forward " \t\n\r\f") (not (eobp)))
         (let ((beg (point)))