changeset 70814:6a91e8b1eea0

(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.

--- a/lisp/textmodes/ispell.el	Sun May 21 20:02:41 2006 +0000
+++ b/lisp/textmodes/ispell.el	Sun May 21 20:25:43 2006 +0000
@@ -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)