[Emacs-diffs] Changes to emacs/lisp/whitespace.el,v

[Vinicius Jose Latorre]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Vinicius Jose Latorre <viniciusjl>      08/02/01 18:52:52

Index: whitespace.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/whitespace.el,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -b -r1.67 -r1.68
--- whitespace.el       1 Feb 2008 14:43:03 -0000       1.67
+++ whitespace.el       1 Feb 2008 18:52:51 -0000       1.68
@@ -179,8 +179,8 @@
 ;;    empty lines at beginning and/or end of buffer.
 ;;
 ;; 3. 8 or more SPACEs at beginning of line.
-;;    If `whitespace-chars' includes the value `indentation', replace 8
-;;    or more SPACEs at beginning of line by TABs.
+;;    If `whitespace-chars' includes the value `indentation', replace
+;;    8 or more SPACEs at beginning of line by TABs.
 ;;
 ;; 4. SPACEs before TAB.
 ;;    If `whitespace-chars' includes the value `space-before-tab',
@@ -276,8 +276,9 @@
 ;; `whitespace-display-mappings'       Specify an alist of mappings
 ;;                                     for displaying characters.
 ;;
-;; `whitespace-global-modes'   Modes for which global `whitespace-mode' is
-;;                             automagically turned on.
+;; `whitespace-global-modes'   Modes for which global
+;;                             `whitespace-mode' is automagically
+;;                             turned on.
 ;;
 ;;
 ;; Acknowledgements
@@ -917,18 +918,14 @@
     (setq global-whitespace-mode nil))
    (global-whitespace-mode             ; global-whitespace-mode on
     (save-excursion
-      (if (boundp 'find-file-hook)
          (add-hook 'find-file-hook 'whitespace-turn-on-if-enabled t)
-       (add-hook 'find-file-hooks 'whitespace-turn-on-if-enabled t))
       (dolist (buffer (buffer-list))   ; adjust all local mode
        (set-buffer buffer)
        (unless whitespace-mode
          (whitespace-turn-on-if-enabled)))))
    (t                                  ; global-whitespace-mode off
     (save-excursion
-      (if (boundp 'find-file-hook)
          (remove-hook 'find-file-hook 'whitespace-turn-on-if-enabled)
-       (remove-hook 'find-file-hooks 'whitespace-turn-on-if-enabled))
       (dolist (buffer (buffer-list))   ; adjust all local mode
        (set-buffer buffer)
        (when (or (not whitespace-mode)