[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el
From: |
Roland Winkler |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el |
Date: |
Sun, 21 May 2006 20:25:43 +0000 |
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)