Listings from page 101
Chapter 3; page 101 (download)
(defun FindNextDbl () "move to next doubled word, ignoring <...> tags" (interactive) (re-search-forward "\\<\\([a-z]+\\)\\([\n \t]\\|<[^>]+>\\)+\\1\\>") ) |
Fetch additional Third-Edition listings and data: