diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-09-15 12:13:25 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-09-15 16:21:11 +0200 |
| commit | 72e2c1e6e694cec3846524eeafc2751d4ce15964 (patch) | |
| tree | e12f5661b1395e7b263a70fdae60a6bcbc10bbd1 | |
| parent | 66a5fa931cd437078d3fdd94fdbd78daf66f485f (diff) | |
| download | emacs-scratch/modern-mode.tar.gz | |
Add 'modern-mode' command line optionscratch/modern-mode
* src/emacs.c (standard_args): Add: '-m' '-modern' '--modern'
cmd line option.
* lisp/startup.el (command-line-1): Handle modern-mode cmd line
option.
| -rw-r--r-- | lisp/startup.el | 6 | ||||
| -rw-r--r-- | src/emacs.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 48274830763..099d3a01e3d 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -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)) diff --git a/src/emacs.c b/src/emacs.c index 059e1c6d8f0..bde2a9229a9 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -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 }, |