Commit 1e6dacf6 authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent 4bcffd8e
......@@ -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
......@@ -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<<")
......@@ -157,13 +157,13 @@ describes the minor mode."
"Display info on how to obtain the latest version of GNU Emacs."
(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."
(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."
(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."
......@@ -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/"
......@@ -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
......@@ -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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment