Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
1e6dacf6
Commit
1e6dacf6
authored
Dec 05, 1991
by
Jim Blandy
Browse files
*** empty log message ***
parent
4bcffd8e
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
8 additions
and
8 deletions
+8
-8
lisp/apropos.el
lisp/apropos.el
+1
-1
lisp/help.el
lisp/help.el
+4
-4
lisp/paths.el
lisp/paths.el
+1
-1
lisp/play/spook.el
lisp/play/spook.el
+1
-1
lisp/play/yow.el
lisp/play/yow.el
+1
-1
No files found.
lisp/apropos.el
View file @
1e6dacf6
...
@@ -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
...
...
lisp/help.el
View file @
1e6dacf6
...
@@ -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."
...
...
lisp/paths.el
View file @
1e6dacf6
...
@@ -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/"
...
...
lisp/play/spook.el
View file @
1e6dacf6
...
@@ -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
...
...
lisp/play/yow.el
View file @
1e6dacf6
...
@@ -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
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment