mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2000-09-29 22:14:58 +00:00
parent 264f0aa7ed
commit bff6da3dce
1 changed files with 5 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

30
lisp/autoinsert.el
View file

@ -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)