diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2021-11-25 20:54:07 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2021-11-25 20:54:07 +0200 |
| commit | 0c44b8edb4778bbbc536d67b617e93a152b948de (patch) | |
| tree | e42d163336eba4a158239b84b8cb053e220f2af9 /lisp/startup.el | |
| parent | 7f14723aa2b6c89f4e2e3895ff0fb1b931f83755 (diff) | |
| download | emacs-0c44b8edb4778bbbc536d67b617e93a152b948de.tar.gz emacs-0c44b8edb4778bbbc536d67b617e93a152b948de.tar.bz2 emacs-0c44b8edb4778bbbc536d67b617e93a152b948de.zip | |
Fix handling of '--dump-file' command-line option
* lisp/startup.el (command-line-1): Handle "--dump-file" and
"--seccomp" if they are left on the command-line. (Bug#52106)
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index e1106419f10..fc085e6d0ef 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -2393,6 +2393,7 @@ A fancy display is used on graphic displays, normal otherwise." ;; and long versions of what's on command-switch-alist. (longopts (append '("--funcall" "--load" "--insert" "--kill" + "--dump-file" "--seccomp" "--directory" "--eval" "--execute" "--no-splash" "--find-file" "--visit" "--file" "--no-desktop") (mapcar (lambda (elt) (concat "-" (car elt))) @@ -2554,6 +2555,11 @@ nil default-directory" name) (error "File name omitted from `-insert' option")) (insert-file-contents (command-line-normalize-file-name tem))) + ((or (equal argi "-dump-file") + (equal argi "-seccomp")) + ;; This was processed in C. + (or argval (pop command-line-args-left))) + ((equal argi "-kill") (kill-emacs t)) |