[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/flyspell.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/flyspell.el [lexbind] |
Date: |
Sat, 04 Sep 2004 05:41:30 -0400 |
Index: emacs/lisp/textmodes/flyspell.el
diff -c emacs/lisp/textmodes/flyspell.el:1.46.2.5
emacs/lisp/textmodes/flyspell.el:1.46.2.6
*** emacs/lisp/textmodes/flyspell.el:1.46.2.5 Sat Sep 4 09:18:39 2004
--- emacs/lisp/textmodes/flyspell.el Sat Sep 4 09:26:23 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 ----
- [Emacs-diffs] Changes to emacs/lisp/textmodes/flyspell.el [lexbind],
Miles Bader <=