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 | 4339b67cfb54becc0c45fc8297b6ec1b6d3e5585 (patch) | |
| tree | 7df7df69a9c575500739e69b8baad8c84a523b6f /lisp/frame.el | |
| parent | 0a772c308bdcea057ab9553de4a4a93689517459 (diff) | |
| download | emacs-4339b67cfb54becc0c45fc8297b6ec1b6d3e5585.tar.gz | |
(frame-notice-user-settings): Use assq-delete-all
instead of assoc-delete-all.
(frame-notice-user-settings): Ditto.
Diffstat (limited to 'lisp/frame.el')
| -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 |