mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

(spell-buffer, spell-word, spell-region)

Browse Source 
(spell-string): Make obsolete, in favor of ispell.
This commit is contained in:
Glenn Morris 2008-02-21 09:01:37 +00:00
parent c44647a35f
commit a8a4617aa3
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -14,6 +14,9 @@
* subr.el (sit-for): Fix obsolete form for nil second argument.
* textmodes/spell.el (spell-buffer, spell-word, spell-region)
(spell-string): Make obsolete, in favor of ispell.
2008-02-21 Kenichi Handa <handa@ni.aist.go.jp>
* composite.el (compose-chars-after): Fix arguments for a function

10
lisp/textmodes/spell.el
View File

@ -62,6 +62,8 @@ If you do not want to change a word, just give the same word
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 @@ and `query-replace' the entire buffer to substitute it."
(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 @@ for example, \"word\"."
(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 @@ for example, \"word\"."
(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)