Mercurial > emacs

comparison lisp/frame.el @ 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 490743da8567
children 3288a7cd4796
comparison
equal deleted inserted replaced
27908:1c1e1ebca7f8 27909:2bf72063e6f0
288 nil)) 288 nil))
289 ;; Get rid of `reverse', because that was handled 289 ;; Get rid of `reverse', because that was handled
290 ;; when we first made the frame. 290 ;; when we first made the frame.
291 (setq parms (cons '(reverse) (delq (assq 'reverse parms) parms))) 291 (setq parms (cons '(reverse) (delq (assq 'reverse parms) parms)))
292 (if (assq 'height frame-initial-geometry-arguments) 292 (if (assq 'height frame-initial-geometry-arguments)
293 (setq parms (assoc-delete-all 'height parms))) 293 (setq parms (assq-delete-all 'height parms)))
294 (if (assq 'width frame-initial-geometry-arguments) 294 (if (assq 'width frame-initial-geometry-arguments)
295 (setq parms (assoc-delete-all 'width parms))) 295 (setq parms (assq-delete-all 'width parms)))
296 (if (assq 'left frame-initial-geometry-arguments) 296 (if (assq 'left frame-initial-geometry-arguments)
297 (setq parms (assoc-delete-all 'left parms))) 297 (setq parms (assq-delete-all 'left parms)))
298 (if (assq 'top frame-initial-geometry-arguments) 298 (if (assq 'top frame-initial-geometry-arguments)
299 (setq parms (assoc-delete-all 'top parms))) 299 (setq parms (assq-delete-all 'top parms)))
300 (setq new 300 (setq new
301 (make-frame 301 (make-frame
302 ;; Use the geometry args that created the existing 302 ;; Use the geometry args that created the existing
303 ;; frame, rather than the parms we get for it. 303 ;; frame, rather than the parms we get for it.
304 (append frame-initial-geometry-arguments 304 (append frame-initial-geometry-arguments
360 ;; the new parameters. 360 ;; the new parameters.
361 (let (newparms allparms tail) 361 (let (newparms allparms tail)
362 (setq allparms (append initial-frame-alist 362 (setq allparms (append initial-frame-alist
363 default-frame-alist)) 363 default-frame-alist))
364 (if (assq 'height frame-initial-geometry-arguments) 364 (if (assq 'height frame-initial-geometry-arguments)
365 (setq allparms (assoc-delete-all 'height allparms))) 365 (setq allparms (assq-delete-all 'height allparms)))
366 (if (assq 'width frame-initial-geometry-arguments) 366 (if (assq 'width frame-initial-geometry-arguments)
367 (setq allparms (assoc-delete-all 'width allparms))) 367 (setq allparms (assq-delete-all 'width allparms)))
368 (if (assq 'left frame-initial-geometry-arguments) 368 (if (assq 'left frame-initial-geometry-arguments)
369 (setq allparms (assoc-delete-all 'left allparms))) 369 (setq allparms (assq-delete-all 'left allparms)))
370 (if (assq 'top frame-initial-geometry-arguments) 370 (if (assq 'top frame-initial-geometry-arguments)
371 (setq allparms (assoc-delete-all 'top allparms))) 371 (setq allparms (assq-delete-all 'top allparms)))
372 (setq tail allparms) 372 (setq tail allparms)
373 ;; Find just the parms that have changed since we first 373 ;; Find just the parms that have changed since we first
374 ;; made this frame. Those are the ones actually set by 374 ;; made this frame. Those are the ones actually set by
375 ;; the init file. For those parms whose values we already knew 375 ;; the init file. For those parms whose values we already knew
376 ;; (such as those spec'd by command line options) 376 ;; (such as those spec'd by command line options)