mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy 1991-12-05 18:54:06 +00:00
parent 4bcffd8e3c
commit 1e6dacf62d
5 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/apropos.el
View File

@ -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

8
lisp/help.el
View File

@ -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."

2
lisp/paths.el
View File

@ -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/"

2
lisp/play/spook.el
View File

@ -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

2
lisp/play/yow.el
View File

@ -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)))