aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1999-09-15 23:46:29 +0000
committerRichard M. Stallman1999-09-15 23:46:29 +0000
commit217425d076de888d0c0de987fba32a3aba7dc3fe (patch)
tree5c591845fe850385447b82a46d97b1d749bde5c6
parentf06280268ad4dd2e28e352a0e265154769c8251e (diff)
downloademacs-217425d076de888d0c0de987fba32a3aba7dc3fe.tar.gz
emacs-217425d076de888d0c0de987fba32a3aba7dc3fe.zip
(whitespace-mode, whitespace-mode-line): Add defvars.
-rw-r--r--lisp/whitespace.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 459383a17bf..2e648f1b2c8 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -175,13 +175,15 @@ To disable timer scans, set this to zero."
175 :group 'whitespace) 175 :group 'whitespace)
176 176
177;; Tell Emacs about this new kind of minor mode 177;; Tell Emacs about this new kind of minor mode
178(defvar whitespace-mode nil
179 "Non-nil when Whitespace mode (a minor mode) is enabled.")
178(make-variable-buffer-local 'whitespace-mode) 180(make-variable-buffer-local 'whitespace-mode)
179(put 'whitespace-mode 'permanent-local nil) 181(put 'whitespace-mode 'permanent-local nil)
180(set-default 'whitespace-mode nil)
181 182
183(defvar whitespace-mode-line nil
184 "String to display in the mode line for Whitespace mode.")
182(make-variable-buffer-local 'whitespace-mode-line) 185(make-variable-buffer-local 'whitespace-mode-line)
183(put 'whitespace-mode-line 'permanent-local nil) 186(put 'whitespace-mode-line 'permanent-local nil)
184(set-default 'whitespace-mode-line nil)
185 187
186(if (not (assoc 'whitespace-mode minor-mode-alist)) 188(if (not (assoc 'whitespace-mode minor-mode-alist))
187 (setq minor-mode-alist (cons '(whitespace-mode whitespace-mode-line) 189 (setq minor-mode-alist (cons '(whitespace-mode whitespace-mode-line)