From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Christopher Wellons Newsgroups: gmane.emacs.bugs Subject: bug#21979: [PATCH] Update gv setter for frame-width and frame-height. Date: Sat, 21 Nov 2015 16:26:23 -0500 Message-ID: <1448141183-12418-1-git-send-email-wellons@nullprogram.com> NNTP-Posting-Host: plane.gmane.org X-Trace: ger.gmane.org 1448141304 23043 80.91.229.3 (21 Nov 2015 21:28:24 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 21 Nov 2015 21:28:24 +0000 (UTC) Cc: Christopher Wellons To: 21979@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Nov 21 22:28:12 2015 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1a0Fha-0001BU-Su for geb-bug-gnu-emacs@m.gmane.org; Sat, 21 Nov 2015 22:28:11 +0100 Original-Received: from localhost ([::1]:53742 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1a0Fha-0007yG-E2 for geb-bug-gnu-emacs@m.gmane.org; Sat, 21 Nov 2015 16:28:10 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:57747) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1a0FhW-0007wt-EX for bug-gnu-emacs@gnu.org; Sat, 21 Nov 2015 16:28:07 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1a0FhS-0002Ed-EI for bug-gnu-emacs@gnu.org; Sat, 21 Nov 2015 16:28:06 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:57677) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1a0FhS-0002EZ-AL for bug-gnu-emacs@gnu.org; Sat, 21 Nov 2015 16:28:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1a0FhS-0001Sy-6S for bug-gnu-emacs@gnu.org; Sat, 21 Nov 2015 16:28:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Christopher Wellons Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 21 Nov 2015 21:28:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 21979 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.14481412565582 (code B ref -1); Sat, 21 Nov 2015 21:28:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 21 Nov 2015 21:27:36 +0000 Original-Received: from localhost ([127.0.0.1]:47382 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1a0Fh1-0001Rx-KK for submit@debbugs.gnu.org; Sat, 21 Nov 2015 16:27:35 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:47610) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1a0Fgz-0001Ro-G9 for submit@debbugs.gnu.org; Sat, 21 Nov 2015 16:27:33 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1a0Fgy-0002Ag-IT for submit@debbugs.gnu.org; Sat, 21 Nov 2015 16:27:33 -0500 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:37225) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1a0Fgy-0002Ac-FR for submit@debbugs.gnu.org; Sat, 21 Nov 2015 16:27:32 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:57616) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1a0Fgx-0007q1-MG for bug-gnu-emacs@gnu.org; Sat, 21 Nov 2015 16:27:32 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1a0Fgt-0002AN-Ih for bug-gnu-emacs@gnu.org; Sat, 21 Nov 2015 16:27:31 -0500 Original-Received: from mail.nullprogram.com ([192.241.191.137]:36963) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1a0Fgt-00029Z-FI for bug-gnu-emacs@gnu.org; Sat, 21 Nov 2015 16:27:27 -0500 Original-Received: from localhost ([127.0.0.1] helo=tengu.zeus.nullprogram.com) by mail.nullprogram.com with esmtp (Exim 4.84) (envelope-from ) id 1a0Fgm-0004bn-V5; Sat, 21 Nov 2015 16:27:21 -0500 X-Mailer: git-send-email 2.1.4 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x [generic] X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:109035 Archived-At: Neither set-screen-width nor set-screen-height still exist, having been replaced by set-frame-width and set-frame-height. These newer functions take a frame as a second argument, so a simple setter will no longer work. --- lisp/emacs-lisp/cl-lib.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el index 2dd0519..5a90c19 100644 --- a/lisp/emacs-lisp/cl-lib.el +++ b/lisp/emacs-lisp/cl-lib.el @@ -660,10 +660,12 @@ cl-pairlis (gv-define-setter face-underline-p (x f &optional s) `(set-face-underline ,f ,x ,s)) (gv-define-simple-setter file-modes set-file-modes t) -(gv-define-simple-setter frame-height set-screen-height t) +(gv-define-setter frame-height (x &optional frame) + `(set-frame-height (or ,frame (selected-frame)) ,x)) (gv-define-simple-setter frame-parameters modify-frame-parameters t) (gv-define-simple-setter frame-visible-p cl--set-frame-visible-p) -(gv-define-simple-setter frame-width set-screen-width t) +(gv-define-setter frame-width (x &optional frame) + `(set-frame-width (or ,frame (selected-frame)) ,x)) (gv-define-simple-setter getenv setenv t) (gv-define-simple-setter get-register set-register) (gv-define-simple-setter global-key-binding global-set-key) -- 2.1.4