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 |