From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/4159
Path: main.gmane.org!not-for-mail
From: Christopher Davis <ckd@loiosh.kei.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: xemacs user sees trouble with gnus-vis
Date: Wed, 29 Nov 1995 16:03:23 -0500 (EST)
Message-ID: <199511292103.QAA03852@loiosh.kei.com>
References: <199511291605.RAA28158@ifi.uio.no>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035144947 28703 80.91.224.250 (20 Oct 2002 20:15:47 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:15:47 +0000 (UTC)
Cc: ding@ifi.uio.no
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by miranova.com (8.6.11/8.6.9) with ESMTP id OAA14584 for <steve@miranova.com>; Wed, 29 Nov 1995 14:35:49 -0800
Original-Received: from loiosh.kei.com (ckd@loiosh.kei.com [192.88.144.32]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <WAA20178@ifi.uio.no> for <ding@ifi.uio.no> ; Wed, 29 Nov 1995 22:03:29 +0100
Original-Received: (from ckd@localhost) by loiosh.kei.com (8.7.1/8.7.1) id QAA03852; Wed, 29 Nov 1995 16:03:23 -0500 (EST)
Original-To: Karl_Kleinpaste@APHRODITE.NECTAR.CS.CMU.EDU (Karl Kleinpaste)
In-Reply-To: <199511291605.RAA28158@ifi.uio.no>
X-Attribution: ckd
Xref: main.gmane.org gmane.emacs.gnus.general:4159
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:4159

KK> == Karl Kleinpaste <Karl_Kleinpaste@APHRODITE.NECTAR.CS.CMU.EDU>

 KK> Is anyone else out there familiar with the following failure mode
 KK> under xemacs?

 KK> The error raised is: wrong type argument, bufferp, ">>"

 KK>   set-text-properties(0 2 nil ">>")

Known bug in the text-properties compatibility stuff shipped in 19.13.

Change lisp/utils/text-props.el and re-byte-compile.

--- text-props.el~	Wed Aug 30 19:36:48 1995
+++ text-props.el	Wed Sep  6 22:42:51 1995
@@ -303,14 +303,16 @@
 (defun set-text-properties (start end props &optional buffer)
   "You should NEVER use this function.  It is ideologically blasphemous.
 It is provided only to ease porting of broken FSF Emacs programs."
-  (map-extents #'(lambda (extent ignored)
-		   (remove-text-properties start end
-					   (list (extent-property extent
-								  'text-prop)
-						 nil)
-					   buffer))
-	       buffer start end nil nil 'text-prop)
-  (add-text-properties start end props buffer))
+  (if (and (stringp buffer) (not (setq buffer (get-buffer buffer))))
+      nil
+    (map-extents #'(lambda (extent ignored)
+		     (remove-text-properties start end
+					     (list (extent-property extent
+								    'text-prop)
+						   nil)
+					     buffer))
+		 buffer start end nil nil 'text-prop)
+    (add-text-properties start end props buffer)))
 
 
 ;;; The following functions can probably stay in lisp, since they're so simple.