diff options
| -rw-r--r-- | lisp/textmodes/spell.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el index 7cb011ec7ab..01eff7616a7 100644 --- a/lisp/textmodes/spell.el +++ b/lisp/textmodes/spell.el | |||
| @@ -61,7 +61,9 @@ and then put into a query-replace to fix some or all occurrences. | |||
| 61 | If you do not want to change a word, just give the same word | 61 | If you do not want to change a word, just give the same word |
| 62 | as its \"correct\" spelling; then the query replace is skipped." | 62 | as its \"correct\" spelling; then the query replace is skipped." |
| 63 | (interactive) | 63 | (interactive) |
| 64 | (spell-region (point-min) (point-max) "buffer")) | 64 | ;; Don't warn about spell-region being obsolete. |
| 65 | (with-no-warnings | ||
| 66 | (spell-region (point-min) (point-max) "buffer"))) | ||
| 65 | ;;;###autoload | 67 | ;;;###autoload |
| 66 | (make-obsolete 'spell-buffer 'ispell-buffer "23.1") | 68 | (make-obsolete 'spell-buffer 'ispell-buffer "23.1") |
| 67 | 69 | ||
| @@ -78,7 +80,9 @@ and `query-replace' the entire buffer to substitute it." | |||
| 78 | (setq beg (point)) | 80 | (setq beg (point)) |
| 79 | (forward-word 1) | 81 | (forward-word 1) |
| 80 | (setq end (point))) | 82 | (setq end (point))) |
| 81 | (spell-region beg end (buffer-substring beg end)))) | 83 | ;; Don't warn about spell-region being obsolete. |
| 84 | (with-no-warnings | ||
| 85 | (spell-region beg end (buffer-substring beg end))))) | ||
| 82 | ;;;###autoload | 86 | ;;;###autoload |
| 83 | (make-obsolete 'spell-word 'ispell-word "23.1") | 87 | (make-obsolete 'spell-word 'ispell-word "23.1") |
| 84 | 88 | ||