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) |
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 |
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) |
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)))) |