- (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))
+ :global t :group 'auto-insert
+ (if auto-insert-mode
+ (add-hook 'find-file-hooks 'auto-insert)
+ (remove-hook 'find-file-hooks 'auto-insert)))