From 5cee761f3706263de7d51e24cc3c14b8905b11eb Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 29 Feb 2000 10:15:00 +0000 Subject: [PATCH] (frame-notice-user-settings): Use assq-delete-all instead of assoc-delete-all. (frame-notice-user-settings): Ditto. --- lisp/frame.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/frame.el b/lisp/frame.el index d993eeba69f..e5b9a54579b 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -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 -- 2.39.5