[Emacs-diffs] Changes to emacs/lisp/textmodes/flyspell.el [lexbind]

[Miles Bader]

Index: emacs/lisp/textmodes/flyspell.el
diff -c emacs/lisp/textmodes/flyspell.el:1.46.2.7 
emacs/lisp/textmodes/flyspell.el:1.46.2.8
*** emacs/lisp/textmodes/flyspell.el:1.46.2.7   Mon Oct 25 04:22:30 2004
--- emacs/lisp/textmodes/flyspell.el    Fri Nov 12 04:21:23 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