(defun FindNextDbl () "move to next doubled word, ignoring <...> tags" (interactive) (re-search-forward "\\<\\([a-z]+\\)\\([\n \t]\\|<[^>]+>\\)+\\1\\>") ) ----------------------------------------------------------------------------- Copyright 1997-2025 Jeffrey Friedl