/[emacs]/emacs/lisp/whitespace.el
ViewVC logotype

Diff of /emacs/lisp/whitespace.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by lektu, Wed Jul 13 10:32:08 2005 UTC revision 1.40 by rms, Sat Jul 16 17:10:58 2005 UTC
# Line 150  visited by the buffers.") Line 150  visited by the buffers.")
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.

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26