Mercurial > emacs
changeset 444:4cec2e6d4f9e
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 05 Dec 1991 18:54:06 +0000 |
| parents | 78165914b12d |
| children | 2a2230dd1b1c |
| files | lisp/apropos.el lisp/help.el lisp/paths.el lisp/play/spook.el lisp/play/yow.el |
| diffstat | 5 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/apropos.el Wed Dec 04 22:51:54 1991 +0000 +++ b/lisp/apropos.el Thu Dec 05 18:54:06 1991 +0000 @@ -51,7 +51,7 @@ ;; 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
--- a/lisp/help.el Wed Dec 04 22:51:54 1991 +0000 +++ b/lisp/help.el Thu Dec 05 18:54:06 1991 +0000 @@ -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 @@ "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 @@ (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."
--- a/lisp/paths.el Wed Dec 04 22:51:54 1991 +0000 +++ b/lisp/paths.el Thu Dec 05 18:54:06 1991 +0000 @@ -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/"
--- a/lisp/play/spook.el Wed Dec 04 22:51:54 1991 +0000 +++ b/lisp/play/spook.el Thu Dec 05 18:54:06 1991 +0000 @@ -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
--- a/lisp/play/yow.el Wed Dec 04 22:51:54 1991 +0000 +++ b/lisp/play/yow.el Thu Dec 05 18:54:06 1991 +0000 @@ -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)))