check-lisp-parenthesis

[Cecil Westerhof]

I started with a function to check lisp parenthesis.

Before a '(' I accept a space, a tab, a newline, a '(' and a ';'. When
there is another character the user is asked if for the '(' a space has
to be inserted.

After a ')' I accept a space, a tab, a newline and a ')'. When there is
another character the user is asked if after the ')' a space has to be
appended.

So far so good.

But I also want to ask to remove white-space gaps. For example:
              (message message)
            ))))
should be changed -when the user wants it- to:
              (message message)))))

The gap is found, but when I say that I want to delete the gab, this is
not done. What am I doing wrong?

The code:
    (defun check-lisp-parenthesis ()
      (interactive)
      (if (not (interactive-p))
          (message "check-lisp-parenthesis can only be called interactive")
        (save-excursion
          (let ((found-gap-left     0)
                (found-gap-right    0)
                (found-left         0)
                (found-right        0)
                (inserted-gap-left  0)
                (inserted-gap-right 0)
                (inserted-left      0)
                (inserted-right     0)
                (message            ""))
          (goto-char (point-min))
          (while (re-search-forward "[^ \t\n(;](" nil t)
            (setq found-left (1+ found-left))
            (goto-char (forward-point -1))
            (when (y-or-n-p "Insert a space? ")
              (insert " ")
              (setq inserted-left (1+ inserted-left))))
          (setq message (format "%sfound-left: %s, inserted-left: %s\n"
                                message
                                found-left  inserted-left))
          (goto-char (point-min))
          (while (re-search-forward ")[^ \t\n)]" nil t)
            (setq found-right (1+ found-right))
            (goto-char (forward-point -1))
            (when (y-or-n-p "Append a space? ")
              (insert " ")
              (setq inserted-right (1+ inserted-right))))
          (setq message (format "%sfound-right: %s, inserted-right: %s\n"
                                message
                                found-left  inserted-left))
          (goto-char (point-min))
          (while (re-search-forward ")[ \t\n]+)" nil t)
            (setq found-gap-right (1+ found-gap-right))
            (when (y-or-n-p (match-string 0)) ;"Delete gap? ")
              (replace-match "))" nil nil nil 0)
              (setq inserted-gap-right (1+ inserted-gap-right))))
          (setq message (format "%sfound-gap-right: %s, inserted-gap-right: 
%s\n"
                                message
                                found-gap-right  inserted-gap-right))
          (message message)
        ))))

-- 
Cecil Westerhof
Senior Software Engineer
LinkedIn: http://www.linkedin.com/in/cecilwesterhof