check-parens
Hi,
wanted to have a check-parens function.
Wrote this:
(defun check-parens ()
"Search unbalanced parentheses. Stops at the beginning of defective form. "
(interactive)
(goto-char (point-min))
(condition-case nil
(while (not (eobp))
(forward-list))
(error (skip-chars-forward " \n\t"))))
Comments welcome, thanks all.
Andreas Röhler
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta