150 |
don't define it." |
don't define it." |
151 |
`(defvar ,sym ,val ,doc)))) |
`(defvar ,sym ,val ,doc)))) |
152 |
|
|
153 |
(if (fboundp 'make-overlay) |
(defalias 'whitespace-make-overlay |
154 |
(progn |
(if (featurep 'xemacs) 'make-extent 'make-overlay)) |
155 |
(defalias 'whitespace-make-overlay 'make-overlay) |
(defalias 'whitespace-overlay-put |
156 |
(defalias 'whitespace-overlay-put 'overlay-put) |
(if (featurep 'xemacs) 'set-extent-property 'overlay-put)) |
157 |
(defalias 'whitespace-delete-overlay 'delete-overlay) |
(defalias 'whitespace-delete-overlay |
158 |
(defalias 'whitespace-overlay-start 'overlay-start) |
(if (featurep 'xemacs) 'delete-extent 'delete-overlay)) |
159 |
(defalias 'whitespace-overlay-end 'overlay-end) |
(defalias 'whitespace-overlay-start |
160 |
(defalias 'whitespace-mode-line-update 'force-mode-line-update)) |
(if (featurep 'xemacs) 'extent-start 'overlay-start)) |
161 |
(defalias 'whitespace-make-overlay 'make-extent) |
(defalias 'whitespace-overlay-end |
162 |
(defalias 'whitespace-overlay-put 'set-extent-property) |
(if (featurep 'xemacs) 'extent-end 'overlay-end)) |
163 |
(defalias 'whitespace-delete-overlay 'delete-extent) |
(defalias 'whitespace-mode-line-update |
164 |
(defalias 'whitespace-overlay-start 'extent-start) |
(if (featurep 'xemacs) 'redraw-modeline 'force-mode-line-update)) |
|
(defalias 'whitespace-overlay-end 'extent-end) |
|
|
(defalias 'whitespace-mode-line-update 'redraw-modeline)) |
|
165 |
|
|
|
(if (featurep 'xemacs) |
|
|
(defgroup whitespace nil |
|
|
"Check for and fix five different types of whitespaces in source code." |
|
|
;; Since XEmacs doesn't have a 'convenience group, use the next best group |
|
|
;; which is 'editing? |
|
|
:link '(emacs-commentary-link "whitespace.el") |
|
|
:group 'editing) |
|
166 |
(defgroup whitespace nil |
(defgroup whitespace nil |
167 |
"Check for and fix five different types of whitespaces in source code." |
"Check for and fix five different types of whitespaces in source code." |
168 |
:version "21.1" |
:version "21.1" |
169 |
:link '(emacs-commentary-link "whitespace.el") |
:link '(emacs-commentary-link "whitespace.el") |
170 |
:group 'convenience)) |
;; Since XEmacs doesn't have a 'convenience group, use the next best group |
171 |
|
;; which is 'editing? |
172 |
|
:group (if (featurep 'xemacs) 'editing 'convenience)) |
173 |
|
|
174 |
(defcustom whitespace-check-leading-whitespace t |
(defcustom whitespace-check-leading-whitespace t |
175 |
"Flag to check leading whitespace. This is the global for the system. |
"Flag to check leading whitespace. This is the global for the system. |