Commit 5cee761f authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(frame-notice-user-settings): Use assq-delete-all

instead of assoc-delete-all.
(frame-notice-user-settings): Ditto.
parent d3a61a11
...@@ -290,13 +290,13 @@ React to settings of `default-frame-alist', `initial-frame-alist' there." ...@@ -290,13 +290,13 @@ React to settings of `default-frame-alist', `initial-frame-alist' there."
;; when we first made the frame. ;; when we first made the frame.
(setq parms (cons '(reverse) (delq (assq 'reverse parms) parms))) (setq parms (cons '(reverse) (delq (assq 'reverse parms) parms)))
(if (assq 'height frame-initial-geometry-arguments) (if (assq 'height frame-initial-geometry-arguments)
(setq parms (assoc-delete-all 'height parms))) (setq parms (assq-delete-all 'height parms)))
(if (assq 'width frame-initial-geometry-arguments) (if (assq 'width frame-initial-geometry-arguments)
(setq parms (assoc-delete-all 'width parms))) (setq parms (assq-delete-all 'width parms)))
(if (assq 'left frame-initial-geometry-arguments) (if (assq 'left frame-initial-geometry-arguments)
(setq parms (assoc-delete-all 'left parms))) (setq parms (assq-delete-all 'left parms)))
(if (assq 'top frame-initial-geometry-arguments) (if (assq 'top frame-initial-geometry-arguments)
(setq parms (assoc-delete-all 'top parms))) (setq parms (assq-delete-all 'top parms)))
(setq new (setq new
(make-frame (make-frame
;; Use the geometry args that created the existing ;; Use the geometry args that created the existing
...@@ -362,13 +362,13 @@ React to settings of `default-frame-alist', `initial-frame-alist' there." ...@@ -362,13 +362,13 @@ React to settings of `default-frame-alist', `initial-frame-alist' there."
(setq allparms (append initial-frame-alist (setq allparms (append initial-frame-alist
default-frame-alist)) default-frame-alist))
(if (assq 'height frame-initial-geometry-arguments) (if (assq 'height frame-initial-geometry-arguments)
(setq allparms (assoc-delete-all 'height allparms))) (setq allparms (assq-delete-all 'height allparms)))
(if (assq 'width frame-initial-geometry-arguments) (if (assq 'width frame-initial-geometry-arguments)
(setq allparms (assoc-delete-all 'width allparms))) (setq allparms (assq-delete-all 'width allparms)))
(if (assq 'left frame-initial-geometry-arguments) (if (assq 'left frame-initial-geometry-arguments)
(setq allparms (assoc-delete-all 'left allparms))) (setq allparms (assq-delete-all 'left allparms)))
(if (assq 'top frame-initial-geometry-arguments) (if (assq 'top frame-initial-geometry-arguments)
(setq allparms (assoc-delete-all 'top allparms))) (setq allparms (assq-delete-all 'top allparms)))
(setq tail allparms) (setq tail allparms)
;; Find just the parms that have changed since we first ;; Find just the parms that have changed since we first
;; made this frame. Those are the ones actually set by ;; made this frame. Those are the ones actually set by
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment