From xemacs-m  Mon Dec 30 11:35:30 1996
Received: from steadfast.teradyne.com (steadfast.teradyne.com [131.101.1.200])
          by xemacs.cs.uiuc.edu (8.8.4/8.8.4) with ESMTP
	  id LAA16238 for <xemacs-beta@xemacs.org>; Mon, 30 Dec 1996 11:35:30 -0600 (CST)
Received: from kiki.icd.teradyne.com (kiki.icd.teradyne.com [131.101.1.30]) by steadfast.teradyne.com (8.7.1/8.7.1) with ESMTP id MAA28646 for <xemacs-beta@xemacs.org>; Mon, 30 Dec 1996 12:38:23 -0500 (EST)
Received: from spacely.icd.teradyne.com (spacely.icd.teradyne.com [131.101.10.9]) by kiki.icd.teradyne.com (8.7.1/8.7.1) with SMTP id MAA11110 for <xemacs-beta@xemacs.org>; Mon, 30 Dec 1996 12:33:01 -0500 (EST)
Received: from spacely by spacely.icd.teradyne.com (SMI-8.6/SMI-SVR4)
	id MAA10464; Mon, 30 Dec 1996 12:35:05 -0500
Message-Id: <199612301735.MAA10464@spacely.icd.teradyne.com>
To: xemacs-beta@xemacs.org
reply-to: acs@acm.org
Subject: mic-paren
Date: Mon, 30 Dec 1996 12:35:05 -0500
From: Vinnie Shelton  <shelton@icd.teradyne.com>


I hadn't known that mic-paren was in XEmacs.  Is there any reason not to
use the latest version?  Here are the unidiffs (I grabbed this from
http://www.docs.uu.se/~mic/emacs.html):

--vin

--- /h/spacely/src/xemacs-19.15-b6/lisp/packages/mic-paren.el	Tue Dec 17 23:03:38 1996
+++ lib/lisp/mic-paren.el	Mon Dec 30 08:43:46 1996
@@ -1,5 +1,5 @@
 ;;; mic-paren.el --- highlight matching paren.
-;;; Version 1.0 - 96-08-16
+;;; Version 1.2 - 96-09-19
 ;;; Copyright (C) 1996 Mikael Sjdin (mic@docs.uu.se)
 ;;;
 ;;; Author: Mikael Sjdin  --  mic@docs.uu.se
@@ -45,9 +45,10 @@
 ;;; matching parenthesis (or the entire expression between the parenthesises)
 ;;; is highlighted until the cursor is moved away from the parenthesis.
 ;;; Features include:
-;;; o Both forward and backward parenthesis matching (_simultaneously_ if
+;;; o Both forward and backward parenthesis matching (simultaneously if
 ;;;   cursor is between two expressions).
 ;;; o Indication of mismatched parenthesises.
+;;; o Recognition of "escaped" parenthesises.
 ;;; o Option to select if only the matching parenthesis or the entire
 ;;;   expression should be highlighted.
 ;;; o Message describing the match when the matching parenthesis is
@@ -57,12 +58,12 @@
 ;;; o Numerous options to control the behaviour and appearance of
 ;;;   mic-paren.el. 
 ;;;
-;;; mic-paren.el is developed and tested under Emacs 19.28 - 19.31.  It should
-;;; work on earlier and forthcoming Emacs versions.
+;;; mic-paren.el is developed and tested under Emacs 19.28 - 19.34.  It should
+;;; work on earlier and forthcoming Emacs versions.  XEmacs compatibility has
+;;; been provided by Steven L Baur <steve@miranova.com>.
 ;;;
 ;;; This file can be obtained from http://www.docs.uu.se/~mic/emacs.html
 
-;; Ported to XEmacs 15-September, 1996 Steve Baur <steve@miranova.com>
 ;;; ======================================================================
 ;;; User Options:
 
@@ -181,7 +182,7 @@
 ;;; ======================================================================
 ;;; User Functions:
 
-;; XEmacs compatibility
+;; XEmacs compatibility (by Steven L Baur <steve@miranova.com>)
 (eval-and-compile
   (if (fboundp 'make-extent)
       (progn
@@ -189,8 +190,7 @@
 	(fset 'mic-delete-overlay 'delete-extent)
 	(fset 'mic-overlay-put 'set-extent-property)
 	(defun mic-cancel-timer (timer) (delete-itimer timer))
-	(defun mic-run-with-idle-timer (secs repeat function &rest args)
-	  (start-itimer "mic-paren-idle" function secs nil))
+	(fset 'mic-run-with-idle-timer 'start-itimer)
 	)
     (fset 'mic-make-overlay 'make-overlay)
     (fset 'mic-delete-overlay 'delete-overlay)
@@ -240,15 +240,15 @@
   (or paren-dont-touch-blink
       (setq blink-matching-paren nil))
 
-  (cond
+  (cond(
 	;; If timers are available use them
 	;; (Emacs 19.31 and above)
-	((or (featurep 'timer) (featurep 'itimer))
-	 (if (numberp paren-delay)
-	     (setq mic-paren-idle-timer 
-		   (mic-run-with-idle-timer paren-delay t
-					    'mic-paren-command-idle-hook))
-	   (add-hook 'post-command-hook 'mic-paren-command-hook)))
+	(featurep 'timer)
+	(if (numberp paren-delay)
+	    (setq mic-paren-idle-timer 
+		  (mic-run-with-idle-timer paren-delay t
+					   'mic-paren-command-idle-hook))
+	  (add-hook 'post-command-hook 'mic-paren-command-hook)))
        ;; If the idle hook exists assume it is functioning and use it 
        ;; (Emacs 19.30)
        ((and (boundp 'post-command-idle-hook) 

