[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el [emacs-unicode-2
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el [emacs-unicode-2] |
Date: |
Thu, 09 Sep 2004 17:55:21 -0400 |
Index: emacs/lisp/textmodes/ispell.el
diff -c emacs/lisp/textmodes/ispell.el:1.140.2.3
emacs/lisp/textmodes/ispell.el:1.140.2.4
*** emacs/lisp/textmodes/ispell.el:1.140.2.3 Sat Sep 4 09:14:25 2004
--- emacs/lisp/textmodes/ispell.el Thu Sep 9 09:36:33 2004
***************
*** 724,729 ****
--- 724,731 ----
ispell-dictionary-alist-3 ispell-dictionary-alist-4
ispell-dictionary-alist-5 ispell-dictionary-alist-6))
+ (defvar ispell-really-aspell nil) ; Non-nil if aspell extensions should be
used
+
***************
*** 815,821 ****
(< (car (read-from-string (buffer-substring-no-properties
(match-beginning 3)(match-end 3))))
(car (cdr (cdr ispell-required-version)))))
! (setq ispell-offset 0)))
(kill-buffer (current-buffer)))
result))
--- 817,828 ----
(< (car (read-from-string (buffer-substring-no-properties
(match-beginning 3)(match-end 3))))
(car (cdr (cdr ispell-required-version)))))
! (setq ispell-offset 0))
! ;; Check to see if it's really aspell.
! (goto-char (point-min))
! (let (case-fold-search)
! (setq ispell-really-aspell
! (and (search-forward "(but really Aspell " nil t) t))))
(kill-buffer (current-buffer)))
result))
***************
*** 1293,1298 ****
--- 1300,1311 ----
(set-buffer buf)
(erase-buffer)))))))
+ (defun ispell-send-replacement (misspelled replacement)
+ "Notify aspell that MISSPELLED should be spelled REPLACEMENT.
+ This allows it to improve the suggestion list based on actual mispellings."
+ (and ispell-really-aspell
+ (ispell-send-string (concat "$$ra " misspelled "," replacement "\n"))))
+
(defun ispell-send-string (string)
"Send the string STRING to the Ispell process."
***************
*** 2841,2850 ****
--- 2854,2865 ----
(if (not (listp replace))
(progn
(insert replace) ; insert dictionary word
+ (ispell-send-replacement (car poss) replace)
(setq accept-list (cons replace accept-list)))
(let ((replace-word (car replace)))
;; Recheck hand entered replacement word
(insert replace-word)
+ (ispell-send-replacement (car poss) replace-word)
(if (car (cdr replace))
(save-window-excursion
(delete-other-windows) ; to correctly show help.