From xemacs-m  Tue Mar  4 03:52:18 1997
Received: from pm1.contactor.se (isdn74056.dial.tip.net [194.17.4.56])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id DAA16323
	for <xemacs-beta@xemacs.org>; Tue, 4 Mar 1997 03:52:15 -0600 (CST)
Received: from SID (ras4 [194.18.85.114]) by pm1.contactor.se (8.7.5/8.7.3) with SMTP id KAA08586; Tue, 4 Mar 1997 10:52:19 +0100 (MET)
Sender: matsl@sid.contactor.se
To: xemacs-beta@xemacs.org
Cc: steve@miranova.com
Subject: Re: kotl-mode broken in Hyperbole distributed with XEmacs 20.1-b3
References: <199702281049.CAA03204@infodock.com> <y9l4tew675z.fsf@modas.informatik.uni-tuebingen.de> <urai0zg31.fsf@pm1.contactor.se> <m29148e5t5.fsf@altair.xemacs.org>
Mime-Version: 1.0 (generated by tm-edit 7.93)
Content-Type: text/plain; charset=US-ASCII
From: Mats Lidell <Mats.Lidell@contactor.se>
Date: 04 Mar 1997 10:58:44 +0100
In-Reply-To: Steven L Baur's message of 28 Feb 1997 17:53:26 -0800
Message-ID: <ubu900yi3.fsf@pm1.contactor.se>
Lines: 55
X-Mailer: Gnus v5.4.11/Emacs 19.34

>>>>> sb wrote:

sb> Do I need to apply that patch to Hyperbole 4.022 or not?

Don't apply my patch. Bob Weiner has supplied a new patch that works
around the problem (the right way I guess ;-).

The patch has been posted here before but since you ask I guess it
might have been missed. So here goes again.

---------------------------------
Patch to apply in lisp/hyperbole/kotl/:


--- kprop-xe.el~	Mon Oct 30 19:20:53 1995
+++ kprop-xe.el	Fri Feb 28 23:41:02 1997
@@ -6,14 +6,15 @@
 ;; KEYWORDS:     outlines, wp
 ;;
 ;; AUTHOR:       Bob Weiner
+;; ORG:          InfoDock Associates
 ;;
 ;; ORIG-DATE:    7/27/93
-;; LAST-MOD:     30-Oct-95 at 21:21:20 by Bob Weiner
+;; LAST-MOD:     28-Feb-97 at 23:41:02 by Bob Weiner
 ;;
 ;; This file is part of Hyperbole.
 ;; Available for use and distribution under the same terms as GNU Emacs.
 ;;
-;; Copyright (C) 1993, 1994, 1995  Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1995, 1997  Free Software Foundation, Inc.
 ;; Developed with support from Motorola Inc.
 ;;
 ;; DESCRIPTION:  
@@ -92,7 +93,8 @@
 text.  Text inserted before or after this region does not inherit the added
 properties."
   ;; Don't use text properties internally because they don't work as desired
-  ;; when copied to a string and then reinserted.
+  ;; when copied to a string and then reinserted, at least in some versions
+  ;; of XEmacs.
   (let ((extent (make-extent start end object)))
     (if (null extent)
 	(error "(kproperty:put): No extent at %d-%d to add properties %s" 
@@ -100,7 +102,7 @@
     (if (/= (mod (length property-list) 2) 0)
 	(error "(kproperty:put): Property-list has odd number of elements, %s"
 	       property-list))
-    (set-extent-property extent 'text-prop t)
+    (set-extent-property extent 'text-prop (car property-list))
     (set-extent-property extent 'duplicable t)
     (set-extent-property extent 'start-open t)
     (set-extent-property extent 'end-open t)

%% Mats

