Mercurial > emacs
comparison lisp/textmodes/=ispell4.el @ 256:7e4c7ef44243
*** empty log message ***
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Thu, 09 May 1991 21:50:34 +0000 |
| parents | a1430f8459e5 |
| children | ba0e7d5a44ad |
comparison
equal
deleted
inserted
replaced
| 255:cdf87250ed27 | 256:7e4c7ef44243 |
|---|---|
| 183 (read (current-buffer))))) | 183 (read (current-buffer))))) |
| 184 | 184 |
| 185 (defun ispell-tex-buffer-p () | 185 (defun ispell-tex-buffer-p () |
| 186 (memq major-mode '(plain-TeX-mode LaTeX-mode))) | 186 (memq major-mode '(plain-TeX-mode LaTeX-mode))) |
| 187 | 187 |
| 188 ;;;###autoload | |
| 188 (defun ispell (&optional buf start end) | 189 (defun ispell (&optional buf start end) |
| 189 "Run ispell over current buffer's visited file. | 190 "Run ispell over current buffer's visited file. |
| 190 First the file is scanned for misspelled words, then ispell | 191 First the file is scanned for misspelled words, then ispell |
| 191 enters a loop with the following commands for every misspelled word: | 192 enters a loop with the following commands for every misspelled word: |
| 192 | 193 |
| 285 (setq ispell-bad-words nil) | 286 (setq ispell-bad-words nil) |
| 286 (message "Bad ispell internal list")))) | 287 (message "Bad ispell internal list")))) |
| 287 (ispell-dump)) | 288 (ispell-dump)) |
| 288 | 289 |
| 289 | 290 |
| 291 ;;;###autoload | |
| 290 (defun ispell-word () | 292 (defun ispell-word () |
| 291 "Check the spelling of the word under the cursor. | 293 "Check the spelling of the word under the cursor. |
| 292 See `ispell' for more information." | 294 See `ispell' for more information." |
| 293 (interactive) | 295 (interactive) |
| 294 (condition-case err | 296 (condition-case err |
| 299 (ispell-startup-error | 301 (ispell-startup-error |
| 300 (cond ((y-or-n-p "Problem starting ispell, use old-style spell instead? ") | 302 (cond ((y-or-n-p "Problem starting ispell, use old-style spell instead? ") |
| 301 (load-library "spell") | 303 (load-library "spell") |
| 302 (define-key esc-map "$" 'spell-word) | 304 (define-key esc-map "$" 'spell-word) |
| 303 (spell-word)))))) | 305 (spell-word)))))) |
| 304 | 306 ;;;###autoload (define-key esc-map "$" 'ispell-word) |
| 307 | |
| 308 ;;;###autoload | |
| 305 (defun ispell-region (start &optional end) | 309 (defun ispell-region (start &optional end) |
| 306 "Check the spelling for all of the words in the region." | 310 "Check the spelling for all of the words in the region." |
| 307 (interactive "r") | 311 (interactive "r") |
| 308 (ispell (current-buffer) start end)) | 312 (ispell (current-buffer) start end)) |
| 309 | 313 |