Mercurial > emacs
comparison lisp/textmodes/ispell.el @ 9002:6792b6d7e6c0
* ispell.el (check-ispell-version): suggest to try ispell4.el if
version does not match.
| author | Francesco Potortì <pot@gnu.org> |
|---|---|
| date | Thu, 22 Sep 1994 11:41:17 +0000 |
| parents | 33a3f424c8c3 |
| children | 3af00d95faac |
comparison
equal
deleted
inserted
replaced
| 9001:69f0ae06bcdf | 9002:6792b6d7e6c0 |
|---|---|
| 1397 (mapconcat 'regexp-quote | 1397 (mapconcat 'regexp-quote |
| 1398 ispell-required-versions | 1398 ispell-required-versions |
| 1399 "\\|") | 1399 "\\|") |
| 1400 "\\)\\b") | 1400 "\\)\\b") |
| 1401 nil t)) | 1401 nil t)) |
| 1402 (error "version mismatch: ispell.el is for %s, %s is %s" | 1402 (error "%s version %s is required: try renaming ispell4.el to ispell.el" |
| 1403 ispell-program-name | |
| 1403 (car ispell-required-versions) | 1404 (car ispell-required-versions) |
| 1404 ispell-program-name | 1405 ;(if (re-search-forward "version \\([0-9][0-9.]+\\)\\b" |
| 1405 (if (re-search-forward "version \\([0-9][0-9.]+\\)\\b" | 1406 ; nil t) |
| 1406 nil t) | 1407 ; (buffer-substring (match-beginning 1) (match-end 1)) |
| 1407 (buffer-substring (match-beginning 1) (match-end 1)) | 1408 ; "an unknown version") |
| 1408 "an unknown version")))) | 1409 ))) |
| 1409 (kill-buffer (current-buffer))))) | 1410 (kill-buffer (current-buffer))))) |
| 1410 | 1411 |
| 1411 | 1412 |
| 1412 (defun ispell-init-process () | 1413 (defun ispell-init-process () |
| 1413 "Check status of Ispell process and start if necessary." | 1414 "Check status of Ispell process and start if necessary." |