diff options
| -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) |