diff options
| author | Vinicius Jose Latorre <[email protected]> | 2008-02-01 18:52:51 +0000 |
|---|---|---|
| committer | Vinicius Jose Latorre <[email protected]> | 2008-02-01 18:52:51 +0000 |
| commit | 4a4b61e275b03249159e9a361311e6c9b12ed6b9 (patch) | |
| tree | 3f375833a5eb34fe37efce15db676565ea8a4482 /lisp/whitespace.el | |
| parent | aca7a3d2018b432aa76b81005189b6a5a05f18d5 (diff) | |
Use find-file-hook instead of find-file-hooks.
Diffstat (limited to 'lisp/whitespace.el')
| -rw-r--r-- | lisp/whitespace.el | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/lisp/whitespace.el b/lisp/whitespace.el index fcd5a79cb9..77ced4e091 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)) |