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

*** empty log message ***

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