SHA256
1
0
forked from pool/emacs
emacs/emacs-23.1-bnc628268.patch
2010-10-06 10:02:10 +00:00

59 lines
2.0 KiB
Diff

--- lisp/loaddefs.el
+++ lisp/loaddefs.el 2010-08-12 15:38:16.235126810 +0000
@@ -25974,7 +25974,7 @@ as its \"correct\" spelling; then the qu
\(fn)" t nil)
-(make-obsolete 'spell-buffer 'ispell-buffer "23.1")
+(define-obsolete-function-alias 'spell-buffer 'ispell-buffer "23.1")
(autoload 'spell-word "spell" "\
Check spelling of word at or before point.
@@ -25983,7 +25983,7 @@ and `query-replace' the entire buffer to
\(fn)" t nil)
-(make-obsolete 'spell-word 'ispell-word "23.1")
+(define-obsolete-function-alias 'spell-word 'ispell-word "23.1")
(autoload 'spell-region "spell" "\
Like `spell-buffer' but applies only to region.
@@ -25993,7 +25993,7 @@ for example, \"word\".
\(fn START END &optional DESCRIPTION)" t nil)
-(make-obsolete 'spell-region 'ispell-region "23.1")
+(define-obsolete-function-alias 'spell-region 'ispell-region "23.1")
(autoload 'spell-string "spell" "\
Check spelling of string supplied as argument.
--- lisp/textmodes/spell.el
+++ lisp/textmodes/spell.el 2010-08-12 15:36:22.119126692 +0000
@@ -63,7 +63,7 @@ as its \"correct\" spelling; then the qu
(with-no-warnings
(spell-region (point-min) (point-max) "buffer")))
;;;###autoload
-(make-obsolete 'spell-buffer 'ispell-buffer "23.1")
+(define-obsolete-function-alias 'spell-buffer 'ispell-buffer "23.1")
;;;###autoload
(defun spell-word ()
@@ -82,7 +82,7 @@ and `query-replace' the entire buffer to
(with-no-warnings
(spell-region beg end (buffer-substring beg end)))))
;;;###autoload
-(make-obsolete 'spell-word 'ispell-word "23.1")
+(define-obsolete-function-alias 'spell-word 'ispell-word "23.1")
;;;###autoload
(defun spell-region (start end &optional description)
@@ -145,7 +145,7 @@ for example, \"word\"."
(query-replace-regexp (concat "\\b" (regexp-quote word) "\\b")
newword)))))))
;;;###autoload
-(make-obsolete 'spell-region 'ispell-region "23.1")
+(define-obsolete-function-alias 'spell-region 'ispell-region "23.1")
;;;###autoload
(defun spell-string (string)