Mercurial > emacs

changeset 27909:2bf72063e6f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(frame-notice-user-settings): Use assq-delete-all instead of assoc-delete-all. (frame-notice-user-settings): Ditto.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 29 Feb 2000 10:15:00 +0000
parents 1c1e1ebca7f8
children cb2cc19e288e
files lisp/frame.el
diffstat 1 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/frame.el	Tue Feb 29 10:13:42 2000 +0000
+++ b/lisp/frame.el	Tue Feb 29 10:15:00 2000 +0000
@@ -290,13 +290,13 @@
 	      ;; 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 @@
 	    (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