From 72e2c1e6e694cec3846524eeafc2751d4ce15964 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Tue, 15 Sep 2020 12:13:25 +0200 Subject: 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. --- lisp/startup.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lisp') 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)) -- cgit v1.2.1