From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: "Ehud Karni" Newsgroups: gmane.emacs.devel Subject: Modify parameters on all frames Date: Sun, 6 Apr 2003 18:39:02 +0300 Organization: Mivtach-Simon Insurance agencies Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <200304061539.h36Fd2R3007062@beta.mvs.co.il> Reply-To: ehud@unix.mvs.co.il NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-8 Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1049643758 22804 80.91.224.249 (6 Apr 2003 15:42:38 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 6 Apr 2003 15:42:38 +0000 (UTC) Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Sun Apr 06 17:42:37 2003 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 192CI0-0005vf-00 for ; Sun, 06 Apr 2003 17:42:36 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 192CL6-000537-00 for ; Sun, 06 Apr 2003 17:45:48 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 192CGO-0005El-09 for emacs-devel@quimby.gnus.org; Sun, 06 Apr 2003 11:40:56 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10.13) id 192CF8-0004JX-00 for emacs-devel@gnu.org; Sun, 06 Apr 2003 11:39:38 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10.13) id 192CEz-0003wF-00 for emacs-devel@gnu.org; Sun, 06 Apr 2003 11:39:30 -0400 Original-Received: from unix.sw.co.il ([192.114.178.12] helo=unix.mvs.co.il) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 192CEa-0003Fu-00 for emacs-devel@gnu.org; Sun, 06 Apr 2003 11:39:04 -0400 Original-Received: from beta.mvs.co.il (beta [10.253.0.3]) by unix.mvs.co.il (8.11.6/8.11.6) with ESMTP id h36Fd2s10108 for ; Sun, 6 Apr 2003 18:39:02 +0300 Original-Received: from beta.mvs.co.il (localhost [127.0.0.1]) ; Sun, 6 Apr 2003 18:39:02 +0300 Original-Received: (from root@localhost) by beta.mvs.co.il (8.12.5/8.12.5/Submit) id h36Fd2R3007062; Sun, 6 Apr 2003 18:39:02 +0300 Original-To: emacs-devel@gnu.org X-Mailer: Emacs 21.3.1 rmail (send-msg 1.108) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Emacs development discussions. List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:12930 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:12930 -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 I suggest to add a function to frame.el to change parameters on all existing and future frames: (defun modify-all-frames-parameters (alist) "modify all current and future frames parameters by changing `initial-frame-alist' and `default-frame-alist' and calling `modify-frame-parameters' on all existing frames with ALIST. See help of `modify-frame-parameters' for more information." (let ((cframesc (cdr (current-frame-configuration))) frames ix fcount ;; frames - list, index, count key val) ;; key and value for aput (while cframesc (setq frames (append (list (car (car cframesc))) frames)) (setq cframesc (cdr cframesc))) (setq fcount (length frames)) (while alist (setq val (car alist)) (setq key (car val)) (setq val (cdr val)) (message "key=%s, val=%s" key val) (aput 'initial-frame-alist key val) ;; If before initial frame (aput 'default-frame-alist key val) ;; for next frames (setq ix 0) (while (< ix fcount) (modify-frame-parameters (nth ix frames) (list (cons key val))) (setq ix (1+ ix))) (setq alist (cdr alist))))) Ehud. - -- Ehud Karni Tel: +972-3-7966-561 /"\ Mivtach - Simon Fax: +972-3-7966-667 \ / ASCII Ribbon Campaign Insurance agencies (USA) voice mail and X Against HTML Mail http://www.mvs.co.il FAX: 1-815-5509341 / \ mailto:ehud@unix.mvs.co.il Better Safe Than Sorry -----BEGIN PGP SIGNATURE----- Comment: use http://www.keyserver.net/ to get my key (and others) iD8DBQE+kEoVLFvTvpjqOY0RAk6mAJ9e01e2QNYZx8mVKEkeDoTo0nplmwCcCtna 4PiVyDeCfF3aM9kkgM1RMyY= =oQ5f -----END PGP SIGNATURE-----