/[emacs]/emacs/lisp/textmodes/flyspell.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/flyspell.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.46.8.3 by miles, Wed Jul 28 07:05:51 2004 UTC revision 1.46.8.4 by miles, Fri Aug 27 07:00:30 2004 UTC
# Line 1011  Mostly we check word delimiters." Line 1011  Mostly we check word delimiters."
1011                                   (concat "^" word "\n"))                                   (concat "^" word "\n"))
1012              ;; we mark the ispell process so it can be killed              ;; we mark the ispell process so it can be killed
1013              ;; when emacs is exited without query              ;; when emacs is exited without query
1014              (if (fboundp 'process-kill-without-query)              (set-process-query-on-exit-flag ispell-process nil)
                 (process-kill-without-query ispell-process))  
1015              ;; wait until ispell has processed word              ;; wait until ispell has processed word
1016              (while (progn              (while (progn
1017                       (accept-process-output ispell-process)                       (accept-process-output ispell-process)
# Line 1065  Mostly we check word delimiters." Line 1064  Mostly we check word delimiters."
1064                                        flyspell-duplicate-distance)                                        flyspell-duplicate-distance)
1065                                     t)))))                                     t)))))
1066                     (if flyspell-highlight-flag                     (if flyspell-highlight-flag
1067                         (flyspell-highlight-duplicate-region start end)                         (flyspell-highlight-duplicate-region start end poss)
1068                       (message (format "duplicate `%s'" word))))                       (message (format "duplicate `%s'" word))))
1069                    (t                    (t
1070                     ;; incorrect highlight the location                     ;; incorrect highlight the location
# Line 1540  for the overlay." Line 1539  for the overlay."
1539  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
1540  ;*    flyspell-highlight-duplicate-region ...                          */  ;*    flyspell-highlight-duplicate-region ...                          */
1541  ;*---------------------------------------------------------------------*/  ;*---------------------------------------------------------------------*/
1542  (defun flyspell-highlight-duplicate-region (beg end)  (defun flyspell-highlight-duplicate-region (beg end poss)
1543    "Set up an overlay on a duplicated word, in the buffer from BEG to END."    "Set up an overlay on a duplicated word, in the buffer from BEG to END.
1544    ??? What does POSS mean?"
1545    (let ((inhibit-read-only t))    (let ((inhibit-read-only t))
1546      (unless (run-hook-with-args-until-success      (unless (run-hook-with-args-until-success
1547               'flyspell-incorrect-hook beg end poss)               'flyspell-incorrect-hook beg end poss)
# Line 1947  The word checked is the word at the mous Line 1947  The word checked is the word at the mous
1947                               mouse-pos                               mouse-pos
1948                             (set-mouse-position (car mouse-pos)                             (set-mouse-position (car mouse-pos)
1949                                                 (/ (frame-width) 2) 2)                                                 (/ (frame-width) 2) 2)
                            (unfocus-frame)  
1950                             (mouse-position))))                             (mouse-position))))
1951          (setq event (list (list (car (cdr mouse-pos))          (setq event (list (list (car (cdr mouse-pos))
1952                                  (1+ (cdr (cdr mouse-pos))))                                  (1+ (cdr (cdr mouse-pos))))

Legend:
Removed from v.1.46.8.3  
changed lines
  Added in v.1.46.8.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26