From xemacs-m  Fri Feb 28 01:30:51 1997
Received: from macon.informatik.uni-tuebingen.de (macon2.Informatik.Uni-Tuebingen.De [134.2.13.2])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id BAA23543
	for <xemacs-beta@xemacs.org>; Fri, 28 Feb 1997 01:30:50 -0600 (CST)
Received: from modas.informatik.uni-tuebingen.de (modas.Informatik.Uni-Tuebingen.De [134.2.12.3]) by macon.informatik.uni-tuebingen.de (8.8.4/8.8.3/AIX-4.1/WSI-1.0) with SMTP id IAA21868; Fri, 28 Feb 1997 08:30:48 +0100
Received: by modas.informatik.uni-tuebingen.de (AIX 4.1/UCB 5.64/4.03)
          id AA22584; Fri, 28 Feb 1997 08:30:46 +0100
Sender: sperber@informatik.uni-tuebingen.de
To: hyperbole@infodock.com
Cc: xemacs-beta@xemacs.org
Subject: kotl-mode broken in Hyperbole distributed with XEmacs 20.1-b3
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: text/plain; charset=US-ASCII
From: sperber@informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor])
Date: 28 Feb 1997 08:30:44 +0100
Message-Id: <y9lzpwp5qvv.fsf@modas.informatik.uni-tuebingen.de>
Lines: 36
X-Mailer: Gnus v5.4.15/XEmacs 20.1


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

Bob?

Cheers =8-} Mike

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

