Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!mcvax!diku!seindal
From: seindal@diku.UUCP (Rene Seindal)
Newsgroups: comp.emacs
Subject: Re: LaTeX and spell
Message-ID: <3366@diku.UUCP>
Date: Thu, 6-Aug-87 05:12:42 EDT
Article-I.D.: diku.3366
Posted: Thu Aug  6 05:12:42 1987
Date-Received: Sat, 8-Aug-87 16:54:24 EDT
References: <14159@watmath.waterloo.edu>
Distribution: world
Organization: DIKU, U of Copenhagen, DK
Lines: 79


Heres a diff to spell.el which makes i possible to use any spelling
checker.  It used a variable "spell-program" to specify the spelling checker
to use.  It is set to "spell" by default, but it can be made local to any
buffer to specify another program.

Rene' Seindal (seindal@diku.uucp)
The Computer Department, Institute of Datalogy, U. of Copenhagen.

-- CUT HERE ----------------------------------------------------------
*** /usr/src/new/emacs/lisp/spell.el	Tue Sep 30 18:13:46 1986
--- /usr/staff/seindal/emacs/src/spell.el	Thu Aug  6 11:05:46 1987
***************
*** 18,24 ****
--- 18,28 ----
  ;; file named COPYING.  Among other things, the copyright notice
  ;; and this notice must be preserved on all copies.
  
+ ;; Rene Seindal (seindal@diku.dikunet) Tue May 19 10:27:52 1987 
+ ;; Introduced variable spell-program.
  
+ (defvar spell-program "spell" "*Program to use for spelling checks")
+ 
  (defun spell-buffer ()
    "Check spelling of every word in the buffer.
  For each incorrect word, you are asked for the correct spelling
***************
*** 53,59 ****
       (erase-buffer))
      (message "Checking spelling of %s..." (or description "region"))
      (if (= ?\n (char-after (1- end)))
! 	(call-process-region start end "spell"
  			     nil buf)
        (let ((oldbuf (current-buffer)))
  	(save-excursion
--- 57,63 ----
       (erase-buffer))
      (message "Checking spelling of %s..." (or description "region"))
      (if (= ?\n (char-after (1- end)))
! 	(call-process-region start end spell-program
  			     nil buf)
        (let ((oldbuf (current-buffer)))
  	(save-excursion
***************
*** 60,67 ****
  	 (set-buffer buf)
  	 (insert-buffer-substring oldbuf start end)
  	 (insert ?\n)
! 	 (call-process-region (point-min) (point-max) "spell"
! 			      t buf))))
      (message "Checking spelling of %s...%s"
  	     (or description "region")
  	     (if (save-excursion
--- 64,71 ----
  	 (set-buffer buf)
  	 (insert-buffer-substring oldbuf start end)
  	 (insert ?\n)
! 	 (call-process-region (point-min) (point-max) spell-program
! 			      t buf ))))
      (message "Checking spelling of %s...%s"
  	     (or description "region")
  	     (if (save-excursion
***************
*** 101,107 ****
       (widen)
       (erase-buffer)
       (insert string "\n")
!      (call-process-region (point-min) (point-max) "spell"
  			  t t)
       (if (= 0 (buffer-size))
  	 (message "%s is correct" string)
--- 105,111 ----
       (widen)
       (erase-buffer)
       (insert string "\n")
!      (call-process-region (point-min) (point-max) spell-program
  			  t t)
       (if (= 0 (buffer-size))
  	 (message "%s is correct" string)