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.")))