(ispell-format-word): Make this the alias for the following variable.

(ispell-format-word-function): Make this the real name.
(ispell-message-text-end): Mark as risky.

1 files changed, 9 insertions, 6 deletions

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index fed06a572bb..7bfedb1bd97 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -416,11 +416,12 @@ The following values are supported:
   :type 'boolean
   :group 'ispell)
 
-(defcustom ispell-format-word (function upcase)
+(defcustom ispell-format-word-function (function upcase)
   "*Formatting function for displaying word being spell checked.
 The function must take one string argument and return a string."
   :type 'function
   :group 'ispell)
+(defvaralias 'ispell-format-word 'ispell-format-word-function)
 
 (defcustom ispell-use-framepop-p nil
   "When non-nil ispell uses framepop to display choices in a dedicated frame.
@@ -1595,7 +1596,7 @@ quit          spell session exited."
       ;; But that is silly; if the user asks for it, we should do it. - rms.
       (or quietly
           (message "Checking spelling of %s..."
-                   (funcall ispell-format-word word)))
+                   (funcall ispell-format-word-function word)))
       (ispell-send-string "%\n")        ; put in verbose mode
       (ispell-send-string (concat "^" word "\n"))
       ;; wait until ispell has processed word
@@ -1611,7 +1612,7 @@ quit          spell session exited."
       (cond ((eq poss t)
              (or quietly
                  (message "%s is correct"
-                          (funcall ispell-format-word word)))
+                          (funcall ispell-format-word-function word)))
              (and (fboundp 'extent-at)
                   (extent-at start)
                   (and (fboundp 'delete-extent)
@@ -1619,8 +1620,8 @@ quit          spell session exited."
             ((stringp poss)
              (or quietly
                  (message "%s is correct because of root %s"
-                          (funcall ispell-format-word word)
-                          (funcall ispell-format-word poss)))
+                          (funcall ispell-format-word-function word)
+                          (funcall ispell-format-word-function poss)))
              (and (fboundp 'extent-at)
                   (extent-at start)
                   (and (fboundp 'delete-extent)
@@ -1633,7 +1634,8 @@ quit          spell session exited."
                        (set-extent-property ext 'face ispell-highlight-face)
                        (set-extent-property ext 'priority 2000)))
                (beep)
-               (message "%s is incorrect"(funcall ispell-format-word word))))
+               (message "%s is incorrect"
+                        (funcall ispell-format-word-function word))))
             (t                          ; prompt for correct word.
              (save-window-excursion
                (setq replace (ispell-command-loop
@@ -3359,6 +3361,7 @@ Don't read buffer-local settings or word lists."
   "*End of text which will be checked in `ispell-message'.
 If it is a string, limit at first occurrence of that regular expression.
 Otherwise, it must be a function which is called to get the limit.")
+(put 'ispell-message-text-end 'risky-local-variable t)
 
 
 (defun ispell-mime-multipartp (&optional limit)