Mercurial > emacs

comparison lisp/whitespace.el @ 83561:dc002877ce12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from emacs@sv.gnu.org Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-674 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-675 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-676 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-677 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-678 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-679 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-680 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-681 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-682 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-683 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-684 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-685 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-686 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-687 Release ERC 5.2. * emacs@sv.gnu.org/emacs--devo--0--patch-688 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-689 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-690 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-691 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-692 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-693 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-694 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-695 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-696 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-697 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-698 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-699 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-700 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-701 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-209 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-210 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-211 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-212 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-213 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-214 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-215 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-601
author Karoly Lorentey <karoly@lorentey.hu>
date Sun, 22 Apr 2007 12:42:47 +0000
parents b8d9a391daf3 9af0d9e91c22
children
comparison
equal deleted inserted replaced
83560:738ce3540ffb 83561:dc002877ce12
100 100
101 ;; Tell Emacs about this new kind of minor mode 101 ;; Tell Emacs about this new kind of minor mode
102 (defvar whitespace-mode nil 102 (defvar whitespace-mode nil
103 "Non-nil when Whitespace mode (a minor mode) is enabled.") 103 "Non-nil when Whitespace mode (a minor mode) is enabled.")
104 (make-variable-buffer-local 'whitespace-mode) 104 (make-variable-buffer-local 'whitespace-mode)
105 (put 'whitespace-mode 'permanent-local nil)
106 105
107 (defvar whitespace-mode-line nil 106 (defvar whitespace-mode-line nil
108 "String to display in the mode line for Whitespace mode.") 107 "String to display in the mode line for Whitespace mode.")
109 (make-variable-buffer-local 'whitespace-mode-line) 108 (make-variable-buffer-local 'whitespace-mode-line)
110 (put 'whitespace-mode-line 'permanent-local nil)
111 109
112 (defvar whitespace-check-buffer-leading nil 110 (defvar whitespace-check-buffer-leading nil
113 "Test leading whitespace for file in current buffer if t.") 111 "Test leading whitespace for file in current buffer if t.")
114 (make-variable-buffer-local 'whitespace-check-buffer-leading) 112 (make-variable-buffer-local 'whitespace-check-buffer-leading)
115 (put 'whitespace-check-buffer-leading 'permanent-local nil)
116 113
117 (defvar whitespace-check-buffer-trailing nil 114 (defvar whitespace-check-buffer-trailing nil
118 "Test trailing whitespace for file in current buffer if t.") 115 "Test trailing whitespace for file in current buffer if t.")
119 (make-variable-buffer-local 'whitespace-check-buffer-trailing) 116 (make-variable-buffer-local 'whitespace-check-buffer-trailing)
120 (put 'whitespace-check-buffer-trailing 'permanent-local nil)
121 117
122 (defvar whitespace-check-buffer-indent nil 118 (defvar whitespace-check-buffer-indent nil
123 "Test indentation whitespace for file in current buffer if t.") 119 "Test indentation whitespace for file in current buffer if t.")
124 (make-variable-buffer-local 'whitespace-check-buffer-indent) 120 (make-variable-buffer-local 'whitespace-check-buffer-indent)
125 (put 'whitespace-check-buffer-indent 'permanent-local nil)
126 121
127 (defvar whitespace-check-buffer-spacetab nil 122 (defvar whitespace-check-buffer-spacetab nil
128 "Test Space-followed-by-TABS whitespace for file in current buffer if t.") 123 "Test Space-followed-by-TABS whitespace for file in current buffer if t.")
129 (make-variable-buffer-local 'whitespace-check-buffer-spacetab) 124 (make-variable-buffer-local 'whitespace-check-buffer-spacetab)
130 (put 'whitespace-check-buffer-spacetab 'permanent-local nil)
131 125
132 (defvar whitespace-check-buffer-ateol nil 126 (defvar whitespace-check-buffer-ateol nil
133 "Test end-of-line whitespace for file in current buffer if t.") 127 "Test end-of-line whitespace for file in current buffer if t.")
134 (make-variable-buffer-local 'whitespace-check-buffer-ateol) 128 (make-variable-buffer-local 'whitespace-check-buffer-ateol)
135 (put 'whitespace-check-buffer-ateol 'permanent-local nil)
136 129
137 (defvar whitespace-highlighted-space nil 130 (defvar whitespace-highlighted-space nil
138 "The variable to store the extent to highlight.") 131 "The variable to store the extent to highlight.")
139 (make-variable-buffer-local 'whitespace-highlighted-space) 132 (make-variable-buffer-local 'whitespace-highlighted-space)
140 (put 'whitespace-highlighted-space 'permanent-local nil)
141 133
142 ;; For flavors of Emacs which don't define `defgroup' and `defcustom'. 134 ;; For flavors of Emacs which don't define `defgroup' and `defcustom'.
143 (eval-when-compile 135 (eval-when-compile
144 (if (not (fboundp 'defgroup)) 136 (if (not (fboundp 'defgroup))
145 (defmacro defgroup (sym memb doc &rest args) 137 (defmacro defgroup (sym memb doc &rest args)