From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 29 Feb 2000 10:15:00 +0000 (+0000)
Subject: (frame-notice-user-settings): Use assq-delete-all
X-Git-Tag: emacs-pretest-21.0.90~4844
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5cee761f3706263de7d51e24cc3c14b8905b11eb;p=emacs.git

(frame-notice-user-settings): Use assq-delete-all
instead of assoc-delete-all.
(frame-notice-user-settings): Ditto.
---

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