(whitespace-mode, whitespace-mode-line): Add defvars.

217425d0 · Richard M. Stallman · f0628026 · 217425d0
Commit 217425d0 authored Sep 15, 1999 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

lisp/whitespace.el lisp/whitespace.el +4 -2

No files found.
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -175,13 +175,15 @@ To disable timer scans, set this to zero."
  :group 'whitespace)

 ;; Tell Emacs about this new kind of minor mode
+(defvar whitespace-mode nil
+  "Non-nil when Whitespace mode (a minor mode) is enabled.")
 (make-variable-buffer-local 'whitespace-mode)
 (put 'whitespace-mode 'permanent-local nil)
-(set-default 'whitespace-mode nil)

+(defvar whitespace-mode-line nil
+  "String to display in the mode line for Whitespace mode.")
 (make-variable-buffer-local 'whitespace-mode-line)
 (put 'whitespace-mode-line 'permanent-local nil)
-(set-default 'whitespace-mode-line nil)

 (if (not (assoc 'whitespace-mode minor-mode-alist))
    (setq minor-mode-alist (cons '(whitespace-mode whitespace-mode-line)