From xemacs-m  Wed Jan 15 13:45:03 1997
Received: from nvwls.cc.purdue.edu (root@nvwls.cc.purdue.edu [128.210.7.3])
          by xemacs.org (8.8.4/8.8.4) with ESMTP
	  id NAA23339 for <XEmacs-Beta@XEmacs.org>; Wed, 15 Jan 1997 13:45:00 -0600 (CST)
Received: from nvwls.cc.purdue.edu (nuspl@localhost [127.0.0.1]) by nvwls.cc.purdue.edu (8.7.5/8.7.3) with ESMTP id OAA25685 for <XEmacs-Beta@XEmacs.org>; Wed, 15 Jan 1997 14:38:02 -0500
Message-Id: <199701151938.OAA25685@nvwls.cc.purdue.edu>
Reply-to: nuspl@purdue.edu
X-Mailer: MH-E 5.0.2
X-Attribution: jjn
X-Face: K'Q`VIQx)c-;TPHDA`.,kBQq(WyNe3AdopJ?B(.4yT%n|F?4>+?x]pQ4XC83s-4;|U{%9x]
 =yr4dko
To: XEmacs-Beta@XEmacs.org
Subject: Anyone have access to 19.34b?
Mime-Version: 1.0 (generated by tm-edit 7.100)
Content-Type: text/plain; charset=US-ASCII
Date: Wed, 15 Jan 1997 14:38:00 -0500
From: Joe Nuspl <nuspl@nvwls.cc.purdue.edu>


Could you eval this and send me the results?


(defun test-overlay (start &optional front rear)
  (let (ovl beg end)
    (setq beg (point-min)
	  end (1+ beg)
	  ovl (make-overlay beg end nil front rear))
    (save-excursion 
      (goto-char (if start
		     beg
		   end))
      (insert-string ";;"))
    (format ";; %d %d %d: %d %d\n"
	    (if start 1 0)
	    (if front 1 0)
	    (if rear  1 0)
	    (overlay-start ovl)
	    (overlay-end ovl))))

(save-excursion
 (goto-char (point-max))
 (mapcar 'insert-string 
	 (list
	  (test-overlay t   t   t  )
	  (test-overlay t   t   nil)
	  (test-overlay t   nil t  )
	  (test-overlay t   nil nil)
	  (test-overlay nil t   t  )
	  (test-overlay nil t   nil)
	  (test-overlay nil nil t  )
	  (test-overlay nil nil nil)
   )))

