diff options
| author | Richard M. Stallman | 1999-09-15 23:46:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-09-15 23:46:29 +0000 |
| commit | 217425d076de888d0c0de987fba32a3aba7dc3fe (patch) | |
| tree | 5c591845fe850385447b82a46d97b1d749bde5c6 | |
| parent | f06280268ad4dd2e28e352a0e265154769c8251e (diff) | |
| download | emacs-217425d076de888d0c0de987fba32a3aba7dc3fe.tar.gz emacs-217425d076de888d0c0de987fba32a3aba7dc3fe.zip | |
(whitespace-mode, whitespace-mode-line): Add defvars.
| -rw-r--r-- | lisp/whitespace.el | 6 |
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) |