Commit 72e2c1e6 authored by Andrea Corallo's avatar Andrea Corallo

Add 'modern-mode' command line option

	* src/emacs.c (standard_args): Add: '-m' '-modern' '--modern'
	cmd line option.

	* lisp/startup.el (command-line-1): Handle modern-mode cmd line
	option.
parent 66a5fa93
Pipeline #6935 failed with stage
in 21 minutes and 42 seconds
......@@ -2363,7 +2363,8 @@ A fancy display is used on graphic displays, normal otherwise."
(longopts
(append '("--funcall" "--load" "--insert" "--kill"
"--directory" "--eval" "--execute" "--no-splash"
"--find-file" "--visit" "--file" "--no-desktop")
"--find-file" "--visit" "--file" "--no-desktop"
"--modern")
(mapcar (lambda (elt) (concat "-" (car elt)))
command-switch-alist)))
(line 0)
......@@ -2514,6 +2515,9 @@ nil default-directory" name)
(error "File name omitted from `-insert' option"))
(insert-file-contents (command-line-normalize-file-name tem)))
((member argi '("-m" "-modern"))
(modern-mode 1))
((equal argi "-kill")
(kill-emacs t))
......
......@@ -2130,6 +2130,8 @@ static const struct standard_args standard_args[] =
{ "-color", "--color", 5, 0},
{ "-no-splash", "--no-splash", 3, 0 },
{ "-no-desktop", "--no-desktop", 3, 0 },
{ "-m", "--modern", 0, 0 },
{ "-modern", 0, 0, 0 },
/* The following two must be just above the file-name args, to get
them out of our way, but without mixing them with file names. */
{ "-temacs", "--temacs", 1, 1 },
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment