[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/flyspell.el [emacs-unicode
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/flyspell.el [emacs-unicode-2] |
Date: |
Thu, 11 Nov 2004 22:18:39 -0500 |
Index: emacs/lisp/textmodes/flyspell.el
diff -c emacs/lisp/textmodes/flyspell.el:1.46.8.5
emacs/lisp/textmodes/flyspell.el:1.46.8.6
*** emacs/lisp/textmodes/flyspell.el:1.46.8.5 Fri Oct 22 10:13:51 2004
--- emacs/lisp/textmodes/flyspell.el Fri Nov 12 02:53:04 2004
***************
*** 956,964 ****
;*---------------------------------------------------------------------*/
(defun flyspell-word (&optional following)
"Spell check a word."
! (interactive (list current-prefix-arg))
! (if (interactive-p)
! (setq following ispell-following-word))
(save-excursion
;; use the correct dictionary
(flyspell-accept-buffer-local-defs)
--- 956,962 ----
;*---------------------------------------------------------------------*/
(defun flyspell-word (&optional following)
"Spell check a word."
! (interactive (list ispell-following-word))
(save-excursion
;; use the correct dictionary
(flyspell-accept-buffer-local-defs)
***************
*** 1283,1289 ****
(defun flyspell-external-point-words ()
(let ((buffer flyspell-external-ispell-buffer))
(set-buffer buffer)
! (beginning-of-buffer)
(let ((size (- flyspell-large-region-end flyspell-large-region-beg))
(start flyspell-large-region-beg))
;; now we are done with ispell, we have to find the word in
--- 1281,1287 ----
(defun flyspell-external-point-words ()
(let ((buffer flyspell-external-ispell-buffer))
(set-buffer buffer)
! (goto-char (point-min))
(let ((size (- flyspell-large-region-end flyspell-large-region-beg))
(start flyspell-large-region-beg))
;; now we are done with ispell, we have to find the word in
- [Emacs-diffs] Changes to emacs/lisp/textmodes/flyspell.el [emacs-unicode-2],
Miles Bader <=