Mercurial > emacs

changeset 56767:448c214b700f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(flyspell-word): Use set-process-query-on-exit-flag. (flyspell-highlight-duplicate-region): Take POSS as arg. (flyspell-word): Pass POSS as arg.
author Richard M. Stallman <rms@gnu.org>
date Sun, 22 Aug 2004 17:15:55 +0000
parents e8b5658b7aac
children 560751ade8e5
files lisp/textmodes/flyspell.el
diffstat 1 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/flyspell.el	Sun Aug 22 17:14:02 2004 +0000
+++ b/lisp/textmodes/flyspell.el	Sun Aug 22 17:15:55 2004 +0000
@@ -1011,8 +1011,7 @@
 				 (concat "^" word "\n"))
 	    ;; we mark the ispell process so it can be killed
 	    ;; when emacs is exited without query
-	    (if (fboundp 'process-kill-without-query)
-		(process-kill-without-query ispell-process))
+	    (set-process-query-on-exit-flag ispell-process nil)
 	    ;; wait until ispell has processed word
 	    (while (progn
 		     (accept-process-output ispell-process)
@@ -1065,7 +1064,7 @@
 				      flyspell-duplicate-distance)
 				   t)))))
 		   (if flyspell-highlight-flag
-		       (flyspell-highlight-duplicate-region start end)
+		       (flyspell-highlight-duplicate-region start end poss)
 		     (message (format "duplicate `%s'" word))))
 		  (t
 		   ;; incorrect highlight the location
@@ -1540,8 +1539,9 @@
 ;*---------------------------------------------------------------------*/
 ;*    flyspell-highlight-duplicate-region ...                          */
 ;*---------------------------------------------------------------------*/
-(defun flyspell-highlight-duplicate-region (beg end)
-  "Set up an overlay on a duplicated word, in the buffer from BEG to END."
+(defun flyspell-highlight-duplicate-region (beg end poss)
+  "Set up an overlay on a duplicated word, in the buffer from BEG to END.
+??? What does POSS mean?"
   (let ((inhibit-read-only t))
     (unless (run-hook-with-args-until-success
 	     'flyspell-incorrect-hook beg end poss)
@@ -1947,7 +1947,6 @@
 			     mouse-pos
 			   (set-mouse-position (car mouse-pos)
 				 	       (/ (frame-width) 2) 2)
-			   (unfocus-frame)
 			   (mouse-position))))
 	(setq event (list (list (car (cdr mouse-pos))
 				(1+ (cdr (cdr mouse-pos))))