diff options
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)) |