diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-12 05:26:55 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-12 05:26:55 +0000 |
| commit | ffaf8bbb770d10d3197da6cd40fd11a14dd8ccbc (patch) | |
| tree | c67bf590b3e079ac6356ed74aad91796c2b8c988 /lisp | |
| parent | 363c962e614a04dbb644a8cf735c698e411623cd (diff) | |
| download | emacs-ffaf8bbb770d10d3197da6cd40fd11a14dd8ccbc.tar.gz | |
(command-line, command-line-1): Don't quote lambda.
(command-line): Don't call menu-bar-mode if not interactive.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/startup.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 575e961bd59..0c92c4b6a13 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -558,11 +558,11 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (if (memq 'file-error (get (car error) 'error-conditions)) (format "%s: %s" (nth 1 error) - (mapconcat '(lambda (obj) (prin1-to-string obj t)) + (mapconcat (lambda (obj) (prin1-to-string obj t)) (cdr (cdr error)) ", ")) (format "%s: %s" (get (car error) 'error-message) - (mapconcat '(lambda (obj) (prin1-to-string obj t)) + (mapconcat (lambda (obj) (prin1-to-string obj t)) (cdr error) ", ")))) 'external-debugging-output) (setq window-system nil) @@ -642,8 +642,9 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (if (fboundp 'frame-initialize) (frame-initialize)) ;; If frame was created with a menu bar, set menu-bar-mode on. - (if (or (not (memq window-system '(x w32))) - (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0)) + (if (and (not noninteractive) + (or (not (memq window-system '(x w32))) + (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0))) (menu-bar-mode t)) (run-hooks 'before-init-hook) @@ -999,8 +1000,8 @@ Type \\[describe-distribution] for information on getting the latest version.")) (append '(("--funcall") ("--load") ("--insert") ("--kill") ("--directory") ("--eval") ("--execute") ("--find-file") ("--visit") ("--file")) - (mapcar '(lambda (elt) - (list (concat "-" (car elt)))) + (mapcar (lambda (elt) + (list (concat "-" (car elt)))) command-switch-alist))) (line 0)) |