check-parens

Hi, below a parentese check function. Couldn't see it so far. Please note, while retaining the name of a GNU function, wrote it completely new. Thanks all Andreas Röhler (when (featurep 'xemacs) (defun check-parens () "Check for unbalanced parentheses. Stop at the beginning of defective form. " (interactive) (let ((pos (point))) (goto-char (point-min)) (or (condition-case nil (while (not (eobp)) (forward-list)) (error (skip-chars-forward " \n\t"))) (progn (message "%s" "ok") (goto-char pos)))))) _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta