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
03e3c30a
Commit
03e3c30a
authored
Jul 13, 1991
by
Jim Blandy
Browse files
*** empty log message ***
parent
a384cab3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
12 deletions
+12
-12
lisp/startup.el
lisp/startup.el
+12
-12
No files found.
lisp/startup.el
View file @
03e3c30a
...
...
@@ -155,14 +155,19 @@ directory name of the directory where the `.emacs' file was looked for.")
(
terpri
)
(
kill-emacs
)))))
(
let
((
args
(
cdr
command-line-args
))
(
done
nil
))
(
let
((
done
nil
)
(
args
(
cdr
command-line-args
)))
;; Figure out which user's init file to load,
;; either from the environment or from the options.
(
setq
init-file-user
(
if
noninteractive
nil
(
user-login-name
)))
;; If user has not done su, use current $HOME to find .emacs.
(
and
init-file-user
(
string=
init-file-user
(
user-real-login-name
))
(
setq
init-file-user
""
))
;; Process the command-line args, and delete the arguments
;; processed. This is consistent with the way main in emacs.c
;; does things.
(
while
(
and
(
not
done
)
args
)
(
let
((
argi
(
car
args
)))
(
cond
...
...
@@ -178,7 +183,10 @@ directory name of the directory where the `.emacs' file was looked for.")
((
string-equal
argi
"-debug-init"
)
(
setq
init-file-debug
t
args
(
cdr
args
)))
(
t
(
setq
done
t
))))))
(
t
(
setq
done
t
)))))
;; Re-attach the program name to the front of the arg list.
(
setcdr
command-line-args
args
))
;; Load that user's init file, or the default one, or none.
(
let
((
debug-on-error
init-file-debug
)
...
...
@@ -225,7 +233,7 @@ directory name of the directory where the `.emacs' file was looked for.")
(
setq
term
(
substring
term
0
hyphend
))
(
setq
term
nil
)))))
;;
Handle all the other option
s.
;;
Process the remaining arg
s.
(
command-line-1
(
cdr
command-line-args
))
;; If -batch, terminate after processing the command options.
...
...
@@ -296,14 +304,6 @@ Type \\[describe-distribution] for information on getting the latest version."))
(
setq
command-line-args-left
(
cdr
command-line-args-left
))
(
cond
((
setq
tem
(
assoc
argi
command-switch-alist
))
(
funcall
(
cdr
tem
)
argi
))
;; These args were already processed; ignore them.
((
or
(
string-equal
argi
"-q"
)
(
string-equal
argi
"-no-init-file"
)
(
string-equal
argi
"-debug-init"
)
(
string-equal
argi
"-batch"
)))
((
or
(
string-equal
argi
"-u"
)
(
string-equal
argi
"-user"
))
(
setq
command-line-args-left
(
cdr
command-line-args-left
)))
((
or
(
string-equal
argi
"-f"
)
;what the manual claims
(
string-equal
argi
"-funcall"
)
(
string-equal
argi
"-e"
))
; what the source used to say
...
...
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