From xemacs-m  Mon Jul  7 19:03:00 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 TAA09432
	for <xemacs-beta@xemacs.org>; Mon, 7 Jul 1997 19:02:59 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id CAA05604; Tue, 8 Jul 1997 02:02:58 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: [PATCH] New defsetfs
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: 08 Jul 1997 02:02:58 +0200
Message-ID: <kig3epq1kct.fsf@jagor.srce.hr>
Lines: 18
X-Mailer: Gnus v5.4.59/XEmacs 20.3(beta10) - "Athens"

--- lisp/cl/cl-macs.el.orig	Tue Jul  8 01:58:03 1997
+++ lisp/cl/cl-macs.el	Tue Jul  8 01:58:49 1997
@@ -1659,6 +1659,9 @@
 (defsetf get-register set-register)
 (defsetf global-key-binding global-set-key)
 (defsetf keymap-parent set-keymap-parent)
+(defsetf keymap-name set-keymap-name)
+(defsetf keymap-prompt set-keymap-prompt)
+(defsetf keymap-default-binding set-keymap-default-binding)
 (defsetf local-key-binding local-set-key)
 (defsetf mark set-mark t)
 (defsetf mark-marker set-mark t)

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
* Q: What is an experienced Emacs user?
* A: A person who wishes that the terminal had pedals.

