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 /lisp | |
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.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 5 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)) |