Mercurial > emacs
comparison lisp/whitespace.el @ 91327:606f2d163a64
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-312
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 09 Jan 2008 01:21:15 +0000 |
| parents | 56a72e2bd635 107ccd98fa12 |
| children |
comparison
equal
deleted
inserted
replaced
| 91326:b1a63d7fa09c | 91327:606f2d163a64 |
|---|---|
| 1 ;;; whitespace.el --- warn about and clean bogus whitespaces in the file | 1 ;;; whitespace.el --- warn about and clean bogus whitespaces in the file |
| 2 | 2 |
| 3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, | 3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. | 4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Author: Rajesh Vaidheeswarran <rv@gnu.org> | 6 ;; Author: Rajesh Vaidheeswarran <rv@gnu.org> |
| 7 ;; Keywords: convenience | 7 ;; Keywords: convenience |
| 8 | 8 |
| 9 ;; This file is part of GNU Emacs. | 9 ;; This file is part of GNU Emacs. |
| 108 (make-variable-buffer-local 'whitespace-mode-line) | 108 (make-variable-buffer-local 'whitespace-mode-line) |
| 109 | 109 |
| 110 (defvar whitespace-check-buffer-leading nil | 110 (defvar whitespace-check-buffer-leading nil |
| 111 "Test leading whitespace for file in current buffer if t.") | 111 "Test leading whitespace for file in current buffer if t.") |
| 112 (make-variable-buffer-local 'whitespace-check-buffer-leading) | 112 (make-variable-buffer-local 'whitespace-check-buffer-leading) |
| 113 ;;;###autoload(put 'whitespace-check-buffer-leading 'safe-local-variable 'booleanp) | |
| 113 | 114 |
| 114 (defvar whitespace-check-buffer-trailing nil | 115 (defvar whitespace-check-buffer-trailing nil |
| 115 "Test trailing whitespace for file in current buffer if t.") | 116 "Test trailing whitespace for file in current buffer if t.") |
| 116 (make-variable-buffer-local 'whitespace-check-buffer-trailing) | 117 (make-variable-buffer-local 'whitespace-check-buffer-trailing) |
| 118 ;;;###autoload(put 'whitespace-check-buffer-trailing 'safe-local-variable 'booleanp) | |
| 117 | 119 |
| 118 (defvar whitespace-check-buffer-indent nil | 120 (defvar whitespace-check-buffer-indent nil |
| 119 "Test indentation whitespace for file in current buffer if t.") | 121 "Test indentation whitespace for file in current buffer if t.") |
| 120 (make-variable-buffer-local 'whitespace-check-buffer-indent) | 122 (make-variable-buffer-local 'whitespace-check-buffer-indent) |
| 123 ;;;###autoload(put 'whitespace-check-buffer-indent 'safe-local-variable 'booleanp) | |
| 121 | 124 |
| 122 (defvar whitespace-check-buffer-spacetab nil | 125 (defvar whitespace-check-buffer-spacetab nil |
| 123 "Test Space-followed-by-TABS whitespace for file in current buffer if t.") | 126 "Test Space-followed-by-TABS whitespace for file in current buffer if t.") |
| 124 (make-variable-buffer-local 'whitespace-check-buffer-spacetab) | 127 (make-variable-buffer-local 'whitespace-check-buffer-spacetab) |
| 128 ;;;###autoload(put 'whitespace-check-buffer-spacetab 'safe-local-variable 'booleanp) | |
| 125 | 129 |
| 126 (defvar whitespace-check-buffer-ateol nil | 130 (defvar whitespace-check-buffer-ateol nil |
| 127 "Test end-of-line whitespace for file in current buffer if t.") | 131 "Test end-of-line whitespace for file in current buffer if t.") |
| 128 (make-variable-buffer-local 'whitespace-check-buffer-ateol) | 132 (make-variable-buffer-local 'whitespace-check-buffer-ateol) |
| 133 ;;;###autoload(put 'whitespace-check-buffer-ateol 'safe-local-variable 'booleanp) | |
| 129 | 134 |
| 130 (defvar whitespace-highlighted-space nil | 135 (defvar whitespace-highlighted-space nil |
| 131 "The variable to store the extent to highlight.") | 136 "The variable to store the extent to highlight.") |
| 132 (make-variable-buffer-local 'whitespace-highlighted-space) | 137 (make-variable-buffer-local 'whitespace-highlighted-space) |
| 133 | 138 |