(defun find-geonames ()
  "Find capitalized geographical names in the current region that are
followed by a close brace, and preceded by space and open brace,
without intervening braces.  Such instances are candidates for
\\geoname{...} wrappers."
  (interactive)

  (goto-char (point-min))
  (let ((case-fold-search nil))
    (occur (concat
	    "^ *title *= *\".*"
	    " [{][^{}]*"
	    "\\(Archipelago"
	    "\\|Association"
	    "\\|Atol"
	    "\\|Atoll"
	    "\\|Bahia"
	    "\\|Banks"
	    "\\|Bank"
	    "\\|Basin"
	    "\\|Bayou"
	    "\\|Bay"
	    "\\|Beach"
	    "\\|Bight"
	    "\\|Brook"
	    "\\|Cabo"
	    "\\|Caldera"
	    "\\|Canal"
	    "\\|Canyon"
	    "\\|Cape"
	    "\\|Cap"
	    "\\|Channel"
	    "\\|City"
	    "\\|Coast"
	    "\\|Commission"
	    "\\|Committee"
	    "\\|Continent"
	    "\\|Council"
	    "\\|County"
	    "\\|Creek"
	    "\\|Current"
	    "\\|Cyclone"
	    "\\|Dam"
	    "\\|Delta"
	    "\\|District"
	    "\\|Division"
	    "\\|Earthquake"
	    "\\|Estuary"
	    "\\|Furrow"
	    "\\|Glacier"
	    "\\|Golfo"
	    "\\|Gulf"
	    "\\|Gyre"
	    "\\|Harbor"
	    "\\|Harbour"
	    "\\|Hill"
	    "\\|Hurricane"
	    "\\|Inlet"
	    "\\|Islands"
	    "\\|Island"
	    "\\|Isles"
	    "\\|Islet"
	    "\\|Isle"
	    "\\|Isthmus"
	    "\\|Keys"
	    "\\|Key"
	    "\\|Lagoon"
	    "\\|Laguna"
	    "\\|Lake"
	    "\\|Loch"
	    "\\|Lough"
	    "\\|Mountain"
	    "\\|Mount"
	    "\\|Mt"
	    "\\|Ocean"
	    "\\|Park"
	    "\\|Passage"
	    "\\|Peninsula"
	    "\\|Plains"
	    "\\|Plateau"
	    "\\|Point"
	    "\\|Polynya"
	    "\\|Pond"
	    "\\|Pool"
	    "\\|Port"
	    "\\|Province"
	    "\\|Range"
	    "\\|Reef"
	    "\\|Regency"
	    "\\|Reservoir"
	    "\\|Ridge"
	    "\\|Rise"
	    "\\|River"
	    "\\|Seabight"
	    "\\|Seamount"
	    "\\|Sea"
	    "\\|Shelf"
	    "\\|Shield"
	    "\\|Shoal"
	    "\\|Sierra"
	    "\\|Site"
	    "\\|Slope"
	    "\\|Slough"
	    "\\|Sound"
	    "\\|Spit"
	    "\\|Springs"
	    "\\|Spur"
	    "\\|State"
	    "\\|Station"
	    "\\|Straits"
	    "\\|Strait"
	    "\\|Stream"
	    "\\|Subcontinent"
	    "\\|Swamp"
	    "\\|Terrace"
	    "\\|Territories"
	    "\\|Territory"
	    "\\|Trough"
	    "\\|Valley"
	    "\\|Volcano"
	    "\\|Waterfalls"
	    "\\|Waterfall"
	    "\\|Weathership\\)"
	    "[}]"))))