diff options
author | Gerd Moellmann <gerd@gnu.org> | 2000-02-29 10:15:00 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2000-02-29 10:15:00 +0000 |
commit | 5cee761f3706263de7d51e24cc3c14b8905b11eb (patch) | |
tree | f45ad926c0849b6f78f955d0d5fafd2e0bc02986 /lisp | |
parent | d3a61a11910511b0059704201c8d0d6f85176215 (diff) | |
download | emacs-5cee761f3706263de7d51e24cc3c14b8905b11eb.tar.gz |
(frame-notice-user-settings): Use assq-delete-all
instead of assoc-delete-all.
(frame-notice-user-settings): Ditto.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/frame.el | 16 |
1 files 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 |