From xemacs-m  Sat May 17 20:18:49 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id UAA21795
	for <xemacs-beta@xemacs.org>; Sat, 17 May 1997 20:18:48 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id DAA08364; Sun, 18 May 1997 03:18:48 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: New setf methods
X-Save-Project-Gutenberg: <URL:http://www.promo.net/pg/nl/pgny_nov96.html>
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
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 18 May 1997 03:18:47 +0200
Message-ID: <kiglo5dy3uw.fsf@jagor.srce.hr>
Lines: 41
X-Mailer: Gnus v5.4.52/XEmacs 20.2

I've updated the setf methods with some device, specifier, frame and
annotation functions that have been developed since Dave was doing his 
work.

--- lisp/cl/cl-macs.el.orig	Sun May 18 02:15:51 1997
+++ lisp/cl/cl-macs.el	Sun May 18 03:14:37 1997
@@ -1623,6 +1623,27 @@
 (defsetf frame-parameters modify-frame-parameters t)
 (defsetf frame-visible-p cl-set-frame-visible-p)
 (defsetf frame-width set-screen-width t)
+
+;; 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)
+(defsetf annotation-down-glyph set-annotation-down-glyph)
+(defsetf annotation-face set-annotation-face)
+(defsetf annotation-layout set-annotation-layout)
+(defsetf annotation-data set-annotation-data)
+(defsetf annotation-action set-annotation-action)
+(defsetf annotation-menu set-annotation-menu)
+
 (defsetf getenv setenv t)
 (defsetf get-register set-register)
 (defsetf global-key-binding global-set-key)


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
"Silence!" cries Freydag. "I did not call thee in for a consultation!" 
"They are my innards! I will not have them misread by a poseur!"

