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

[Richard M . Stallman]

Index: emacs/lisp/textmodes/flyspell.el
diff -c emacs/lisp/textmodes/flyspell.el:1.52 
emacs/lisp/textmodes/flyspell.el:1.53
*** emacs/lisp/textmodes/flyspell.el:1.52       Sat Jul 24 21:35:56 2004
--- emacs/lisp/textmodes/flyspell.el    Sun Aug 22 17:15:55 2004
***************
*** 1011,1018 ****
                                 (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))
            ;; wait until ispell has processed word
            (while (progn
                     (accept-process-output ispell-process)
--- 1011,1017 ----
                                 (concat "^" word "\n"))
            ;; we mark the ispell process so it can be killed
            ;; when emacs is exited without query
!           (set-process-query-on-exit-flag ispell-process nil)
            ;; wait until ispell has processed word
            (while (progn
                     (accept-process-output ispell-process)
***************
*** 1065,1071 ****
                                      flyspell-duplicate-distance)
                                   t)))))
                   (if flyspell-highlight-flag
!                      (flyspell-highlight-duplicate-region start end)
                     (message (format "duplicate `%s'" word))))
                  (t
                   ;; incorrect highlight the location
--- 1064,1070 ----
                                      flyspell-duplicate-distance)
                                   t)))))
                   (if flyspell-highlight-flag
!                      (flyspell-highlight-duplicate-region start end poss)
                     (message (format "duplicate `%s'" word))))
                  (t
                   ;; incorrect highlight the location
***************
*** 1540,1547 ****
  ;*---------------------------------------------------------------------*/
  ;*    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."
    (let ((inhibit-read-only t))
      (unless (run-hook-with-args-until-success
             'flyspell-incorrect-hook beg end poss)
--- 1539,1547 ----
  ;*---------------------------------------------------------------------*/
  ;*    flyspell-highlight-duplicate-region ...                          */
  ;*---------------------------------------------------------------------*/
! (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,1953 ****
                             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))))
--- 1947,1952 ----