[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el

[Roland Winkler]

Index: emacs/lisp/textmodes/ispell.el
diff -u emacs/lisp/textmodes/ispell.el:1.198 
emacs/lisp/textmodes/ispell.el:1.199
--- emacs/lisp/textmodes/ispell.el:1.198        Fri May  5 12:34:51 2006
+++ emacs/lisp/textmodes/ispell.el      Sun May 21 20:25:43 2006
@@ -416,11 +416,12 @@
   :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 @@
       ;; 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 @@
       (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 @@
            ((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 @@
                       (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 @@
   "*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)