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
e3bd99f5
Commit
e3bd99f5
authored
Jun 04, 1992
by
Roland McGrath
Browse files
*** empty log message ***
parent
06ef7355
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
5 deletions
+12
-5
lisp/frame.el
lisp/frame.el
+1
-1
lisp/startup.el
lisp/startup.el
+11
-4
No files found.
lisp/frame.el
View file @
e3bd99f5
...
...
@@ -62,7 +62,7 @@ These supercede the values given in default-screen-alist.")
;;; 3) Once the init file is done, we apply any newly set parameters
;;; in initial-screen-alist to the screen.
(
add-hook
'
p
re-init-hook
'screen-initialize
)
(
add-hook
'
befo
re-init-hook
'screen-initialize
)
(
add-hook
'window-setup-hook
'screen-notice-user-settings
)
;;; If we create the initial screen, this is it.
...
...
lisp/startup.el
View file @
e3bd99f5
...
...
@@ -74,14 +74,19 @@ 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
p
re-init-hook
nil
(
defvar
befo
re-init-hook
nil
"Functions to call after handling urgent options but before loading init file.
The screen system uses this to open screens to display messages while
Emacs loads the user's initialization file."
)
(
defvar
after-init-hook
nil
"Functions to call after loading the init file (~/.emacs).
The call is not protected by a condition-case, so you can set `debug-on-error'
in .emacs, and put all the actual code on `after-init-hook'."
)
(
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,
"Function
s
to be called after loading terminal-specific lisp code.
See `run-hooks'
. This variable exists for users to set,
so as to override the definitions made by the terminal-specific file.
Emacs never sets this variable itself."
)
...
...
@@ -201,7 +206,7 @@ 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
))
(
run-hooks
'
p
re-init-hook
)
(
run-hooks
'
befo
re-init-hook
)
;; Load that user's init file, or the default one, or none.
(
let
((
debug-on-error
init-file-debug
)
...
...
@@ -231,6 +236,8 @@ directory name of the directory where the `.emacs' file was looked for.")
(
if
(
cdr
error
)
": "
)
(
mapconcat
'prin1-to-string
(
cdr
error
)
", "
))))))
(
run-hooks
'after-init-hook
)
;; If *scratch* exists and init file didn't change its mode, initialize it.
(
if
(
get-buffer
"*scratch*"
)
(
save-excursion
...
...
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