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
3fc958a4
Commit
3fc958a4
authored
Aug 01, 1991
by
Jim Blandy
Browse files
*** empty log message ***
parent
6d4238f3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
2 deletions
+14
-2
lisp/startup.el
lisp/startup.el
+14
-2
No files found.
lisp/startup.el
View file @
3fc958a4
...
...
@@ -73,6 +73,11 @@ arguments). The function should return non-nil only if it recognizes and
processes argi. If it does so, it may consume successive arguments by
altering command-line-args-left to remove them."
)
(
defvar
pre-init-hook
nil
"Functions to call after handling urgent options but before loading init file.
The window/screen system uses this to open screens to display messages while
Emacs loads the user's initialization file."
)
(
defvar
term-setup-hook
nil
"Function to be called after loading terminal-specific lisp code.
It is called with no arguments. This variable exists for users to set,
...
...
@@ -85,7 +90,10 @@ the proper function and keypad keys for use under X. It is used in a
fashion analogous to the environment value TERM."
)
(
defvar
window-setup-hook
nil
"Function used to initialize window system display, after command line args.
"Function called to initialize window system display.
Emacs calls this after processing the command line arguments and loading
the user's init file.
Users should not set this variable; use term-setup-hook instead."
)
(
defconst
initial-major-mode
'lisp-interaction-mode
...
...
@@ -188,6 +196,9 @@ directory name of the directory where the `.emacs' file was looked for.")
;; Re-attach the program name to the front of the arg list.
(
setcdr
command-line-args
args
))
;; If the window system asked to, let it set up some initial screens.
(
if
pre-init-hook
(
funcall
pre-init-hook
))
;; Load that user's init file, or the default one, or none.
(
let
((
debug-on-error
init-file-debug
)
;; This function actually reads the init files.
...
...
@@ -215,6 +226,7 @@ directory name of the directory where the `.emacs' file was looked for.")
(
get
(
car
error
)
'error-message
)
(
if
(
cdr
error
)
": "
)
(
mapconcat
'prin1-to-string
(
cdr
error
)
", "
))))))
;; If *scratch* exists and init file didn't change its mode, initialize it.
(
if
(
get-buffer
"*scratch*"
)
(
save-excursion
...
...
@@ -260,7 +272,7 @@ directory name of the directory where the `.emacs' file was looked for.")
(
progn
(
insert
(
emacs-version
)
"
Copyright (C) 19
8
9 Free Software Foundation, Inc.\n\n"
)
Copyright (C) 199
1
Free Software Foundation, Inc.\n\n"
)
;; If keys have their default meanings,
;; use precomputed string to save lots of time.
(
if
(
and
(
eq
(
key-binding
"\C-h"
)
'help-command
)
...
...
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