Mercurial > emacs
comparison lisp/textmodes/ispell.el @ 10454:99fa50b971ec
(check-ispell-version): Force standard syntax table.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 18 Jan 1995 20:00:08 +0000 |
| parents | 37fa43bb8056 |
| children | 8a21a21c3163 |
comparison
equal
deleted
inserted
replaced
| 10453:05e7543bbb96 | 10454:99fa50b971ec |
|---|---|
| 1443 ;; all versions, since versions earlier than 3.0.09 didn't identify | 1443 ;; all versions, since versions earlier than 3.0.09 didn't identify |
| 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 | |
| 1449 ;; whatever default major mode the user uses, e.g. text mode | |
| 1450 (set-syntax-table (standard-syntax-table)) | |
| 1448 (let ((status (call-process ispell-program-name nil t nil "-v")) | 1451 (let ((status (call-process ispell-program-name nil t nil "-v")) |
| 1449 (case-fold-search t)) | 1452 (case-fold-search t)) |
| 1450 (goto-char (point-min)) | 1453 (goto-char (point-min)) |
| 1451 (if (not (memq status '(0 nil))) | 1454 (if (not (memq status '(0 nil))) |
| 1452 (error "%s exited with %s %s" ispell-program-name | 1455 (error "%s exited with %s %s" ispell-program-name |