Re: On refining regexp by adding exceptions systematically

[Rodney Sparapani <rsparapa@mcw.edu>]

Sorry, I missed the original post.  I wanted the same functionality from 
regexps myself. However, after I realized that regexps alone would not 
do it, I wrote the following routine in elisp for ESS.  Enjoy.

(defun ess-search-except (regexp &optional except backward)
"Search for a regexp, store as match 1, optionally ignore strings that 
match exceptions."
    (interactive)
   
    (let ((continue t) (exit nil))

    (while continue
    (if (or (and backward (search-backward-regexp regexp nil t))
                (and (not backward) (search-forward-regexp regexp nil 
t))) (progn
        (setq exit (match-string 1))
            (setq continue (and except (string-match except exit)))
        (if continue (setq exit nil)))
        ;else
        (setq continue nil)))

    exit))

-- 
Rodney Sparapani              Medical College of Wisconsin
Sr. Biostatistician           Patient Care & Outcomes Research
rsparapa@mcw.edu              http://www.mcw.edu/pcor
Was 'Name That Tune' rigged?  WWLD -- What Would Lombardi Do