*** simple.el	15 Mär 2005 11:03:13 +0100	1.698
--- simple.el	15 Mär 2005 18:12:05 +0100	
***************
*** 3933,3941 ****
    "The function to use for `auto-fill-function' if Auto Fill mode is turned on.
  Some major modes set this.")
  
! ;; FIXME: turn into a proper minor mode.
  ;; Add a global minor mode version of it.
! (defun auto-fill-mode (&optional arg)
    "Toggle Auto Fill mode.
  With arg, turn Auto Fill mode on if and only if arg is positive.
  In Auto Fill mode, inserting a space at a column beyond `current-fill-column'
--- 3933,3941 ----
    "The function to use for `auto-fill-function' if Auto Fill mode is turned on.
  Some major modes set this.")
  
! ;; FIXME:
  ;; Add a global minor mode version of it.
! (define-minor-mode auto-fill-mode
    "Toggle Auto Fill mode.
  With arg, turn Auto Fill mode on if and only if arg is positive.
  In Auto Fill mode, inserting a space at a column beyond `current-fill-column'
***************
*** 3943,3956 ****
  
  The value of `normal-auto-fill-function' specifies the function to use
  for `auto-fill-function' when turning Auto Fill mode on."
!   (interactive "P")
!   (prog1 (setq auto-fill-function
! 	       (if (if (null arg)
! 		       (not auto-fill-function)
! 		       (> (prefix-numeric-value arg) 0))
! 		   normal-auto-fill-function
! 		   nil))
!     (force-mode-line-update)))
  
  ;; This holds a document string used to document auto-fill-mode.
  (defun auto-fill-function ()
--- 3943,3954 ----
  
  The value of `normal-auto-fill-function' specifies the function to use
  for `auto-fill-function' when turning Auto Fill mode on."
!   nil " Fill" nil
!   :group 'editing-basics
!   (setq auto-fill-function
!         (if auto-fill-mode
!             normal-auto-fill-function
!           nil)))
  
  ;; This holds a document string used to document auto-fill-mode.
  (defun auto-fill-function ()