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
de62c4d9
Commit
de62c4d9
authored
Jan 09, 2010
by
Jan Djärv
Browse files
(command-line-1): Use orig-argi to check for ignored X and NS options.
parent
4b00d3b1
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
2 deletions
+7
-2
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/startup.el
lisp/startup.el
+2
-2
No files found.
lisp/ChangeLog
View file @
de62c4d9
2010-01-09 Jan Djärv <jan.h.d@swipnet.se>
* startup.el (command-line-1): Use orig-argi to check for ignored X and
NS options.
2010-01-08 Kenichi Handa <handa@m17n.org>
* international/fontset.el (build-default-fontset-data): Exclude
...
...
lisp/startup.el
View file @
de62c4d9
...
...
@@ -2184,12 +2184,12 @@ A fancy display is used on graphic displays, normal otherwise."
(
setq
cl1-line
(
string-to-number
(
match-string
1
argi
))
cl1-column
(
string-to-number
(
match-string
2
argi
))))
((
setq
cl1-tem
(
assoc
argi
command-line-x-option-alist
))
((
setq
cl1-tem
(
assoc
orig-
argi
command-line-x-option-alist
))
;; Ignore X-windows options and their args if not using X.
(
setq
command-line-args-left
(
nthcdr
(
nth
1
cl1-tem
)
command-line-args-left
)))
((
setq
cl1-tem
(
assoc
argi
command-line-ns-option-alist
))
((
setq
cl1-tem
(
assoc
orig-
argi
command-line-ns-option-alist
))
;; Ignore NS-windows options and their args if not using NS.
(
setq
command-line-args-left
(
nthcdr
(
nth
1
cl1-tem
)
command-line-args-left
)))
...
...
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