Mercurial > hg > xemacs-beta
diff lisp/packages/mic-paren.el @ 12:bcdc7deadc19 r19-15b7
Import from CVS: tag r19-15b7
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:48:16 +0200 |
parents | 27bc7f280385 |
children | 4103f0995bd7 |
line wrap: on
line diff
--- a/lisp/packages/mic-paren.el Mon Aug 13 08:47:56 2007 +0200 +++ b/lisp/packages/mic-paren.el Mon Aug 13 08:48:16 2007 +0200 @@ -1,8 +1,8 @@ ;;; mic-paren.el --- highlight matching paren. -;;; Version 1.0 - 96-08-16 -;;; Copyright (C) 1996 Mikael Sjödin (mic@docs.uu.se) +;;; Version 1.2 - 96-09-19 +;;; Copyright (C) 1996 Mikael Sj,Av(Bdin (mic@docs.uu.se) ;;; -;;; Author: Mikael Sjödin -- mic@docs.uu.se +;;; Author: Mikael Sj,Av(Bdin -- mic@docs.uu.se ;;; Keywords: languages, faces ;;; ;;; This file is NOT part of GNU Emacs. @@ -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@altair.xemacs.org>. ;;; ;;; 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@altair.xemacs.org>) (eval-and-compile (if (fboundp 'make-extent) (progn @@ -240,15 +241,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)