From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 29 Sep 2000 22:14:58 +0000 (+0000)
Subject: (auto-insert-mode): Use define-minor-mode.
X-Git-Tag: emacs-pretest-21.0.90~1261
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bff6da3dcea94d04e1147d5988d6b76242fc695e;p=emacs.git

(auto-insert-mode): Use define-minor-mode.
---

diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el
index 59430cafdd4..9ba77ad9cb4 100644
--- a/lisp/autoinsert.el
+++ b/lisp/autoinsert.el
@@ -57,17 +57,6 @@
   :group 'convenience)
 
 
-(defcustom auto-insert-mode nil
-  "Toggle Auto-insert mode.
-Setting this variable directly does not take effect;
-use either \\[customize] or the function `auto-insert-mode'."
-  :set (lambda (symbol value)
-	 (auto-insert-mode (or value 0)))
-  :initialize 'custom-initialize-default
-  :type 'boolean
-  :group 'auto-insert
-  :require 'autoinsert)
-
 (defcustom auto-insert 'not-modified
   "*Controls automatic insertion into newly found empty files.
 Possible values:
@@ -293,26 +282,17 @@ or if CONDITION had no actions, after all other CONDITIONs."
 				      auto-insert-alist))))))
 
 ;;;###autoload
-(defun auto-insert-mode (&optional arg)
+(define-minor-mode auto-insert-mode
   "Toggle Auto-insert mode.
 With prefix ARG, turn Auto-insert mode on if and only if ARG is positive.
 Returns the new status of Auto-insert mode (non-nil means on).
 
 When Auto-insert mode is enabled, when new files are created you can
 insert a template for the file depending on the mode of the buffer."
-  (interactive "P")
-  (let ((on-p (if arg
-		  (> (prefix-numeric-value arg) 0)
-		(not auto-insert-mode))))
-    (if on-p
-	(add-hook 'find-file-hooks 'auto-insert)
-      (remove-hook 'find-file-hooks 'auto-insert))
-    (if (interactive-p)
-	(message "Auto-insert now %s." (if on-p "on" "off")))
-    (setq auto-insert-mode on-p)))
-
-(if auto-insert-mode
-    (auto-insert-mode 1))
+  nil nil nil :global t :group 'auto-insert
+  (if auto-insert-mode
+      (add-hook 'find-file-hooks 'auto-insert)
+    (remove-hook 'find-file-hooks 'auto-insert)))
 
 (provide 'autoinsert)