From xemacs-m  Fri Feb 28 12:38:03 1997
Received: from venus.Sun.COM (venus.Sun.COM [192.9.25.5])
	by xemacs.org (8.8.5/8.8.5) with SMTP id MAA09045
	for <xemacs-beta@xemacs.org>; Fri, 28 Feb 1997 12:38:02 -0600 (CST)
Received: from infodock.com (wave.infodock.com [206.13.40.192]) by venus.Sun.COM (SMI-8.6/mail.byaddr) with ESMTP id KAA00301; Fri, 28 Feb 1997 10:36:57 -0800
Received: (from weiner@localhost) by infodock.com (8.7.4/8.7.3) id CAA03204; Fri, 28 Feb 1997 02:49:04 -0800
Date: Fri, 28 Feb 1997 02:49:04 -0800
From: Bob Weiner <weiner@infodock.com>
Message-Id: <199702281049.CAA03204@infodock.com>
To: hyperbole@infodock.com, xemacs-beta@xemacs.org
In-reply-to: <y9lzpwp5qvv.fsf@modas.informatik.uni-tuebingen.de> (sperber@informatik.uni-tuebingen.de)
Subject: Re: kotl-mode broken in Hyperbole distributed with XEmacs 20.1-b3

>>>>> "MS" == Michael Sperber [Mr Preprocessor] <sperber@informatik.uni-tuebingen.de> writes:

   MS> The following patch was submitted several times (originally by Mats
   MS> Lidell, I believe).  Without it, kotl-mode does not work on XEmacs.

Well all I can say is that it used to work in earlier versions of XEmacs, so
that makes me think someone broke the compatibility of the get-text-property
function with the FSF functionality.  I'll put the patch in after testing
but I'd prefer that someone explain precisely what happens and why the
get-text-property call is now wrong.

Bob



   MS> *** lisp/hyperbole/kotl/kprop-xe.el~	Fri Feb 21 04:24:00 1997
   MS> --- lisp/hyperbole/kotl/kprop-xe.el	Fri Feb 28 08:21:14 1997
   MS> ***************
   MS> *** 29,39 ****
   MS>   ;;; Public functions
   MS>   ;;; ************************************************************************
  
   MS> ! ;; (get-text-property (pos prop &optional object))
   MS> ! ;; Return the value of position POS's property PROP, in OBJECT.
   MS> ! ;; OBJECT is optional and defaults to the current buffer.
   MS> ! ;; If POSITION is at the end of OBJECT, the value is nil.
   MS> ! (fset 'kproperty:get 'get-text-property)
  
   MS>   (if (and hyperb:xemacs-p (or (>= emacs-minor-version 12)
   MS>   			     (> emacs-major-version 19)))
   MS> --- 29,39 ----
   MS>   ;;; Public functions
   MS>   ;;; ************************************************************************
  
   MS> ! (defun kproperty:get (pos prop &optional object)
   MS> !   "Return the value of position POS's property PROP, in OBJECT.
   MS> ! OBJECT is optional and defaults to the current buffer.
   MS> ! If POSITION is at the end of OBJECT, the value is nil."
   MS> !    (extent-property (extent-at pos object) prop))
  
   MS>   (if (and hyperb:xemacs-p (or (>= emacs-minor-version 12)
   MS>   			     (> emacs-major-version 19)))

