Mercurial > emacs

comparison lisp/textmodes/ispell.el @ 38436:b174db545cfd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Some fixes to follow coding conventions.
author Pavel Janík <Pavel@Janik.cz>
date Mon, 16 Jul 2001 12:23:00 +0000
parents 931c07edd6e3
children f1184d540c06
comparison
equal deleted inserted replaced
38435:a9102b5472f0 38436:b174db545cfd
1 ;;; ispell.el --- Interface to International Ispell Versions 3.1 and 3.2 1 ;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2
2 2
3 ;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
4 4
5 ;; Author: Ken Stevens <k.stevens@ieee.org> 5 ;; Author: Ken Stevens <k.stevens@ieee.org>
6 ;; Maintainer: Ken Stevens <k.stevens@ieee.org> 6 ;; Maintainer: Ken Stevens <k.stevens@ieee.org>
7 ;; Stevens Mod Date: Fri Aug 4 09:41:50 PDT 2000 7 ;; Stevens Mod Date: Fri Aug 4 09:41:50 PDT 2000
8 ;; Stevens Revision: 3.4 8 ;; Stevens Revision: 3.4
9 ;; Status : Release with 3.1.12+ and 3.2.0+ ispell. 9 ;; Status : Release with 3.1.12+ and 3.2.0+ ispell.
10 ;; Bug Reports : ispell-el-bugs@itcorp.com 10 ;; Bug Reports : ispell-el-bugs@itcorp.com
11 ;; Web Site : http://kdstevens.com/~stevens/ispell-page.html 11 ;; Web Site : http://kdstevens.com/~stevens/ispell-page.html
1355 (not (string= "" (car ispell-filter))))) 1355 (not (string= "" (car ispell-filter)))))
1356 ;;(ispell-send-string "!\n") ;back to terse mode. 1356 ;;(ispell-send-string "!\n") ;back to terse mode.
1357 (setq ispell-filter (cdr ispell-filter)) ; remove extra \n 1357 (setq ispell-filter (cdr ispell-filter)) ; remove extra \n
1358 (if (and ispell-filter (listp ispell-filter)) 1358 (if (and ispell-filter (listp ispell-filter))
1359 (if (> (length ispell-filter) 1) 1359 (if (> (length ispell-filter) 1)
1360 (error "Ispell and its process have different character maps.") 1360 (error "Ispell and its process have different character maps")
1361 (setq poss (ispell-parse-output (car ispell-filter))))) 1361 (setq poss (ispell-parse-output (car ispell-filter)))))
1362 (cond ((eq poss t) 1362 (cond ((eq poss t)
1363 (or quietly 1363 (or quietly
1364 (message "%s is correct" 1364 (message "%s is correct"
1365 (funcall ispell-format-word word)))) 1365 (funcall ispell-format-word word))))