Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ffaf8bbb
Commit
ffaf8bbb
authored
Jun 12, 2000
by
Stefan Monnier
Browse files
(command-line, command-line-1): Don't quote lambda.
(command-line): Don't call menu-bar-mode if not interactive.
parent
363c962e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
6 deletions
+7
-6
lisp/startup.el
lisp/startup.el
+7
-6
No files found.
lisp/startup.el
View file @
ffaf8bbb
...
...
@@ -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))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment