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."
;; when we first made the frame.
(setq parms (cons '(reverse) (delq (assq 'reverse parms) parms)))
(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)
(setq parms (assoc-delete-all 'width parms)))
(setq parms (assq-delete-all 'width parms)))
(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)
(setq parms (assoc-delete-all 'top parms)))
(setq parms (assq-delete-all 'top parms)))
(setq new
(make-frame
;; Use the geometry args that created the existing
......@@ -362,13 +362,13 @@ React to settings of `default-frame-alist', `initial-frame-alist' there."
(setq allparms (append initial-frame-alist
default-frame-alist))
(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)
(setq allparms (assoc-delete-all 'width allparms)))
(setq allparms (assq-delete-all 'width allparms)))
(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)
(setq allparms (assoc-delete-all 'top allparms)))
(setq allparms (assq-delete-all 'top allparms)))
(setq tail allparms)
;; Find just the parms that have changed since we first
;; 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