Xref: utzoo comp.text.tex:3969 comp.emacs:9574
Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!julius.cs.uiuc.edu!ux1.cso.uiuc.edu!ux1.cso.uiuc.edu!aglew
From: aglew@crhc.uiuc.edu (Andy Glew)
Newsgroups: comp.text.tex,comp.emacs
Subject: tags-ispell
Message-ID: <AGLEW.90Nov21042456@cobra.crhc.uiuc.edu>
Date: 21 Nov 90 12:24:56 GMT
Sender: news@ux1.cso.uiuc.edu (News)
Organization: Center for Reliable and High-Performance Computing University of
	Illinois at Urbana Champaign
Lines: 34

Tonight I wanted to ispell all of the files in my MS thesis
(which is spread all over the place in upwards of 60 files).

ispell -l understands \input and \include LaTeX directives,
but GNU EMACS' ispell mode does not, so a lot of misspelled words
cannot be found in the root of the document.

As a quick workaround I wrote the following, which loop
over all the files in your tag table, asking you if you want to
ispell any of them:


  (defun tags-ispell ()
	 (interactive)
	 (tags-search "\\`.")
	 (tags-ispell-prompter)
	 (tags-ispell-continue))
  (defun tags-ispell-continue ()
	 (interactive)
	 (while t
		(tags-loop-continue)
		(tags-ispell-prompter)))
  (defun tags-ispell-prompter () 
	 (if (y-or-n-p (format "ispell this file (%s)? " (file-name-nondirectory (buffer-file-name))))
	     (ispell-buffer)))

  (make-global-binding "\M-ss" 'tags-ispell)
  (make-global-binding "\M-s\M-s" 'tags-ispell-continue)


Use and enjoy.

--
Andy Glew, a-glew@uiuc.edu [get ph nameserver from uxc.cso.uiuc.edu:net/qi]