diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-03-25 04:39:49 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-03-25 04:39:49 +0000 |
| commit | 847f5dab018c6b0014f96a19e3a01ad94bc67a6e (patch) | |
| tree | e592d5fc4d89404056f2196f3c79c6388833c127 | |
| parent | c8c72d6b4b54800d6efc9bca914eb0a1ffe12e8c (diff) | |
| download | emacs-847f5dab018c6b0014f96a19e3a01ad94bc67a6e.tar.gz | |
* x-win.el (x-defined-colors): Use x-color-defined-p instead of
x-defined-color.
(x-handle-geometry): Use x-parse-geometry instead of x-geometry.
| -rw-r--r-- | lisp/term/x-win.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index a088a265b29..2e518476294 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -147,8 +147,9 @@ ;; Handle the geometry option (defun x-handle-geometry (switch) - (setq initial-frame-alist (append initial-frame-alist - (x-geometry (car x-invocation-args))) + (setq initial-frame-alist + (append initial-frame-alist + (x-parse-geometry (car x-invocation-args))) x-invocation-args (cdr x-invocation-args))) (defvar x-display-name nil @@ -418,7 +419,7 @@ This returns ARGS with the arguments that have been processed removed." (while all-colors (setq this-color (car all-colors) all-colors (cdr all-colors)) - (and (x-defined-color this-color) + (and (x-color-defined-p this-color) (setq defined-colors (cons this-color defined-colors)))) defined-colors)) |