blob: 27f0474fde956c73f1df97dfae5b7c7eb8cc42b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# -*- mode: snippet -*-
# name: minor_mode
# key: minor
# --
(defvar ${1:mode}-modeline-indicator " ${2:indicator}"
"call ($1-install-mode) again if this is changed")
(defvar $1-mode nil)
(make-variable-buffer-local '$1-mode)
(put '$1-mode 'permanent-local t)
(defun $1-mode (&optional arg)
"$0"
(interactive "P")
(setq $1-mode
(if (null arg) (not $1-mode)
(> (prefix-numeric-value arg) 0)))
(force-mode-line-update))
(provide '$1-mode)
|