Mercurial > emacs
changeset 92041:c4f57f87fefe
(spell-buffer, spell-word, spell-region)
(spell-string): Make obsolete, in favor of ispell.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 21 Feb 2008 09:00:51 +0000 |
| parents | 311b41d4091c |
| children | 0fed13285736 |
| files | lisp/textmodes/spell.el |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/spell.el Thu Feb 21 08:39:34 2008 +0000 +++ b/lisp/textmodes/spell.el Thu Feb 21 09:00:51 2008 +0000 @@ -62,6 +62,8 @@ as its \"correct\" spelling; then the query replace is skipped." (interactive) (spell-region (point-min) (point-max) "buffer")) +;;;###autoload +(make-obsolete 'spell-buffer 'ispell-buffer "23.1") ;;;###autoload (defun spell-word () @@ -77,6 +79,8 @@ (forward-word 1) (setq end (point))) (spell-region beg end (buffer-substring beg end)))) +;;;###autoload +(make-obsolete 'spell-word 'ispell-word "23.1") ;;;###autoload (defun spell-region (start end &optional description) @@ -138,7 +142,8 @@ (goto-char (point-min)) (query-replace-regexp (concat "\\b" (regexp-quote word) "\\b") newword))))))) - +;;;###autoload +(make-obsolete 'spell-region 'ispell-region "23.1") ;;;###autoload (defun spell-string (string) @@ -161,6 +166,9 @@ (while (search-forward "\n" nil t) (replace-match " ")) (message "%sincorrect" (buffer-substring 1 (point-max))))))) +;;;###autoload +(make-obsolete 'spell-string "The `spell' package is obsolete - use `ispell'." + "23.1") (provide 'spell)