Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!husc6!mit-eddie!ll-xn!cit-vax!ucla-cs!zen!ucbvax!paris.Berkeley.EDU!larus
From: larus@paris.Berkeley.EDU.berkeley.edu (James Larus)
Newsgroups: comp.emacs
Subject: Re: check lisp file for unbalanced parentheses
Message-ID: <19669@ucbvax.BERKELEY.EDU>
Date: Fri, 10-Jul-87 19:56:18 EDT
Article-I.D.: ucbvax.19669
Posted: Fri Jul 10 19:56:18 1987
Date-Received: Sun, 12-Jul-87 12:53:05 EDT
References: <385@sage.cs.reading.ac.uk>
Sender: usenet@ucbvax.BERKELEY.EDU
Reply-To: larus@paris.Berkeley.EDU.UUCP (James Larus)
Distribution: world
Organization: University of California, Berkeley
Lines: 17


Here is a function that I use.  It is not prefect, but it is usually acurate
and is fast.

/Jim

(defun find-unbalanced-parenthesis ()
  "Verifies that parentheses in the current Lisp buffer are balanced."
  (interactive)
  (let ((started-here (point)))
    (goto-char (point-min))
    (while (re-search-forward "^(" nil t)
      (backward-char 1)
      (forward-sexp 1)
      (if (looking-at ")") (error "Extra `)'")))
    (goto-char started-here)
    (message "All parentheses appear to be balanced.")))