Mercurial > emacs
comparison lisp/textmodes/ispell.el @ 10462:8a21a21c3163
(check-ispell-version): Use Fundamental mode in the temporary buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 18 Jan 1995 23:07:22 +0000 |
| parents | 99fa50b971ec |
| children | d2fd1a6288b4 |
comparison
equal
deleted
inserted
replaced
| 10461:d3dee0c530d6 | 10462:8a21a21c3163 |
|---|---|
| 1444 ;; themselves on startup. | 1444 ;; themselves on startup. |
| 1445 (save-excursion | 1445 (save-excursion |
| 1446 (set-buffer (get-buffer-create " *ispell-tmp*")) | 1446 (set-buffer (get-buffer-create " *ispell-tmp*")) |
| 1447 (erase-buffer) | 1447 (erase-buffer) |
| 1448 ;; Avoid obscure bugs caused by users who change the syntax of `.' in | 1448 ;; Avoid obscure bugs caused by users who change the syntax of `.' in |
| 1449 ;; whatever default major mode the user uses, e.g. text mode | 1449 ;; whatever default major mode the user uses, e.g. text mode. |
| 1450 (set-syntax-table (standard-syntax-table)) | 1450 (fundamental-mode) |
| 1451 (let ((status (call-process ispell-program-name nil t nil "-v")) | 1451 (let ((status (call-process ispell-program-name nil t nil "-v")) |
| 1452 (case-fold-search t)) | 1452 (case-fold-search t)) |
| 1453 (goto-char (point-min)) | 1453 (goto-char (point-min)) |
| 1454 (if (not (memq status '(0 nil))) | 1454 (if (not (memq status '(0 nil))) |
| 1455 (error "%s exited with %s %s" ispell-program-name | 1455 (error "%s exited with %s %s" ispell-program-name |