From xemacs-m  Tue Jul 29 14:05:45 1997
Received: from mailbox1.ucsd.edu (mailbox1.ucsd.edu [132.239.1.53])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id OAA02072
	for <xemacs-beta@xemacs.org>; Tue, 29 Jul 1997 14:05:44 -0500 (CDT)
Received: from sdnp5.ucsd.edu (sdnp5.ucsd.edu [132.239.79.10]) by mailbox1.ucsd.edu (8.8.5/8.6.9) with SMTP id MAA16347 for <xemacs-beta@xemacs.org>; Tue, 29 Jul 1997 12:05:45 -0700 (PDT)
Received: by sdnp5.ucsd.edu (SMI-8.6/SMI-SVR4)
	id MAA28994; Tue, 29 Jul 1997 12:05:09 -0700
To: xemacs-beta@xemacs.org
Subject: [patch] Re: Forms mode still broken in 20.3-15
References: <199707291714.NAA20401@dolphin.automatrix.com>
X-Face: "oX;zS#-JU$-,WKSzG.1gGE]x^cIg!hW.dq>.f6pzS^A+(k!T|M:}5{_%>Io<>L&{hO7W4cicOQ|>/lZ1G(m%7iaCf,6Qgk0%%Bz7b2-W3jd0m_UG\Y;?]}4s0O-U)uox>P3JN)9cm]O\@,vy2e{`3pb!"pqmRy3peB90*2L
Mail-Copies-To: never
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Tue_Jul_29_12:05:03_1997-1"
Content-Transfer-Encoding: 7bit
From: David Moore <dmoore@ucsd.edu>
Date: 29 Jul 1997 12:05:03 -0700
In-Reply-To: Skip Montanaro's message of "Tue, 29 Jul 1997 13:14:38 -0400 (EDT)"
Message-ID: <rven8hvfvk.fsf@sdnp5.ucsd.edu>
Lines: 46
X-Mailer: Gnus v5.4.64/XEmacs 20.3(beta15) - "Berlin"

--Multipart_Tue_Jul_29_12:05:03_1997-1
Content-Type: text/plain; charset=US-ASCII

Skip Montanaro <skip@automatrix.com> writes:

> I then executed forms-find-file on the forms-d2.el file that is
> distributed in .../lisp/utils/forms-d2.el.  I still get a "Buffer is
> read-only" error.  (See below.)  I tried to generate a backtrace, but
> even with stack-trace-on-error set to t, all I got was a beep and a
> message.  (Did something change with how that variable works between
> v19 and v20?)

Hmm, here's the patch I was using on 20.3b6.  Either i forgot to send it 
in, or it got misplaced.  Anyways.

Oh lovely, I just noticed that it's got annoying RCS tags in the file.
well the second hunk should succeed.


--Multipart_Tue_Jul_29_12:05:03_1997-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="forms.diff"
Content-Transfer-Encoding: 7bit

--- forms.el.orig	Tue Jul 29 11:59:37 1997
+++ forms.el	Tue Jul 29 11:59:12 1997
@@ -303,7 +303,7 @@
 (defconst forms-version (substring "$Revision: 1.1 $" 11 -2)
   "The version number of forms-mode (as string).  The complete RCS id is:
 
-  $Id: forms.el,v 1.1 1997/06/14 21:12:15 dmoore Exp $")
+  $Id: forms.el,v 1.1 1997/06/14 21:12:15 dmoore Exp dmoore $")
 
 (defvar forms-mode-hooks nil
   "Hook functions to be run upon entering Forms mode.")
@@ -1677,6 +1677,8 @@
   (if forms-use-text-properties
       (let ((inhibit-read-only t))
 	(set-text-properties (point-min) (point-max) nil)))
+  (if forms-use-extents
+      (map-extents '(lambda (x ignore) (detach-extent x) nil)))
   (erase-buffer)
 
   ;; Verify the number of fields, extend forms--the-record-list if needed.

--Multipart_Tue_Jul_29_12:05:03_1997-1--

