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

[Lute Kamstra]

Index: emacs/lisp/textmodes/flyspell.el
diff -c emacs/lisp/textmodes/flyspell.el:1.65 
emacs/lisp/textmodes/flyspell.el:1.66
*** emacs/lisp/textmodes/flyspell.el:1.65       Mon Jun  6 21:06:19 2005
--- emacs/lisp/textmodes/flyspell.el    Wed Jun  8 08:12:14 2005
***************
*** 468,474 ****
  ;*    flyspell-mode ...                                                */
  ;*---------------------------------------------------------------------*/
  ;;;###autoload
! (defun flyspell-mode (&optional arg)
    "Minor mode performing on-the-fly spelling checking.
  This spawns a single Ispell process and checks each word.
  The default flyspell behavior is to highlight incorrect words.
--- 468,474 ----
  ;*    flyspell-mode ...                                                */
  ;*---------------------------------------------------------------------*/
  ;;;###autoload
! (define-minor-mode flyspell-mode
    "Minor mode performing on-the-fly spelling checking.
  This spawns a single Ispell process and checks each word.
  The default flyspell behavior is to highlight incorrect words.
***************
*** 496,523 ****
  
  \\[flyspell-region] checks all words inside a region.
  \\[flyspell-buffer] checks the whole buffer."
!   (interactive "P")
!   (let ((old-flyspell-mode flyspell-mode))
!     ;; Mark the mode as on or off.
!     (setq flyspell-mode (not (or (and (null arg) flyspell-mode)
!                                (<= (prefix-numeric-value arg) 0))))
!     ;; Do the real work.
!     (unless (eq flyspell-mode old-flyspell-mode)
!       (if flyspell-mode
!         (flyspell-mode-on)
!       (flyspell-mode-off))
!       ;; Force modeline redisplay.
!       (set-buffer-modified-p (buffer-modified-p)))))
! 
! ;*---------------------------------------------------------------------*/
! ;*    Autoloading                                                      */
! ;*---------------------------------------------------------------------*/
! ;;;###autoload
! (add-minor-mode 'flyspell-mode
!               'flyspell-mode-line-string
!               flyspell-mode-map
!               nil
!               'flyspell-mode)
  
  ;*---------------------------------------------------------------------*/
  ;*    flyspell-buffers ...                                             */
--- 496,507 ----
  
  \\[flyspell-region] checks all words inside a region.
  \\[flyspell-buffer] checks the whole buffer."
!   :lighter flyspell-mode-line-string
!   :keymap flyspell-mode-map
!   :group 'flyspell
!   (if flyspell-mode
!       (flyspell-mode-on)
!     (flyspell-mode-off)))
  
  ;*---------------------------------------------------------------------*/
  ;*    flyspell-buffers ...                                             */