From: Vinicius Jose Latorre <viniciusjl@ig.com.br>
Date: Fri, 1 Feb 2008 18:52:51 +0000 (+0000)
Subject: Use find-file-hook instead of find-file-hooks.
X-Git-Tag: emacs-pretest-23.0.90~8293
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a4b61e275b03249159e9a361311e6c9b12ed6b9;p=emacs.git

Use find-file-hook instead of find-file-hooks.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 523f27a0fe2..fc6b8bc0033 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3374,6 +3374,12 @@
 	utf-8.el, and utf-8-subst.el as they can't be bytecompiled
 	currently.  This is just a temporary workaround.
 
+2008-02-01  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+	* whitespace.el (global-whitespace-mode): Use `find-file-hook' instead
+	of `find-file-hooks'.
+	(global-whitespace-toggle-options): Doc fix.
+
 2008-02-01  Juanma Barranquero  <lekktu@gmail.com>
 
 	* whitespace.el (whitespace): Set :version tag to 23.1.
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index fcd5a79cb99..77ced4e0917 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -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 @@ Only useful with a windowing system."
     (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))
+      (add-hook 'find-file-hook '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))
+      (remove-hook 'find-file-hook 'whitespace-turn-on-if-enabled)
       (dolist (buffer (buffer-list))	; adjust all local mode
 	(set-buffer buffer)
 	(when (or (not whitespace-mode)
@@ -1137,8 +1134,8 @@ The valid symbols are:
    space-after-tab	toggle SPACEs after TAB visualization
    color		toggle color faces
    mark			toggle visual mark
-   whitespace-chars		restore `whitespace-chars' value
-   whitespace-style		restore `whitespace-style' value
+   whitespace-chars	restore `whitespace-chars' value
+   whitespace-style	restore `whitespace-style' value
 
 Only useful with a windowing system."
   (interactive (whitespace-interactive-char nil))