Make turn-on-flyspell/turn-off-flyspell obsolete

* lisp/textmodes/flyspell.el (turn-on-flyspell): Make into obsolete
function alias for 'flyspell-mode'.
(turn-off-flyspell): Declare obsolete.
(text-mode-hook): Don't redundantly set :options here.
* lisp/textmodes/text-mode.el (text-mode-hook): Prefer 'flyspell-mode'
to 'turn-on-flyspell' in :options.  (Bug#76535)

(cherry picked from commit bad2cd198abbd150cc205aee7879ad718e724dad)

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 5316e5fefdc2d119c245bd3e8e860fe0a753dd51..d2989916dd18323f012ff4041a6aacf9a23665fe 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -530,18 +530,6 @@ in your init file.
               (flyspell-mode -1)))
     (flyspell--mode-off)))
 
-;;;###autoload
-(defun turn-on-flyspell ()
-  "Unconditionally turn on Flyspell mode."
-  (flyspell-mode 1))
-
-;;;###autoload
-(defun turn-off-flyspell ()
-  "Unconditionally turn off Flyspell mode."
-  (flyspell-mode -1))
-
-(custom-add-option 'text-mode-hook 'turn-on-flyspell)
-
 (defvar flyspell-buffers nil
   "For remembering buffers running flyspell.")
 (make-obsolete-variable 'flyspell-buffers "not used." "28.1")
@@ -2396,6 +2384,15 @@ This function is meant to be added to `flyspell-incorrect-hook'."
 (define-obsolete-function-alias 'flyspell-mode-on 'flyspell--mode-on "30.1")
 (define-obsolete-function-alias 'flyspell-mode-off 'flyspell--mode-off "30.1")
 
+;;;###autoload
+(define-obsolete-function-alias 'turn-on-flyspell #'flyspell-mode "31.1")
+
+;;;###autoload
+(defun turn-off-flyspell ()
+  "Unconditionally turn off Flyspell mode."
+  (declare (obsolete flyspell-mode "31.1"))
+  (flyspell-mode -1))
+
 (provide 'flyspell)
 
 ;;; flyspell.el ends here

diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el
index cfacb144e40379b315dc7e21d821288b40e94604..3b27efbcf871624a1a946d96591082ea417c7f78 100644 (file)
--- a/lisp/textmodes/text-mode.el
+++ b/lisp/textmodes/text-mode.el
@@ -34,7 +34,8 @@
 (defcustom text-mode-hook '(text-mode-hook-identify)
   "Normal hook run when entering Text mode and many related modes."
   :type 'hook
-  :options '(turn-on-auto-fill turn-on-flyspell)
+  :options '(turn-on-auto-fill flyspell-mode)
+  :version "31.1"
   :group 'text)
 
 (defvar text-mode-variant nil