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