svn rev #23121: trunk/src/util/

[tlyu@MIT.EDU]

http://src.mit.edu/fisheye/changelog/krb5/?cs=23121
Commit By: tlyu
Log Message:
Emacs 21 doesn't have custom-variable-p.  Also, adjust to use the
correct controlling variables for older incarnations of
whitespace-mode.


Changed Files:
U   trunk/src/util/krb5-batch-reindent.el
Modified: trunk/src/util/krb5-batch-reindent.el
===================================================================
--- trunk/src/util/krb5-batch-reindent.el	2009-11-02 18:00:40 UTC (rev 23120)
+++ trunk/src/util/krb5-batch-reindent.el	2009-11-02 19:19:02 UTC (rev 23121)
@@ -30,13 +30,13 @@
 
 ;; Old style whitespace.el uses different variables.
 (defun whitespace-old ()
-  (let (whitespace-check-indent-whitespace
-        whitespace-check-spacetab-whitespace)
+  (let (whitespace-check-buffer-indent
+        whitespace-check-buffer-spacetab)
     (if (local-variable-p 'indent-tabs-mode)
         (progn
           (message "Enabling tab cleanups.")
-          (setq whitespace-check-indent-whitespace indent-tabs-mode)
-          (setq whitespace-check-spacetab-whitespace t)))
+          (setq whitespace-check-buffer-indent indent-tabs-mode)
+          (setq whitespace-check-buffer-spacetab t)))
     (message "Cleaning whitespace...")
     (whitespace-cleanup)))
 
@@ -59,7 +59,7 @@
     (if (equal c-indentation-style "krb5")
         (c-indent-region (point-min) (point-max)))
 
-    (if (custom-variable-p 'whitespace-style)
+    (if (fboundp 'whitespace-newline-mode)
         (whitespace-new)
       (whitespace-old))