From xemacs-m  Tue Jun  3 05:23:20 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 FAA17492
	for <xemacs-beta@xemacs.org>; Tue, 3 Jun 1997 05:23:18 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id MAA15563; Tue, 3 Jun 1997 12:23:09 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: [patch] defsetf methods for widget
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-Tom-Swifty: 
   "Wait! You need to enable interrupts first!" Tom said preemptorally.
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 03 Jun 1997 12:23:07 +0200
Message-ID: <kigiuzw0yus.fsf@jagor.srce.hr>
Lines: 42
X-Mailer: Gnus v5.4.52/XEmacs 20.2

Here are two defestf-s for widget.el.  They should probably be
submitted to RMS, too.  If anyone has an idea for what else should be
defsetf-ed (anywhere in XEmacs, not only in widget), please tell me -- 
or implement it.

--- cl-macs.el.orig	Tue Jun  3 12:06:09 1997
+++ cl-macs.el	Tue Jun  3 12:14:41 1997
@@ -1632,12 +1632,15 @@
 (defsetf current-frame-configuration set-frame-configuration)
 
 ;; XEmacs: new stuff
+;; Consoles
 (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 specifier-instance (spec &optional dom def nof) (val)
   `(set-specifier ,spec ,val ,dom))
+
+;; Annotations
 (defsetf annotation-glyph set-annotation-glyph)
 (defsetf annotation-down-glyph set-annotation-down-glyph)
 (defsetf annotation-face set-annotation-face)
@@ -1645,6 +1648,11 @@
 (defsetf annotation-data set-annotation-data)
 (defsetf annotation-action set-annotation-action)
 (defsetf annotation-menu set-annotation-menu)
+;; Widget
+(defsetf widget-get widget-put t)
+(defsetf widget-value widget-value-set t)
+
+;; Misc
 (defsetf recent-keys-ring-size set-recent-keys-ring-size)
 
 (defsetf getenv setenv t)


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Contrary to popular belief, Unix is user friendly.  
It just happens to be selective about who it makes friends with.

