From xemacs-m  Sun Jun  1 12:27:17 1997
Received: from jagor.srce.hr (root@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id MAA19917
	for <xemacs-beta@xemacs.org>; Sun, 1 Jun 1997 12:26:59 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id SAA26798; Sun, 1 Jun 1997 18:38:57 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: [patch] DEFSETF fix
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
X-Emacs-Acronym: Editing MACroS
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 01 Jun 1997 18:38:56 +0200
Message-ID: <kigsoz2z3a7.fsf@jagor.srce.hr>
Lines: 39
X-Mailer: Gnus v5.4.52/XEmacs 20.2

--- lisp/cl/cl-macs.el.orig	Sun Jun  1 18:09:49 1997
+++ lisp/cl/cl-macs.el	Sun Jun  1 18:12:08 1997
@@ -1619,21 +1619,23 @@
 (defsetf face-underline-p (f &optional s) (x)
   (list 'set-face-underline-p f x s))
 (defsetf file-modes set-file-modes t)
-(defsetf frame-height set-screen-height t)
 (defsetf frame-parameters modify-frame-parameters t)
 (defsetf frame-visible-p cl-set-frame-visible-p)
-(defsetf frame-width set-screen-width t)
+(defsetf frame-properties (&optional f) (p)
+  `(progn (set-frame-properties ,f ,p) ,p))
+(defsetf frame-property (f p &optional d) (v)
+  `(progn (set-frame-property ,f ,v) ,p))
+(defsetf frame-width (&optional f) (v)
+  `(progn (set-frame-width ,f ,v) ,v))
+(defsetf frame-height (&optional f) (v)
+  `(progn (set-frame-height ,f ,v) ,v))
+(defsetf current-frame-configuration set-frame-configuration)
 
 ;; XEmacs: new stuff
 (defsetf selected-console select-console t)
 (defsetf selected-device select-device t)
 (defsetf device-baud-rate (&optional d) (v)
   `(set-device-baud-rate ,d ,v))
-(defsetf current-frame-configuration set-frame-configuration)
-(defsetf frame-properties (&optional f) (p)
-  `(progn (set-frame-properties ,f ,p) ,p))
-(defsetf frame-property (f p &optional d) (v)
-  `(progn (set-frame-property ,f ,v) ,p))
 (defsetf specifier-instance (spec &optional dom def nof) (val)
   `(set-specifier ,spec ,val ,dom))
 (defsetf annotation-glyph set-annotation-glyph)

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
4.  Thou shalt not warlorde a sig if it bee the sig of Kibo, nor if
    it bee the sig of the Inner Circle.

