annotate lisp/whitespace.el @ 92622:a7f58647496a

Fix previous change.
author Glenn Morris <rgm@gnu.org>
date Sat, 08 Mar 2008 19:50:37 +0000
parents 0418e6ff8eb2
children 7b3262e9986b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1 ;;; whitespace.el --- minor mode to visualize TAB, (HARD) SPACE, NEWLINE
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
4 ;; Free Software Foundation, Inc.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
5
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
6 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
7 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
8 ;; Keywords: data, wp
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
9 ;; Version: 9.3
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
10 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
11
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
12 ;; This file is part of GNU Emacs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
13
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
14 ;; GNU Emacs is free software; you can redistribute it and/or modify
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
15 ;; it under the terms of the GNU General Public License as published
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
16 ;; by the Free Software Foundation; either version 3, or (at your
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
17 ;; option) any later version.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
18
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
19 ;; GNU Emacs is distributed in the hope that it will be useful, but
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
20 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
22 ;; General Public License for more details.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
23
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
24 ;; You should have received a copy of the GNU General Public License
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
27 ;; Boston, MA 02110-1301, USA.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
28
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
29 ;;; Commentary:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
30
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
31 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
32 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
33 ;; Introduction
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
34 ;; ------------
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
35 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
36 ;; This package is a minor mode to visualize blanks (TAB, (HARD) SPACE
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
37 ;; and NEWLINE).
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
38 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
39 ;; whitespace uses two ways to visualize blanks: faces and display
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
40 ;; table.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
41 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
42 ;; * Faces are used to highlight the background with a color.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
43 ;; whitespace uses font-lock to highlight blank characters.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
44 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
45 ;; * Display table changes the way a character is displayed, that is,
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
46 ;; it provides a visual mark for characters, for example, at the end
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
47 ;; of line (?\xB6), at SPACEs (?\xB7) and at TABs (?\xBB).
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
48 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
49 ;; The `whitespace-style' and `whitespace-chars' variables are used to
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
50 ;; select which way should be used to visualize blanks.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
51 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
52 ;; Note that when whitespace is turned on, whitespace saves the
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
53 ;; font-lock state, that is, if font-lock is on or off. And
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
54 ;; whitespace restores the font-lock state when it is turned off. So,
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
55 ;; if whitespace is turned on and font-lock is off, whitespace also
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
56 ;; turns on the font-lock to highlight blanks, but the font-lock will
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
57 ;; be turned off when whitespace is turned off. Thus, turn on
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
58 ;; font-lock before whitespace is on, if you want that font-lock
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
59 ;; continues on after whitespace is turned off.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
60 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
61 ;; When whitespace is on, it takes care of highlighting some special
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
62 ;; characters over the default mechanism of `nobreak-char-display'
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
63 ;; (which see) and `show-trailing-whitespace' (which see).
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
64 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
65 ;; There are two ways of using whitespace: local and global.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
66 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
67 ;; * Local whitespace affects only the current buffer.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
68 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
69 ;; * Global whitespace affects all current and future buffers. That
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
70 ;; is, if you turn on global whitespace and then create a new
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
71 ;; buffer, the new buffer will also have whitespace on. The
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
72 ;; `whitespace-global-modes' variable controls which major-mode will
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
73 ;; be automagically turned on.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
74 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
75 ;; You can mix the local and global usage without any conflict. But
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
76 ;; local whitespace has priority over global whitespace. Whitespace
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
77 ;; mode is active in a buffer if you have enabled it in that buffer or
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
78 ;; if you have enabled it globally.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
79 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
80 ;; When global and local whitespace are on:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
81 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
82 ;; * if local whitespace is turned off, whitespace is turned off for
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
83 ;; the current buffer only.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
84 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
85 ;; * if global whitespace is turned off, whitespace continues on only
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
86 ;; in the buffers in which local whitespace is on.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
87 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
88 ;; To use whitespace, insert in your ~/.emacs:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
89 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
90 ;; (require 'whitespace-mode)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
91 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
92 ;; Or autoload at least one of the commands`whitespace-mode',
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
93 ;; `whitespace-toggle-options', `global-whitespace-mode' or
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
94 ;; `global-whitespace-toggle-options'. For example:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
95 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
96 ;; (autoload 'whitespace-mode "whitespace"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
97 ;; "Toggle whitespace visualization." t)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
98 ;; (autoload 'whitespace-toggle-options "whitespace"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
99 ;; "Toggle local `whitespace-mode' options." t)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
100 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
101 ;; whitespace was inspired by:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
102 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
103 ;; whitespace.el Rajesh Vaidheeswarran <rv@gnu.org>
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
104 ;; Warn about and clean bogus whitespaces in the file
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
105 ;; (inspired the idea to warn and clean some blanks)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
106 ;; This was the original `whitespace.el' which was replaced by
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
107 ;; `blank-mode.el'. And later `blank-mode.el' was renamed to
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
108 ;; `whitespace.el'.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
109 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
110 ;; show-whitespace-mode.el Aurelien Tisne <aurelien.tisne@free.fr>
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
111 ;; Simple mode to highlight whitespaces
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
112 ;; (inspired the idea to use font-lock)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
113 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
114 ;; whitespace-mode.el Lawrence Mitchell <wence@gmx.li>
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
115 ;; Major mode for editing Whitespace
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
116 ;; (inspired the idea to use display table)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
117 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
118 ;; visws.el Miles Bader <miles@gnu.org>
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
119 ;; Make whitespace visible
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
120 ;; (handle display table, his code was modified, but the main
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
121 ;; idea was kept)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
122 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
123 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
124 ;; Using whitespace
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
125 ;; ----------------
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
126 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
127 ;; There is no problem if you mix local and global minor mode usage.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
128 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
129 ;; * LOCAL whitespace:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
130 ;; + To toggle whitespace options locally, type:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
131 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
132 ;; M-x whitespace-toggle-options RET
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
133 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
134 ;; + To activate whitespace locally, type:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
135 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
136 ;; C-u 1 M-x whitespace-mode RET
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
137 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
138 ;; + To deactivate whitespace locally, type:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
139 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
140 ;; C-u 0 M-x whitespace-mode RET
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
141 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
142 ;; + To toggle whitespace locally, type:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
143 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
144 ;; M-x whitespace-mode RET
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
145 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
146 ;; * GLOBAL whitespace:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
147 ;; + To toggle whitespace options globally, type:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
148 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
149 ;; M-x global-whitespace-toggle-options RET
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
150 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
151 ;; + To activate whitespace globally, type:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
152 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
153 ;; C-u 1 M-x global-whitespace-mode RET
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
154 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
155 ;; + To deactivate whitespace globally, type:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
156 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
157 ;; C-u 0 M-x global-whitespace-mode RET
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
158 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
159 ;; + To toggle whitespace globally, type:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
160 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
161 ;; M-x global-whitespace-mode RET
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
162 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
163 ;; There are also the following useful commands:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
164 ;;
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
165 ;; `whitespace-report'
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
166 ;; Report some blank problems in buffer.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
167 ;;
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
168 ;; `whitespace-report-region'
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
169 ;; Report some blank problems in a region.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
170 ;;
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
171 ;; `whitespace-cleanup'
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
172 ;; Cleanup some blank problems in all buffer or at region.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
173 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
174 ;; `whitespace-cleanup-region'
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
175 ;; Cleanup some blank problems at region.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
176 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
177 ;; The problems, which are cleaned up, are:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
178 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
179 ;; 1. empty lines at beginning of buffer.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
180 ;; 2. empty lines at end of buffer.
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
181 ;; If `whitespace-chars' includes the value `empty', remove all
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
182 ;; empty lines at beginning and/or end of buffer.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
183 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
184 ;; 3. 8 or more SPACEs at beginning of line.
91377
510381911395 Use find-file-hook instead of find-file-hooks.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 88118
diff changeset
185 ;; If `whitespace-chars' includes the value `indentation', replace
510381911395 Use find-file-hook instead of find-file-hooks.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 88118
diff changeset
186 ;; 8 or more SPACEs at beginning of line by TABs.
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
187 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
188 ;; 4. SPACEs before TAB.
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
189 ;; If `whitespace-chars' includes the value `space-before-tab',
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
190 ;; replace SPACEs by TABs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
191 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
192 ;; 5. SPACEs or TABs at end of line.
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
193 ;; If `whitespace-chars' includes the value `trailing', remove all
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
194 ;; SPACEs or TABs at end of line.
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
195 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
196 ;; 6. 8 or more SPACEs after TAB.
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
197 ;; If `whitespace-chars' includes the value `space-after-tab',
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
198 ;; replace SPACEs by TABs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
199 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
200 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
201 ;; Hooks
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
202 ;; -----
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
203 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
204 ;; whitespace has the following hook variables:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
205 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
206 ;; `whitespace-mode-hook'
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
207 ;; It is evaluated always when whitespace is turned on locally.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
208 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
209 ;; `global-whitespace-mode-hook'
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
210 ;; It is evaluated always when whitespace is turned on globally.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
211 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
212 ;; `whitespace-load-hook'
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
213 ;; It is evaluated after whitespace package is loaded.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
214 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
215 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
216 ;; Options
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
217 ;; -------
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
218 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
219 ;; Below it's shown a brief description of whitespace options, please,
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
220 ;; see the options declaration in the code for a long documentation.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
221 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
222 ;; `whitespace-style' Specify the visualization style.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
223 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
224 ;; `whitespace-chars' Specify which kind of blank is
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
225 ;; visualized.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
226 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
227 ;; `whitespace-space' Face used to visualize SPACE.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
228 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
229 ;; `whitespace-hspace' Face used to visualize HARD SPACE.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
230 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
231 ;; `whitespace-tab' Face used to visualize TAB.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
232 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
233 ;; `whitespace-newline' Face used to visualize NEWLINE char
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
234 ;; mapping.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
235 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
236 ;; `whitespace-trailing' Face used to visualize trailing
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
237 ;; blanks.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
238 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
239 ;; `whitespace-line' Face used to visualize "long" lines.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
240 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
241 ;; `whitespace-space-before-tab' Face used to visualize SPACEs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
242 ;; before TAB.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
243 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
244 ;; `whitespace-indentation' Face used to visualize 8 or more
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
245 ;; SPACEs at beginning of line.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
246 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
247 ;; `whitespace-empty' Face used to visualize empty lines at
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
248 ;; beginning and/or end of buffer.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
249 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
250 ;; `whitespace-space-after-tab' Face used to visualize 8 or more
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
251 ;; SPACEs after TAB.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
252 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
253 ;; `whitespace-space-regexp' Specify SPACE characters regexp.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
254 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
255 ;; `whitespace-hspace-regexp' Specify HARD SPACE characters regexp.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
256 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
257 ;; `whitespace-tab-regexp' Specify TAB characters regexp.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
258 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
259 ;; `whitespace-trailing-regexp' Specify trailing characters regexp.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
260 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
261 ;; `whitespace-space-before-tab-regexp' Specify SPACEs before TAB
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
262 ;; regexp.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
263 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
264 ;; `whitespace-indentation-regexp' Specify regexp for 8 or more
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
265 ;; SPACEs at beginning of line.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
266 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
267 ;; `whitespace-empty-at-bob-regexp' Specify regexp for empty lines
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
268 ;; at beginning of buffer.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
269 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
270 ;; `whitespace-empty-at-eob-regexp' Specify regexp for empty lines
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
271 ;; at end of buffer.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
272 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
273 ;; `whitespace-space-after-tab-regexp' Specify regexp for 8 or more
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
274 ;; SPACEs after TAB.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
275 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
276 ;; `whitespace-line-column' Specify column beyond which the line
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
277 ;; is highlighted.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
278 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
279 ;; `whitespace-display-mappings' Specify an alist of mappings
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
280 ;; for displaying characters.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
281 ;;
91377
510381911395 Use find-file-hook instead of find-file-hooks.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 88118
diff changeset
282 ;; `whitespace-global-modes' Modes for which global
510381911395 Use find-file-hook instead of find-file-hooks.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 88118
diff changeset
283 ;; `whitespace-mode' is automagically
510381911395 Use find-file-hook instead of find-file-hooks.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 88118
diff changeset
284 ;; turned on.
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
285 ;;
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
286 ;; `whitespace-action' Specify which action is taken when a
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
287 ;; buffer is visited, killed or written.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
288 ;;
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
289 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
290 ;; Acknowledgements
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
291 ;; ----------------
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
292 ;;
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
293 ;; Thanks to Eric Cooper <ecc@cmu.edu> for the suggestion to have hook actions
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
294 ;; when buffer is written or killed as the original whitespace package had.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
295 ;;
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
296 ;; Thanks to nschum (EmacsWiki) for the idea about highlight "long"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
297 ;; lines tail. See EightyColumnRule (EmacsWiki).
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
298 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
299 ;; Thanks to Juri Linkov <juri@jurta.org> for suggesting:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
300 ;; * `define-minor-mode'.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
301 ;; * `global-whitespace-*' name for global commands.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
302 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
303 ;; Thanks to Robert J. Chassell <bob@gnu.org> for doc fix and testing.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
304 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
305 ;; Thanks to Drew Adams <drew.adams@oracle.com> for toggle commands
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
306 ;; suggestion.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
307 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
308 ;; Thanks to Antti Kaihola <antti.kaihola@linux-aktivaattori.org> for
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
309 ;; helping to fix `find-file-hooks' reference.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
310 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
311 ;; Thanks to Andreas Roehler <andreas.roehler@easy-emacs.de> for
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
312 ;; indicating defface byte-compilation warnings.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
313 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
314 ;; Thanks to TimOCallaghan (EmacsWiki) for the idea about highlight
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
315 ;; "long" lines. See EightyColumnRule (EmacsWiki).
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
316 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
317 ;; Thanks to Yanghui Bian <yanghuibian@gmail.com> for indicating a new
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
318 ;; newline character mapping.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
319 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
320 ;; Thanks to Pete Forman <pete.forman@westgeo.com> for indicating
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
321 ;; whitespace-mode.el on XEmacs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
322 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
323 ;; Thanks to Miles Bader <miles@gnu.org> for handling display table via
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
324 ;; visws.el (his code was modified, but the main idea was kept).
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
325 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
326 ;; Thanks to:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
327 ;; Rajesh Vaidheeswarran <rv@gnu.org> (original) whitespace.el
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
328 ;; Aurelien Tisne <aurelien.tisne@free.fr> show-whitespace-mode.el
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
329 ;; Lawrence Mitchell <wence@gmx.li> whitespace-mode.el
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
330 ;; Miles Bader <miles@gnu.org> visws.el
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
331 ;; And to all people who contributed with them.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
332 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
333 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
334 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
335
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
336 ;;; code:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
337
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
338
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
339 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
340 ;;;; User Variables:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
341
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
342
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
343 ;;; Interface to the command system
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
344
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
345
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
346 (defgroup whitespace nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
347 "Visualize blanks (TAB, (HARD) SPACE and NEWLINE)."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
348 :link '(emacs-library-link :tag "Source Lisp File" "whitespace.el")
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
349 :version "23.1"
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
350 :group 'wp
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
351 :group 'data)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
352
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
353
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
354 (defcustom whitespace-style '(mark color)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
355 "*Specify the visualization style.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
356
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
357 It's a list containing some or all of the following values:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
358
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
359 mark display mappings are visualized.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
360
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
361 color faces are visualized.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
362
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
363 Any other value is ignored.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
364
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
365 If nil, don't visualize TABs, (HARD) SPACEs and NEWLINEs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
366
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
367 See also `whitespace-display-mappings' for documentation."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
368 :type '(repeat :tag "Style of Blank"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
369 (choice :tag "Style of Blank"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
370 (const :tag "Display Table" mark)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
371 (const :tag "Faces" color)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
372 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
373
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
374
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
375 (defcustom whitespace-chars
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
376 '(tabs spaces trailing lines space-before-tab newline
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
377 indentation empty space-after-tab)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
378 "*Specify which kind of blank is visualized.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
379
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
380 It's a list containing some or all of the following values:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
381
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
382 trailing trailing blanks are visualized.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
383
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
384 tabs TABs are visualized.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
385
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
386 spaces SPACEs and HARD SPACEs are visualized.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
387
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
388 lines lines whose have columns beyond
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
389 `whitespace-line-column' are highlighted.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
390 Whole line is highlighted.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
391 It has precedence over
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
392 `lines-tail' (see below).
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
393
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
394 lines-tail lines whose have columns beyond
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
395 `whitespace-line-column' are highlighted.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
396 But only the part of line which goes
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
397 beyond `whitespace-line-column' column.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
398 It has effect only if `lines' (see above)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
399 is not present in `whitespace-chars'.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
400
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
401 space-before-tab SPACEs before TAB are visualized.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
402
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
403 newline NEWLINEs are visualized.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
404
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
405 indentation 8 or more SPACEs at beginning of line are
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
406 visualized.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
407
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
408 empty empty lines at beginning and/or end of buffer
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
409 are visualized.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
410
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
411 space-after-tab 8 or more SPACEs after a TAB are visualized.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
412
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
413 Any other value is ignored.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
414
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
415 If nil, don't visualize TABs, (HARD) SPACEs and NEWLINEs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
416
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
417 Used when `whitespace-style' includes the value `color'.
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
418 Used also when `whitespace-chars' includes `newline',
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
419 and `whitespace-style' includes `mark'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
420 :type '(repeat :tag "Kind of Blank"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
421 (choice :tag "Kind of Blank"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
422 (const :tag "Trailing TABs, SPACEs and HARD SPACEs"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
423 trailing)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
424 (const :tag "SPACEs and HARD SPACEs" spaces)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
425 (const :tag "TABs" tabs)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
426 (const :tag "Lines" lines)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
427 (const :tag "SPACEs before TAB"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
428 space-before-tab)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
429 (const :tag "NEWLINEs" newline)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
430 (const :tag "Indentation SPACEs" indentation)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
431 (const :tag "Empty Lines At BOB And/Or EOB"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
432 empty)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
433 (const :tag "SPACEs after TAB"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
434 space-after-tab)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
435 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
436
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
437
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
438 (defcustom whitespace-space 'whitespace-space
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
439 "*Symbol face used to visualize SPACE.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
440
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
441 Used when `whitespace-style' includes the value `color'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
442 :type 'face
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
443 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
444
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
445
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
446 (defface whitespace-space
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
447 '((((class color) (background dark))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
448 (:background "grey20" :foreground "aquamarine3"))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
449 (((class color) (background light))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
450 (:background "LightYellow" :foreground "aquamarine3"))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
451 (t (:inverse-video t)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
452 "Face used to visualize SPACE."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
453 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
454
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
455
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
456 (defcustom whitespace-hspace 'whitespace-hspace
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
457 "*Symbol face used to visualize HARD SPACE.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
458
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
459 Used when `whitespace-style' includes the value `color'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
460 :type 'face
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
461 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
462
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
463
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
464 (defface whitespace-hspace ; 'nobreak-space
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
465 '((((class color) (background dark))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
466 (:background "grey24" :foreground "aquamarine3"))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
467 (((class color) (background light))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
468 (:background "LemonChiffon3" :foreground "aquamarine3"))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
469 (t (:inverse-video t)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
470 "Face used to visualize HARD SPACE."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
471 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
472
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
473
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
474 (defcustom whitespace-tab 'whitespace-tab
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
475 "*Symbol face used to visualize TAB.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
476
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
477 Used when `whitespace-style' includes the value `color'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
478 :type 'face
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
479 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
480
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
481
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
482 (defface whitespace-tab
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
483 '((((class color) (background dark))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
484 (:background "grey22" :foreground "aquamarine3"))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
485 (((class color) (background light))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
486 (:background "beige" :foreground "aquamarine3"))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
487 (t (:inverse-video t)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
488 "Face used to visualize TAB."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
489 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
490
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
491
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
492 (defcustom whitespace-newline 'whitespace-newline
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
493 "*Symbol face used to visualize NEWLINE char mapping.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
494
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
495 See `whitespace-display-mappings'.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
496
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
497 Used when `whitespace-style' includes the values `mark'
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
498 and `color', and `whitespace-chars' includes `newline'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
499 :type 'face
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
500 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
501
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
502
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
503 (defface whitespace-newline
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
504 '((((class color) (background dark))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
505 (:background "grey26" :foreground "aquamarine3" :bold t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
506 (((class color) (background light))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
507 (:background "linen" :foreground "aquamarine3" :bold t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
508 (t (:bold t :underline t)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
509 "Face used to visualize NEWLINE char mapping.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
510
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
511 See `whitespace-display-mappings'."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
512 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
513
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
514
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
515 (defcustom whitespace-trailing 'whitespace-trailing
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
516 "*Symbol face used to visualize traling blanks.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
517
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
518 Used when `whitespace-style' includes the value `color'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
519 :type 'face
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
520 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
521
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
522
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
523 (defface whitespace-trailing ; 'trailing-whitespace
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
524 '((((class mono)) (:inverse-video t :bold t :underline t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
525 (t (:background "red1" :foreground "yellow" :bold t)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
526 "Face used to visualize trailing blanks."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
527 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
528
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
529
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
530 (defcustom whitespace-line 'whitespace-line
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
531 "*Symbol face used to visualize \"long\" lines.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
532
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
533 See `whitespace-line-column'.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
534
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
535 Used when `whitespace-style' includes the value `color'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
536 :type 'face
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
537 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
538
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
539
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
540 (defface whitespace-line
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
541 '((((class mono)) (:inverse-video t :bold t :underline t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
542 (t (:background "gray20" :foreground "violet")))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
543 "Face used to visualize \"long\" lines.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
544
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
545 See `whitespace-line-column'."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
546 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
547
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
548
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
549 (defcustom whitespace-space-before-tab 'whitespace-space-before-tab
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
550 "*Symbol face used to visualize SPACEs before TAB.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
551
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
552 Used when `whitespace-style' includes the value `color'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
553 :type 'face
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
554 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
555
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
556
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
557 (defface whitespace-space-before-tab
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
558 '((((class mono)) (:inverse-video t :bold t :underline t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
559 (t (:background "DarkOrange" :foreground "firebrick")))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
560 "Face used to visualize SPACEs before TAB."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
561 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
562
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
563
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
564 (defcustom whitespace-indentation 'whitespace-indentation
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
565 "*Symbol face used to visualize 8 or more SPACEs at beginning of line.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
566
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
567 Used when `whitespace-style' includes the value `color'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
568 :type 'face
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
569 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
570
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
571
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
572 (defface whitespace-indentation
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
573 '((((class mono)) (:inverse-video t :bold t :underline t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
574 (t (:background "yellow" :foreground "firebrick")))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
575 "Face used to visualize 8 or more SPACEs at beginning of line."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
576 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
577
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
578
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
579 (defcustom whitespace-empty 'whitespace-empty
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
580 "*Symbol face used to visualize empty lines at beginning and/or end of buffer.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
581
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
582 Used when `whitespace-style' includes the value `color'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
583 :type 'face
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
584 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
585
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
586
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
587 (defface whitespace-empty
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
588 '((((class mono)) (:inverse-video t :bold t :underline t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
589 (t (:background "yellow" :foreground "firebrick")))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
590 "Face used to visualize empty lines at beginning and/or end of buffer."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
591 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
592
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
593
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
594 (defcustom whitespace-space-after-tab 'whitespace-space-after-tab
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
595 "*Symbol face used to visualize 8 or more SPACEs after TAB.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
596
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
597 Used when `whitespace-style' includes the value `color'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
598 :type 'face
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
599 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
600
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
601
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
602 (defface whitespace-space-after-tab
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
603 '((((class mono)) (:inverse-video t :bold t :underline t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
604 (t (:background "yellow" :foreground "firebrick")))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
605 "Face used to visualize 8 or more SPACEs after TAB."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
606 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
607
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
608
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
609 (defcustom whitespace-hspace-regexp
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
610 "\\(\\(\xA0\\|\x8A0\\|\x920\\|\xE20\\|\xF20\\)+\\)"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
611 "*Specify HARD SPACE characters regexp.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
612
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
613 If you're using `mule' package, there may be other characters besides:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
614
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
615 \"\\xA0\" \"\\x8A0\" \"\\x920\" \"\\xE20\" \"\\xF20\"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
616
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
617 that should be considered HARD SPACE.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
618
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
619 Here are some examples:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
620
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
621 \"\\\\(^\\xA0+\\\\)\" \
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
622 visualize only leading HARD SPACEs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
623 \"\\\\(\\xA0+$\\\\)\" \
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
624 visualize only trailing HARD SPACEs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
625 \"\\\\(^\\xA0+\\\\|\\xA0+$\\\\)\" \
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
626 visualize leading and/or trailing HARD SPACEs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
627 \"\\t\\\\(\\xA0+\\\\)\\t\" \
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
628 visualize only HARD SPACEs between TABs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
629
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
630 NOTE: Enclose always by \\\\( and \\\\) the elements to highlight.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
631 Use exactly one pair of enclosing \\\\( and \\\\).
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
632
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
633 Used when `whitespace-style' includes the value `color',
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
634 and `whitespace-chars' includes `spaces'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
635 :type '(regexp :tag "HARD SPACE Chars")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
636 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
637
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
638
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
639 (defcustom whitespace-space-regexp "\\( +\\)"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
640 "*Specify SPACE characters regexp.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
641
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
642 If you're using `mule' package, there may be other characters
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
643 besides \" \" that should be considered SPACE.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
644
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
645 Here are some examples:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
646
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
647 \"\\\\(^ +\\\\)\" visualize only leading SPACEs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
648 \"\\\\( +$\\\\)\" visualize only trailing SPACEs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
649 \"\\\\(^ +\\\\| +$\\\\)\" \
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
650 visualize leading and/or trailing SPACEs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
651 \"\\t\\\\( +\\\\)\\t\" visualize only SPACEs between TABs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
652
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
653 NOTE: Enclose always by \\\\( and \\\\) the elements to highlight.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
654 Use exactly one pair of enclosing \\\\( and \\\\).
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
655
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
656 Used when `whitespace-style' includes the value `color',
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
657 and `whitespace-chars' includes `spaces'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
658 :type '(regexp :tag "SPACE Chars")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
659 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
660
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
661
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
662 (defcustom whitespace-tab-regexp "\\(\t+\\)"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
663 "*Specify TAB characters regexp.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
664
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
665 If you're using `mule' package, there may be other characters
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
666 besides \"\\t\" that should be considered TAB.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
667
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
668 Here are some examples:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
669
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
670 \"\\\\(^\\t+\\\\)\" visualize only leading TABs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
671 \"\\\\(\\t+$\\\\)\" visualize only trailing TABs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
672 \"\\\\(^\\t+\\\\|\\t+$\\\\)\" \
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
673 visualize leading and/or trailing TABs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
674 \" \\\\(\\t+\\\\) \" visualize only TABs between SPACEs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
675
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
676 NOTE: Enclose always by \\\\( and \\\\) the elements to highlight.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
677 Use exactly one pair of enclosing \\\\( and \\\\).
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
678
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
679 Used when `whitespace-style' includes the value `color',
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
680 and `whitespace-chars' includes `tabs'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
681 :type '(regexp :tag "TAB Chars")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
682 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
683
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
684
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
685 (defcustom whitespace-trailing-regexp
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
686 "\t\\| \\|\xA0\\|\x8A0\\|\x920\\|\xE20\\|\xF20"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
687 "*Specify trailing characters regexp.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
688
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
689 If you're using `mule' package, there may be other characters besides:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
690
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
691 \" \" \"\\t\" \"\\xA0\" \"\\x8A0\" \"\\x920\" \"\\xE20\" \
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
692 \"\\xF20\"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
693
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
694 that should be considered blank.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
695
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
696 NOTE: DO NOT enclose by \\\\( and \\\\) the elements to highlight.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
697 `whitespace-mode' surrounds this regexp by \"\\\\(\\\\(\" and
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
698 \"\\\\)+\\\\)$\".
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
699
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
700 Used when `whitespace-style' includes the value `color',
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
701 and `whitespace-chars' includes `trailing'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
702 :type '(regexp :tag "Trailing Chars")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
703 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
704
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
705
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
706 (defcustom whitespace-space-before-tab-regexp "\\( +\\)\t"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
707 "*Specify SPACEs before TAB regexp.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
708
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
709 If you're using `mule' package, there may be other characters besides:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
710
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
711 \" \" \"\\t\" \"\\xA0\" \"\\x8A0\" \"\\x920\" \"\\xE20\" \
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
712 \"\\xF20\"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
713
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
714 that should be considered blank.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
715
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
716 Used when `whitespace-style' includes the value `color',
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
717 and `whitespace-chars' includes `space-before-tab'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
718 :type '(regexp :tag "SPACEs Before TAB")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
719 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
720
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
721
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
722 (defcustom whitespace-indentation-regexp
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
723 "^\t*\\(\\( \\{8\\}\\)+\\)[^\n\t]"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
724 "*Specify regexp for 8 or more SPACEs at beginning of line.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
725
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
726 If you're using `mule' package, there may be other characters besides:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
727
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
728 \" \" \"\\t\" \"\\xA0\" \"\\x8A0\" \"\\x920\" \"\\xE20\" \
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
729 \"\\xF20\"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
730
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
731 that should be considered blank.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
732
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
733 Used when `whitespace-style' includes the value `color',
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
734 and `whitespace-chars' includes `indentation'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
735 :type '(regexp :tag "Indentation SPACEs")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
736 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
737
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
738
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
739 (defcustom whitespace-empty-at-bob-regexp "\\`\\(\\([ \t]*\n\\)+\\)"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
740 "*Specify regexp for empty lines at beginning of buffer.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
741
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
742 If you're using `mule' package, there may be other characters besides:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
743
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
744 \" \" \"\\t\" \"\\xA0\" \"\\x8A0\" \"\\x920\" \"\\xE20\" \
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
745 \"\\xF20\"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
746
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
747 that should be considered blank.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
748
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
749 Used when `whitespace-style' includes the value `color',
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
750 and `whitespace-chars' includes `empty'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
751 :type '(regexp :tag "Empty Lines At Beginning Of Buffer")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
752 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
753
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
754
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
755 (defcustom whitespace-empty-at-eob-regexp "^\\([ \t\n]+\\)\\'"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
756 "*Specify regexp for empty lines at end of buffer.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
757
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
758 If you're using `mule' package, there may be other characters besides:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
759
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
760 \" \" \"\\t\" \"\\xA0\" \"\\x8A0\" \"\\x920\" \"\\xE20\" \
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
761 \"\\xF20\"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
762
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
763 that should be considered blank.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
764
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
765 Used when `whitespace-style' includes the value `color',
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
766 and `whitespace-chars' includes `empty'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
767 :type '(regexp :tag "Empty Lines At End Of Buffer")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
768 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
769
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
770
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
771 (defcustom whitespace-space-after-tab-regexp "\t\\(\\( \\{8\\}\\)+\\)"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
772 "*Specify regexp for 8 or more SPACEs after TAB.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
773
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
774 If you're using `mule' package, there may be other characters besides:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
775
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
776 \" \" \"\\t\" \"\\xA0\" \"\\x8A0\" \"\\x920\" \"\\xE20\" \
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
777 \"\\xF20\"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
778
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
779 that should be considered blank.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
780
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
781 Used when `whitespace-style' includes the value `color',
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
782 and `whitespace-chars' includes `space-after-tab'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
783 :type '(regexp :tag "SPACEs After TAB")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
784 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
785
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
786
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
787 (defcustom whitespace-line-column 80
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
788 "*Specify column beyond which the line is highlighted.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
789
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
790 Used when `whitespace-style' includes the value `color',
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
791 and `whitespace-chars' includes `lines' or `lines-tail'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
792 :type '(integer :tag "Line Length")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
793 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
794
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
795
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
796 ;; Hacked from `visible-whitespace-mappings' in visws.el
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
797 (defcustom whitespace-display-mappings
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
798 '(
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
799 (?\ [?\xB7] [?.]) ; space - centered dot
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
800 (?\xA0 [?\xA4] [?_]) ; hard space - currency
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
801 (?\x8A0 [?\x8A4] [?_]) ; hard space - currency
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
802 (?\x920 [?\x924] [?_]) ; hard space - currency
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
803 (?\xE20 [?\xE24] [?_]) ; hard space - currency
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
804 (?\xF20 [?\xF24] [?_]) ; hard space - currency
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
805 ;; NEWLINE is displayed using the face `whitespace-newline'
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
806 (?\n [?\u21B5 ?\n] [?$ ?\n]) ; end-of-line - downwards arrow
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
807 ;; (?\n [?$ ?\n]) ; end-of-line - dollar sign
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
808 ;; (?\n [?\xB6 ?\n] [?$ ?\n]) ; end-of-line - pilcrow
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
809 ;; (?\n [?\x8AF ?\n] [?$ ?\n]) ; end-of-line - overscore
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
810 ;; (?\n [?\x8AC ?\n] [?$ ?\n]) ; end-of-line - negation
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
811 ;; (?\n [?\x8B0 ?\n] [?$ ?\n]) ; end-of-line - grade
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
812 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
813 ;; WARNING: the mapping below has a problem.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
814 ;; When a TAB occupies exactly one column, it will display the
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
815 ;; character ?\xBB at that column followed by a TAB which goes to
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
816 ;; the next TAB column.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
817 ;; If this is a problem for you, please, comment the line below.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
818 (?\t [?\xBB ?\t] [?\\ ?\t]) ; tab - left quote mark
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
819 )
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
820 "*Specify an alist of mappings for displaying characters.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
821
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
822 Each element has the following form:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
823
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
824 (CHAR VECTOR...)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
825
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
826 Where:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
827
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
828 CHAR is the character to be mapped.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
829
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
830 VECTOR is a vector of characters to be displayed in place of CHAR.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
831 The first display vector that can be displayed is used;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
832 if no display vector for a mapping can be displayed, then
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
833 that character is displayed unmodified.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
834
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
835 The NEWLINE character is displayed using the face given by
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
836 `whitespace-newline' variable. The characters in the vector to
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
837 be displayed will not have this face applied if the character
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
838 code is above #x1FFFF.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
839
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
840 Used when `whitespace-style' includes the value `mark'."
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
841 :type '(repeat
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
842 (list :tag "Character Mapping"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
843 (character :tag "Char")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
844 (repeat :inline t :tag "Vector List"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
845 (vector :tag ""
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
846 (repeat :inline t
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
847 :tag "Vector Characters"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
848 (character :tag "Char"))))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
849 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
850
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
851
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
852 (defcustom whitespace-global-modes t
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
853 "*Modes for which global `whitespace-mode' is automagically turned on.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
854
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
855 Global `whitespace-mode' is controlled by the command
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
856 `global-whitespace-mode'.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
857
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
858 If nil, means no modes have `whitespace-mode' automatically
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
859 turned on.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
860
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
861 If t, all modes that support `whitespace-mode' have it
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
862 automatically turned on.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
863
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
864 Else it should be a list of `major-mode' symbol names for which
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
865 `whitespace-mode' should be automatically turned on. The sense
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
866 of the list is negated if it begins with `not'. For example:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
867
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
868 (c-mode c++-mode)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
869
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
870 means that `whitespace-mode' is turned on for buffers in C and
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
871 C++ modes only."
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
872 :type '(choice :tag "Global Modes"
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
873 (const :tag "None" nil)
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
874 (const :tag "All" t)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
875 (set :menu-tag "Mode Specific" :tag "Modes"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
876 :value (not)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
877 (const :tag "Except" not)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
878 (repeat :inline t
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
879 (symbol :tag "Mode"))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
880 :group 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
881
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
882
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
883 (defcustom whitespace-action nil
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
884 "*Specify which action is taken when a buffer is visited, killed or written.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
885
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
886 It's a list containing some or all of the following values:
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
887
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
888 nil no action is taken.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
889
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
890 cleanup cleanup any bogus whitespace always when local
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
891 whitespace is turned on.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
892 See `whitespace-cleanup' and
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
893 `whitespace-cleanup-region'.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
894
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
895 report-on-bogus report if there is any bogus whitespace always
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
896 when local whitespace is turned on.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
897
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
898 auto-cleanup cleanup any bogus whitespace when buffer is
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
899 written or killed.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
900 See `whitespace-cleanup' and
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
901 `whitespace-cleanup-region'.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
902
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
903 abort-on-bogus abort if there is any bogus whitespace and the
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
904 buffer is written or killed.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
905
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
906 Any other value is treated as nil."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
907 :type '(choice :tag "Actions"
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
908 (const :tag "None" nil)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
909 (repeat :tag "Action List"
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
910 (choice :tag "Action"
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
911 (const :tag "Cleanup When On" cleanup)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
912 (const :tag "Report On Bogus" report-on-bogus)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
913 (const :tag "Auto Cleanup" auto-cleanup)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
914 (const :tag "Abort On Bogus" abort-on-bogus))))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
915 :group 'whitespace)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
916
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
917
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
918 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
919 ;;;; User commands - Local mode
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
920
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
921
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
922 ;;;###autoload
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
923 (define-minor-mode whitespace-mode
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
924 "Toggle whitespace minor mode visualization (\"ws\" on modeline).
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
925
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
926 If ARG is null, toggle whitespace visualization.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
927 If ARG is a number greater than zero, turn on visualization;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
928 otherwise, turn off visualization.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
929 Only useful with a windowing system."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
930 :lighter " ws"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
931 :init-value nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
932 :global nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
933 :group 'whitespace
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
934 (cond
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
935 (noninteractive ; running a batch job
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
936 (setq whitespace-mode nil))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
937 (whitespace-mode ; whitespace-mode on
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
938 (whitespace-turn-on)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
939 (whitespace-action-when-on))
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
940 (t ; whitespace-mode off
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
941 (whitespace-turn-off))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
942
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
943
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
944 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
945 ;;;; User commands - Global mode
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
946
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
947
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
948 (define-minor-mode global-whitespace-mode
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
949 "Toggle whitespace global minor mode visualization (\"WS\" on modeline).
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
950
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
951 If ARG is null, toggle whitespace visualization.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
952 If ARG is a number greater than zero, turn on visualization;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
953 otherwise, turn off visualization.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
954 Only useful with a windowing system."
88113
c80332ad12c1 (global-whitespace-mode): Fix modeline lighter.
Juanma Barranquero <lekktu@gmail.com>
parents: 88100
diff changeset
955 :lighter " WS"
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
956 :init-value nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
957 :global t
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
958 :group 'whitespace
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
959 (cond
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
960 (noninteractive ; running a batch job
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
961 (setq global-whitespace-mode nil))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
962 (global-whitespace-mode ; global-whitespace-mode on
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
963 (save-excursion
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
964 (add-hook 'find-file-hook 'whitespace-turn-on-if-enabled)
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
965 (dolist (buffer (buffer-list)) ; adjust all local mode
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
966 (set-buffer buffer)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
967 (unless whitespace-mode
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
968 (whitespace-turn-on-if-enabled)))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
969 (t ; global-whitespace-mode off
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
970 (save-excursion
91377
510381911395 Use find-file-hook instead of find-file-hooks.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 88118
diff changeset
971 (remove-hook 'find-file-hook 'whitespace-turn-on-if-enabled)
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
972 (dolist (buffer (buffer-list)) ; adjust all local mode
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
973 (set-buffer buffer)
91471
13eacee3408e (global-whitespace-mode): Revert last change.
Juanma Barranquero <lekktu@gmail.com>
parents: 91432
diff changeset
974 (unless whitespace-mode
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
975 (whitespace-turn-off)))))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
976
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
977
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
978 (defun whitespace-turn-on-if-enabled ()
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
979 (when (cond
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
980 ((eq whitespace-global-modes t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
981 ((listp whitespace-global-modes)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
982 (if (eq (car-safe whitespace-global-modes) 'not)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
983 (not (memq major-mode (cdr whitespace-global-modes)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
984 (memq major-mode whitespace-global-modes)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
985 (t nil))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
986 (let (inhibit-quit)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
987 ;; Don't turn on whitespace mode if...
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
988 (or
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
989 ;; ...we don't have a display (we're running a batch job)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
990 noninteractive
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
991 ;; ...or if the buffer is invisible (name starts with a space)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
992 (eq (aref (buffer-name) 0) ?\ )
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
993 ;; ...or if the buffer is temporary (name starts with *)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
994 (and (eq (aref (buffer-name) 0) ?*)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
995 ;; except the scratch buffer.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
996 (not (string= (buffer-name) "*scratch*")))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
997 ;; Otherwise, turn on whitespace mode.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
998 (whitespace-turn-on)))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
999
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1000
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1001 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1002 ;;;; User commands - Toggle
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1003
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1004
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1005 (defconst whitespace-chars-value-list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1006 '(tabs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1007 spaces
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1008 trailing
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1009 space-before-tab
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1010 lines
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1011 lines-tail
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1012 newline
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1013 indentation
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1014 empty
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1015 space-after-tab
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1016 )
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1017 "List of valid `whitespace-chars' values.")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1018
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1019
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1020 (defconst whitespace-style-value-list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1021 '(color
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1022 mark
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1023 )
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1024 "List of valid `whitespace-style' values.")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1025
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1026
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1027 (defconst whitespace-toggle-option-alist
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1028 '((?t . tabs)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1029 (?s . spaces)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1030 (?r . trailing)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1031 (?b . space-before-tab)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1032 (?l . lines)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1033 (?L . lines-tail)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1034 (?n . newline)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1035 (?i . indentation)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1036 (?e . empty)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1037 (?a . space-after-tab)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1038 (?c . color)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1039 (?m . mark)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1040 (?x . whitespace-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1041 (?z . whitespace-style)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1042 )
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1043 "Alist of toggle options.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1044
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1045 Each element has the form:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1046
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1047 (CHAR . SYMBOL)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1048
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1049 Where:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1050
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1051 CHAR is a char which the user will have to type.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1052
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1053 SYMBOL is a valid symbol associated with CHAR.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1054 See `whitespace-chars-value-list' and
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1055 `whitespace-style-value-list'.")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1056
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1057
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1058 (defvar whitespace-active-chars nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1059 "Used to save locally `whitespace-chars' value.")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1060 (make-variable-buffer-local 'whitespace-active-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1061
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1062 (defvar whitespace-active-style nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1063 "Used to save locally `whitespace-style' value.")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1064 (make-variable-buffer-local 'whitespace-active-style)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1065
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1066
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1067 ;;;###autoload
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1068 (defun whitespace-toggle-options (arg)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1069 "Toggle local `whitespace-mode' options.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1070
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1071 If local whitespace-mode is off, toggle the option given by ARG
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1072 and turn on local whitespace-mode.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1073
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1074 If local whitespace-mode is on, toggle the option given by ARG
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1075 and restart local whitespace-mode.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1076
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1077 Interactively, it reads one of the following chars:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1078
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1079 CHAR MEANING
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1080 t toggle TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1081 s toggle SPACE and HARD SPACE visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1082 r toggle trailing blanks visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1083 b toggle SPACEs before TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1084 l toggle \"long lines\" visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1085 L toggle \"long lines\" tail visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1086 n toggle NEWLINE visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1087 i toggle indentation SPACEs visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1088 e toggle empty line at bob and/or eob visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1089 a toggle SPACEs after TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1090 c toggle color faces
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1091 m toggle visual mark
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1092 x restore `whitespace-chars' value
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1093 z restore `whitespace-style' value
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1094 ? display brief help
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1095
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1096 Non-interactively, ARG should be a symbol or a list of symbols.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1097 The valid symbols are:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1098
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1099 tabs toggle TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1100 spaces toggle SPACE and HARD SPACE visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1101 trailing toggle trailing blanks visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1102 space-before-tab toggle SPACEs before TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1103 lines toggle \"long lines\" visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1104 lines-tail toggle \"long lines\" tail visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1105 newline toggle NEWLINE visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1106 indentation toggle indentation SPACEs visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1107 empty toggle empty line at bob and/or eob visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1108 space-after-tab toggle SPACEs after TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1109 color toggle color faces
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1110 mark toggle visual mark
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1111 whitespace-chars restore `whitespace-chars' value
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1112 whitespace-style restore `whitespace-style' value
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1113
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1114 Only useful with a windowing system."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1115 (interactive (whitespace-interactive-char t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1116 (let ((whitespace-chars
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1117 (whitespace-toggle-list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1118 t arg whitespace-active-chars whitespace-chars
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1119 'whitespace-chars whitespace-chars-value-list))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1120 (whitespace-style
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1121 (whitespace-toggle-list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1122 t arg whitespace-active-style whitespace-style
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1123 'whitespace-style whitespace-style-value-list)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1124 (whitespace-mode 0)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1125 (whitespace-mode 1)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1126
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1127
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1128 (defvar whitespace-toggle-chars nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1129 "Used to toggle the global `whitespace-chars' value.")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1130 (defvar whitespace-toggle-style nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1131 "Used to toggle the global `whitespace-style' value.")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1132
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1133
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1134 ;;;###autoload
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1135 (defun global-whitespace-toggle-options (arg)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1136 "Toggle global `whitespace-mode' options.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1137
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1138 If global whitespace-mode is off, toggle the option given by ARG
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1139 and turn on global whitespace-mode.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1140
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1141 If global whitespace-mode is on, toggle the option given by ARG
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1142 and restart global whitespace-mode.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1143
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1144 Interactively, it accepts one of the following chars:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1145
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1146 CHAR MEANING
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1147 t toggle TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1148 s toggle SPACE and HARD SPACE visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1149 r toggle trailing blanks visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1150 b toggle SPACEs before TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1151 l toggle \"long lines\" visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1152 L toggle \"long lines\" tail visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1153 n toggle NEWLINE visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1154 i toggle indentation SPACEs visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1155 e toggle empty line at bob and/or eob visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1156 a toggle SPACEs after TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1157 c toggle color faces
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1158 m toggle visual mark
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1159 x restore `whitespace-chars' value
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1160 z restore `whitespace-style' value
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1161 ? display brief help
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1162
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1163 Non-interactively, ARG should be a symbol or a list of symbols.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1164 The valid symbols are:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1165
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1166 tabs toggle TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1167 spaces toggle SPACE and HARD SPACE visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1168 trailing toggle trailing blanks visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1169 space-before-tab toggle SPACEs before TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1170 lines toggle \"long lines\" visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1171 lines-tail toggle \"long lines\" tail visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1172 newline toggle NEWLINE visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1173 indentation toggle indentation SPACEs visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1174 empty toggle empty line at bob and/or eob visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1175 space-after-tab toggle SPACEs after TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1176 color toggle color faces
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1177 mark toggle visual mark
91377
510381911395 Use find-file-hook instead of find-file-hooks.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 88118
diff changeset
1178 whitespace-chars restore `whitespace-chars' value
510381911395 Use find-file-hook instead of find-file-hooks.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 88118
diff changeset
1179 whitespace-style restore `whitespace-style' value
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1180
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1181 Only useful with a windowing system."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1182 (interactive (whitespace-interactive-char nil))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1183 (let ((whitespace-chars
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1184 (whitespace-toggle-list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1185 nil arg whitespace-toggle-chars whitespace-chars
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1186 'whitespace-chars whitespace-chars-value-list))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1187 (whitespace-style
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1188 (whitespace-toggle-list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1189 nil arg whitespace-toggle-style whitespace-style
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1190 'whitespace-style whitespace-style-value-list)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1191 (setq whitespace-toggle-chars whitespace-chars
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1192 whitespace-toggle-style whitespace-style)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1193 (global-whitespace-mode 0)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1194 (global-whitespace-mode 1)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1195
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1196
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1197 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1198 ;;;; User commands - Cleanup
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1199
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1200
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1201 ;;;###autoload
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1202 (defun whitespace-cleanup ()
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1203 "Cleanup some blank problems in all buffer or at region.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1204
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1205 It usually applies to the whole buffer, but in transient mark
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1206 mode when the mark is active, it applies to the region. It also
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1207 applies to the region when it is not in transiente mark mode, the
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1208 mark is active and \\[universal-argument] was pressed just before calling
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1209 `whitespace-cleanup' interactively.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1210
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1211 See also `whitespace-cleanup-region'.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1212
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1213 The problems cleaned up are:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1214
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1215 1. empty lines at beginning of buffer.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1216 2. empty lines at end of buffer.
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1217 If `whitespace-chars' includes the value `empty', remove all
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1218 empty lines at beginning and/or end of buffer.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1219
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1220 3. 8 or more SPACEs at beginning of line.
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1221 If `whitespace-chars' includes the value `indentation', replace
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1222 8 or more SPACEs at beginning of line by TABs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1223
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1224 4. SPACEs before TAB.
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1225 If `whitespace-chars' includes the value `space-before-tab',
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1226 replace SPACEs by TABs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1227
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1228 5. SPACEs or TABs at end of line.
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1229 If `whitespace-chars' includes the value `trailing', remove all
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1230 SPACEs or TABs at end of line.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1231
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1232 6. 8 or more SPACEs after TAB.
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1233 If `whitespace-chars' includes the value `space-after-tab',
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1234 replace SPACEs by TABs."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1235 (interactive "@*")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1236 (if (and (or transient-mark-mode
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1237 current-prefix-arg)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1238 mark-active)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1239 ;; region active
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1240 ;; problems 1 and 2 are not handled in region
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1241 ;; problem 3: 8 or more SPACEs at bol
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1242 ;; problem 4: SPACEs before TAB
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1243 ;; problem 5: SPACEs or TABs at eol
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1244 ;; problem 6: 8 or more SPACEs after TAB
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1245 (whitespace-cleanup-region (region-beginning) (region-end))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1246 ;; whole buffer
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1247 (save-excursion
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1248 (save-match-data
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1249 ;; problem 1: empty lines at bob
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1250 ;; problem 2: empty lines at eob
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1251 ;; action: remove all empty lines at bob and/or eob
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1252 (when (memq 'empty whitespace-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1253 (let (overwrite-mode) ; enforce no overwrite
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1254 (goto-char (point-min))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1255 (when (re-search-forward
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1256 whitespace-empty-at-bob-regexp nil t)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1257 (delete-region (match-beginning 1) (match-end 1)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1258 (when (re-search-forward
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1259 whitespace-empty-at-eob-regexp nil t)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1260 (delete-region (match-beginning 1) (match-end 1)))))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1261 ;; problem 3: 8 or more SPACEs at bol
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1262 ;; problem 4: SPACEs before TAB
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1263 ;; problem 5: SPACEs or TABs at eol
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1264 ;; problem 6: 8 or more SPACEs after TAB
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1265 (whitespace-cleanup-region (point-min) (point-max))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1266
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1267
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1268 ;;;###autoload
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1269 (defun whitespace-cleanup-region (start end)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1270 "Cleanup some blank problems at region.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1271
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1272 The problems cleaned up are:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1273
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1274 1. 8 or more SPACEs at beginning of line.
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1275 If `whitespace-chars' includes the value `indentation', replace
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1276 8 or more SPACEs at beginning of line by TABs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1277
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1278 2. SPACEs before TAB.
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1279 If `whitespace-chars' includes the value `space-before-tab',
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1280 replace SPACEs by TABs.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1281
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1282 3. SPACEs or TABs at end of line.
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1283 If `whitespace-chars' includes the value `trailing', remove all
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1284 SPACEs or TABs at end of line.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1285
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1286 4. 8 or more SPACEs after TAB.
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1287 If `whitespace-chars' includes the value `space-after-tab',
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1288 replace SPACEs by TABs."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1289 (interactive "@*r")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1290 (let ((rstart (min start end))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1291 (rend (copy-marker (max start end)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1292 (tab-width 8) ; assure TAB width
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1293 (indent-tabs-mode t) ; always insert TABs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1294 overwrite-mode ; enforce no overwrite
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1295 tmp)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1296 (save-excursion
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1297 (save-match-data
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1298 ;; problem 1: 8 or more SPACEs at bol
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1299 ;; action: replace 8 or more SPACEs at bol by TABs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1300 (when (memq 'indentation whitespace-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1301 (goto-char rstart)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1302 (while (re-search-forward
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1303 whitespace-indentation-regexp rend t)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1304 (setq tmp (current-indentation))
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1305 (goto-char (match-beginning 0))
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1306 (delete-horizontal-space)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1307 (unless (eolp)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1308 (indent-to tmp))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1309 ;; problem 3: SPACEs or TABs at eol
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1310 ;; action: remove all SPACEs or TABs at eol
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1311 (when (memq 'trailing whitespace-chars)
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1312 (let ((regexp (whitespace-trailing-regexp)))
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1313 (goto-char rstart)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1314 (while (re-search-forward regexp rend t)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1315 (delete-region (match-beginning 1) (match-end 1)))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1316 ;; problem 4: 8 or more SPACEs after TAB
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1317 ;; action: replace 8 or more SPACEs by TABs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1318 (when (memq 'space-after-tab whitespace-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1319 (whitespace-replace-spaces-by-tabs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1320 rstart rend whitespace-space-after-tab-regexp))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1321 ;; problem 2: SPACEs before TAB
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1322 ;; action: replace SPACEs before TAB by TABs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1323 (when (memq 'space-before-tab whitespace-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1324 (whitespace-replace-spaces-by-tabs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1325 rstart rend whitespace-space-before-tab-regexp))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1326 (set-marker rend nil))) ; point marker to nowhere
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1327
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1328
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1329 (defun whitespace-replace-spaces-by-tabs (rstart rend regexp)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1330 "Replace all SPACEs by TABs matched by REGEXP between RSTART and REND."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1331 (goto-char rstart)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1332 (while (re-search-forward regexp rend t)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1333 (goto-char (match-beginning 1))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1334 (let* ((scol (current-column))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1335 (ecol (save-excursion
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1336 (goto-char (match-end 1))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1337 (current-column))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1338 (delete-region (match-beginning 1) (match-end 1))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1339 (insert-char ?\t
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1340 (/ (- (- ecol (% ecol 8)) ; prev end col
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1341 (- scol (% scol 8))) ; prev start col
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1342 8)))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1343
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1344
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1345 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1346 ;;;; User command - report
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1347
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1348
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1349 (defun whitespace-trailing-regexp ()
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1350 "Make the `whitespace-trailing-regexp' regexp."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1351 (concat "\\(\\(" whitespace-trailing-regexp "\\)+\\)$"))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1352
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1353
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1354 (defconst whitespace-report-list
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1355 (list
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1356 (cons 'empty whitespace-empty-at-bob-regexp)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1357 (cons 'empty whitespace-empty-at-eob-regexp)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1358 (cons 'indentation whitespace-indentation-regexp)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1359 (cons 'space-before-tab whitespace-space-before-tab-regexp)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1360 (cons 'trailing (whitespace-trailing-regexp))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1361 (cons 'space-after-tab whitespace-space-after-tab-regexp)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1362 )
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1363 "List of whitespace bogus symbol and corresponding regexp.")
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1364
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1365
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1366 (defconst whitespace-report-text
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1367 "\
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1368 Whitespace Report
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1369
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1370 Current Setting Whitespace Problem
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1371
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1372 empty [] [] empty lines at beginning of buffer.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1373 empty [] [] empty lines at end of buffer.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1374 indentation [] [] 8 or more SPACEs at beginning of line.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1375 space-before-tab [] [] SPACEs before TAB.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1376 trailing [] [] SPACEs or TABs at end of line.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1377 space-after-tab [] [] 8 or more SPACEs after TAB.\n\n"
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1378 "Text for whitespace bogus report.")
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1379
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1380
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1381 (defconst whitespace-report-buffer-name "*Whitespace Report*"
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1382 "The buffer name for whitespace bogus report.")
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1383
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1384
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1385 ;;;###autoload
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1386 (defun whitespace-report (&optional force report-if-bogus)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1387 "Report some whitespace problems in buffer.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1388
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1389 Return nil if there is no whitespace problem; otherwise, return
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1390 non-nil.
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1391
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1392 If FORCE is non-nil or \\[universal-argument] was pressed just before calling
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1393 `whitespace-report' interactively, it forces `whitespace-chars' to
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1394 have:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1395
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1396 empty
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1397 indentation
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1398 space-before-tab
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1399 trailing
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1400 space-after-tab
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1401
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1402 If REPORT-IF-BOGUS is non-nil, it reports only when there are any
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1403 whitespace problems in buffer.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1404
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1405 Report if some of the following whitespace problems exist:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1406
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1407 empty 1. empty lines at beginning of buffer.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1408 empty 2. empty lines at end of buffer.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1409 indentation 3. 8 or more SPACEs at beginning of line.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1410 space-before-tab 4. SPACEs before TAB.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1411 trailing 5. SPACEs or TABs at end of line.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1412 space-after-tab 6. 8 or more SPACEs after TAB.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1413
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1414 See `whitespace-chars' and `whitespace-style' for documentation.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1415 See also `whitespace-cleanup' and `whitespace-cleanup-region' for
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1416 cleaning up these problems."
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1417 (interactive (list current-prefix-arg))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1418 (whitespace-report-region (point-min) (point-max)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1419 force report-if-bogus))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1420
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1421
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1422 ;;;###autoload
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1423 (defun whitespace-report-region (start end &optional force report-if-bogus)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1424 "Report some whitespace problems in a region.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1425
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1426 Return nil if there is no whitespace problem; otherwise, return
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1427 non-nil.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1428
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1429 If FORCE is non-nil or \\[universal-argument] was pressed just before calling
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1430 `whitespace-report-region' interactively, it forces `whitespace-chars'
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1431 to have:
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1432
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1433 empty
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1434 indentation
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1435 space-before-tab
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1436 trailing
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1437 space-after-tab
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1438
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1439 If REPORT-IF-BOGUS is non-nil, it reports only when there are any
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1440 whitespace problems in buffer.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1441
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1442 Report if some of the following whitespace problems exist:
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1443
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1444 empty 1. empty lines at beginning of buffer.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1445 empty 2. empty lines at end of buffer.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1446 indentation 3. 8 or more SPACEs at beginning of line.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1447 space-before-tab 4. SPACEs before TAB.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1448 trailing 5. SPACEs or TABs at end of line.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1449 space-after-tab 6. 8 or more SPACEs after TAB.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1450
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1451 See `whitespace-chars' and `whitespace-style' for documentation.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1452 See also `whitespace-cleanup' and `whitespace-cleanup-region' for
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1453 cleaning up these problems."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1454 (interactive "r")
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1455 (setq force (or current-prefix-arg force))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1456 (save-excursion
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1457 (save-match-data
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1458 (let* (has-bogus
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1459 (rstart (min start end))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1460 (rend (max start end))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1461 (bogus-list (mapcar
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1462 #'(lambda (option)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1463 (when force
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1464 (add-to-list 'whitespace-chars (car option)))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1465 (goto-char rstart)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1466 (and (re-search-forward (cdr option) rend t)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1467 (setq has-bogus t)))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1468 whitespace-report-list)))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1469 (when (if report-if-bogus has-bogus t)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1470 (with-current-buffer (get-buffer-create
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1471 whitespace-report-buffer-name)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1472 (erase-buffer)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1473 (insert whitespace-report-text)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1474 (goto-char (point-min))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1475 (forward-line 3)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1476 (dolist (option whitespace-report-list)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1477 (forward-line 1)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1478 (whitespace-mark-x 22 (memq (car option) whitespace-chars))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1479 (whitespace-mark-x 7 (car bogus-list))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1480 (setq bogus-list (cdr bogus-list)))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1481 (when has-bogus
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1482 (goto-char (point-max))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1483 (insert " Type `M-x whitespace-cleanup'"
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1484 " to cleanup the buffer.\n\n")
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1485 (insert " Type `M-x whitespace-cleanup-region'"
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1486 " to cleanup a region.\n\n"))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1487 (whitespace-display-window (current-buffer))))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1488 has-bogus))))
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1489
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1490
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1491 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1492 ;;;; Internal functions
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1493
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1494
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1495 (defvar whitespace-font-lock-mode nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1496 "Used to remember whether a buffer had font lock mode on or not.")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1497 (make-variable-buffer-local 'whitespace-font-lock-mode)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1498
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1499 (defvar whitespace-font-lock nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1500 "Used to remember whether a buffer initially had font lock on or not.")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1501 (make-variable-buffer-local 'whitespace-font-lock)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1502
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1503 (defvar whitespace-font-lock-keywords nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1504 "Used to save locally `font-lock-keywords' value.")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1505 (make-variable-buffer-local 'whitespace-font-lock-keywords)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1506
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1507
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1508 (defconst whitespace-help-text
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1509 "\
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1510 whitespace-mode toggle options:
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1511
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1512 [] t - toggle TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1513 [] s - toggle SPACE and HARD SPACE visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1514 [] r - toggle trailing blanks visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1515 [] b - toggle SPACEs before TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1516 [] l - toggle \"long lines\" visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1517 [] L - toggle \"long lines\" tail visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1518 [] n - toggle NEWLINE visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1519 [] i - toggle indentation SPACEs visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1520 [] e - toggle empty line at bob and/or eob visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1521 [] a - toggle SPACEs after TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1522
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1523 [] c - toggle color faces
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1524 [] m - toggle visual mark
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1525
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1526 x - restore `whitespace-chars' value
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1527 z - restore `whitespace-style' value
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1528
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1529 ? - display this text\n\n"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1530 "Text for whitespace toggle options.")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1531
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1532
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1533 (defconst whitespace-help-buffer-name "*Whitespace Toggle Options*"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1534 "The buffer name for whitespace toggle options.")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1535
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1536
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1537 (defun whitespace-mark-x (nchars condition)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1538 "Insert the mark ('X' or ' ') after NCHARS depending on CONDITION."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1539 (forward-char nchars)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1540 (insert (if condition "X" " ")))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1541
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1542
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1543 (defun whitespace-insert-option-mark (the-list the-value)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1544 "Insert the option mark ('X' or ' ') in toggle options buffer."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1545 (forward-line 1)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1546 (dolist (sym the-list)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1547 (forward-line 1)
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1548 (whitespace-mark-x 2 (memq sym the-value))))
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1549
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1550
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1551 (defun whitespace-help-on (chars style)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1552 "Display the whitespace toggle options."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1553 (unless (get-buffer whitespace-help-buffer-name)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1554 (delete-other-windows)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1555 (let ((buffer (get-buffer-create whitespace-help-buffer-name)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1556 (save-excursion
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1557 (set-buffer buffer)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1558 (erase-buffer)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1559 (insert whitespace-help-text)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1560 (goto-char (point-min))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1561 (whitespace-insert-option-mark
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1562 whitespace-chars-value-list chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1563 (whitespace-insert-option-mark
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1564 whitespace-style-value-list style)
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1565 (whitespace-display-window buffer)))))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1566
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1567
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1568 (defun whitespace-display-window (buffer)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1569 "Display BUFFER in a new window."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1570 (goto-char (point-min))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1571 (set-buffer-modified-p nil)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1572 (let ((size (- (window-height)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1573 (max window-min-height
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1574 (1+ (count-lines (point-min)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1575 (point-max)))))))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1576 (when (<= size 0)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1577 (kill-buffer buffer)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1578 (error "Frame height is too small; \
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1579 can't split window to display whitespace toggle options"))
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1580 (set-window-buffer (split-window nil size) buffer)))
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1581
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1582
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1583 (defun whitespace-help-off ()
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1584 "Remove the buffer and window of the whitespace toggle options."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1585 (let ((buffer (get-buffer whitespace-help-buffer-name)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1586 (when buffer
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1587 (delete-windows-on buffer)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1588 (kill-buffer buffer))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1589
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1590
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1591 (defun whitespace-interactive-char (local-p)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1592 "Interactive function to read a char and return a symbol.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1593
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1594 If LOCAL-P is non-nil, it uses a local context; otherwise, it
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1595 uses a global context.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1596
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1597 It accepts one of the following chars:
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1598
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1599 CHAR MEANING
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1600 t toggle TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1601 s toggle SPACE and HARD SPACE visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1602 r toggle trailing blanks visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1603 b toggle SPACEs before TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1604 l toggle \"long lines\" visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1605 L toggle \"long lines\" tail visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1606 n toggle NEWLINE visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1607 i toggle indentation SPACEs visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1608 e toggle empty line at bob and/or eob visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1609 a toggle SPACEs after TAB visualization
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1610 c toggle color faces
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1611 m toggle visual mark
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1612 x restore `whitespace-chars' value
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1613 z restore `whitespace-style' value
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1614 ? display brief help
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1615
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1616 See also `whitespace-toggle-option-alist'."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1617 (let* ((is-off (not (if local-p
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1618 whitespace-mode
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1619 global-whitespace-mode)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1620 (chars (cond (is-off whitespace-chars) ; use default value
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1621 (local-p whitespace-active-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1622 (t whitespace-toggle-chars)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1623 (style (cond (is-off whitespace-style) ; use default value
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1624 (local-p whitespace-active-style)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1625 (t whitespace-toggle-style)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1626 (prompt
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1627 (format "Whitespace Toggle %s (type ? for further options)-"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1628 (if local-p "Local" "Global")))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1629 ch sym)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1630 ;; read a valid option and get the corresponding symbol
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1631 (save-window-excursion
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1632 (condition-case data
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1633 (progn
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1634 (while
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1635 ;; while condition
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1636 (progn
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1637 (setq ch (read-char prompt))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1638 (not
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1639 (setq sym
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1640 (cdr
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1641 (assq ch whitespace-toggle-option-alist)))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1642 ;; while body
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1643 (if (eq ch ?\?)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1644 (whitespace-help-on chars style)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1645 (ding)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1646 (whitespace-help-off)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1647 (message " ")) ; clean echo area
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1648 ;; handler
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1649 ((quit error)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1650 (whitespace-help-off)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1651 (error (error-message-string data)))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1652 (list sym))) ; return the apropriate symbol
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1653
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1654
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1655 (defun whitespace-toggle-list (local-p arg the-list default-list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1656 sym-restore sym-list)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1657 "Toggle options in THE-LIST based on list ARG.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1658
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1659 If LOCAL-P is non-nil, it uses a local context; otherwise, it
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1660 uses a global context.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1661
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1662 ARG is a list of options to be toggled.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1663
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1664 THE-LIST is a list of options. This list will be toggled and the
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1665 resultant list will be returned.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1666
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1667 DEFAULT-LIST is the default list of options. It is used to
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1668 restore the options in THE-LIST.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1669
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1670 SYM-RESTORE is the symbol which indicates to restore the options
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1671 in THE-LIST.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1672
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1673 SYM-LIST is a list of valid options, used to check if the ARG's
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1674 options are valid."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1675 (unless (if local-p whitespace-mode global-whitespace-mode)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1676 (setq the-list default-list))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1677 (setq the-list (copy-sequence the-list)) ; keep original list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1678 (dolist (sym (if (listp arg) arg (list arg)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1679 (cond
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1680 ;; restore default values
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1681 ((eq sym sym-restore)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1682 (setq the-list default-list))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1683 ;; toggle valid values
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1684 ((memq sym sym-list)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1685 (setq the-list (if (memq sym the-list)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1686 (delq sym the-list)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1687 (cons sym the-list))))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1688 the-list)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1689
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1690
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1691 (defun whitespace-turn-on ()
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1692 "Turn on whitespace visualization."
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1693 (whitespace-add-local-hook)
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1694 (setq whitespace-active-style (if (listp whitespace-style)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1695 whitespace-style
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1696 (list whitespace-style)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1697 (setq whitespace-active-chars (if (listp whitespace-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1698 whitespace-chars
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1699 (list whitespace-chars)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1700 (when (memq 'color whitespace-active-style)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1701 (whitespace-color-on))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1702 (when (memq 'mark whitespace-active-style)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1703 (whitespace-display-char-on)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1704
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1705
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1706 (defun whitespace-turn-off ()
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1707 "Turn off whitespace visualization."
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1708 (whitespace-remove-local-hook)
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1709 (when (memq 'color whitespace-active-style)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1710 (whitespace-color-off))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1711 (when (memq 'mark whitespace-active-style)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1712 (whitespace-display-char-off)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1713
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1714
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1715 (defun whitespace-color-on ()
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1716 "Turn on color visualization."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1717 (when whitespace-active-chars
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1718 (unless whitespace-font-lock
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1719 (setq whitespace-font-lock t
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1720 whitespace-font-lock-keywords
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1721 (copy-sequence font-lock-keywords)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1722 ;; turn off font lock
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1723 (setq whitespace-font-lock-mode font-lock-mode)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1724 (font-lock-mode 0)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1725 ;; add whitespace-mode color into font lock
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1726 (when (memq 'spaces whitespace-active-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1727 (font-lock-add-keywords
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1728 nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1729 (list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1730 ;; Show SPACEs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1731 (list whitespace-space-regexp 1 whitespace-space t)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1732 ;; Show HARD SPACEs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1733 (list whitespace-hspace-regexp 1 whitespace-hspace t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1734 t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1735 (when (memq 'tabs whitespace-active-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1736 (font-lock-add-keywords
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1737 nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1738 (list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1739 ;; Show TABs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1740 (list whitespace-tab-regexp 1 whitespace-tab t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1741 t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1742 (when (memq 'trailing whitespace-active-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1743 (font-lock-add-keywords
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1744 nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1745 (list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1746 ;; Show trailing blanks
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1747 (list (whitespace-trailing-regexp) 1 whitespace-trailing t))
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1748 t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1749 (when (or (memq 'lines whitespace-active-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1750 (memq 'lines-tail whitespace-active-chars))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1751 (font-lock-add-keywords
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1752 nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1753 (list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1754 ;; Show "long" lines
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1755 (list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1756 (format
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1757 "^\\([^\t\n]\\{%s\\}\\|[^\t\n]\\{0,%s\\}\t\\)\\{%d\\}%s\\(.+\\)$"
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1758 tab-width (1- tab-width)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1759 (/ whitespace-line-column tab-width)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1760 (let ((rem (% whitespace-line-column tab-width)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1761 (if (zerop rem)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1762 ""
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1763 (format ".\\{%d\\}" rem))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1764 (if (memq 'lines whitespace-active-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1765 0 ; whole line
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1766 2) ; line tail
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1767 whitespace-line t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1768 t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1769 (when (memq 'space-before-tab whitespace-active-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1770 (font-lock-add-keywords
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1771 nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1772 (list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1773 ;; Show SPACEs before TAB
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1774 (list whitespace-space-before-tab-regexp
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1775 1 whitespace-space-before-tab t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1776 t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1777 (when (memq 'indentation whitespace-active-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1778 (font-lock-add-keywords
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1779 nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1780 (list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1781 ;; Show indentation SPACEs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1782 (list whitespace-indentation-regexp
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1783 1 whitespace-indentation t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1784 t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1785 (when (memq 'empty whitespace-active-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1786 (font-lock-add-keywords
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1787 nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1788 (list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1789 ;; Show empty lines at beginning of buffer
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1790 (list whitespace-empty-at-bob-regexp
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1791 1 whitespace-empty t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1792 t)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1793 (font-lock-add-keywords
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1794 nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1795 (list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1796 ;; Show empty lines at end of buffer
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1797 (list whitespace-empty-at-eob-regexp
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1798 1 whitespace-empty t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1799 t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1800 (when (memq 'space-after-tab whitespace-active-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1801 (font-lock-add-keywords
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1802 nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1803 (list
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1804 ;; Show SPACEs after TAB
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1805 (list whitespace-space-after-tab-regexp
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1806 1 whitespace-space-after-tab t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1807 t))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1808 ;; now turn on font lock and highlight blanks
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1809 (font-lock-mode 1)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1810
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1811
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1812 (defun whitespace-color-off ()
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1813 "Turn off color visualization."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1814 (when whitespace-active-chars
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1815 ;; turn off font lock
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1816 (font-lock-mode 0)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1817 (when whitespace-font-lock
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1818 (setq whitespace-font-lock nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1819 font-lock-keywords whitespace-font-lock-keywords))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1820 ;; restore original font lock state
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1821 (font-lock-mode whitespace-font-lock-mode)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1822
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1823
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1824 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1825 ;;;; Hacked from visws.el (Miles Bader <miles@gnu.org>)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1826
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1827
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1828 (defvar whitespace-display-table nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1829 "Used to save a local display table.")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1830 (make-variable-buffer-local 'whitespace-display-table)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1831
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1832 (defvar whitespace-display-table-was-local nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1833 "Used to remember whether a buffer initially had a local display table.")
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1834 (make-variable-buffer-local 'whitespace-display-table-was-local)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1835
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1836
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1837 (defsubst whitespace-char-valid-p (char)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1838 ;; This check should be improved!!!
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1839 (or (< char 256)
91432
649ddfa757be (whitespace-char-valid-p): Use characterp rather than char-valid-p.
Glenn Morris <rgm@gnu.org>
parents: 91377
diff changeset
1840 (characterp char)))
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1841
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1842
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1843 (defun whitespace-display-vector-p (vec)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1844 "Return true if every character in vector VEC can be displayed."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1845 (let ((i (length vec)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1846 (when (> i 0)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1847 (while (and (>= (setq i (1- i)) 0)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1848 (whitespace-char-valid-p (aref vec i))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1849 (< i 0))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1850
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1851
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1852 (defun whitespace-display-char-on ()
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1853 "Turn on character display mapping."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1854 (when whitespace-display-mappings
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1855 (let (vecs vec)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1856 ;; Remember whether a buffer has a local display table.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1857 (unless whitespace-display-table-was-local
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1858 (setq whitespace-display-table-was-local t
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1859 whitespace-display-table
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1860 (copy-sequence buffer-display-table)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1861 (unless buffer-display-table
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1862 (setq buffer-display-table (make-display-table)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1863 (dolist (entry whitespace-display-mappings)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1864 (setq vecs (cdr entry))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1865 ;; Get a displayable mapping.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1866 (while (and vecs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1867 (not (whitespace-display-vector-p (car vecs))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1868 (setq vecs (cdr vecs)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1869 ;; Display a valid mapping.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1870 (when vecs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1871 (setq vec (copy-sequence (car vecs)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1872 (cond
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1873 ;; Any char except newline
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1874 ((not (eq (car entry) ?\n))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1875 (aset buffer-display-table (car entry) vec))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1876 ;; Newline char - display it
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1877 ((memq 'newline whitespace-active-chars)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1878 ;; Only insert face bits on NEWLINE char mapping to avoid
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1879 ;; obstruction of other faces like TABs and (HARD) SPACEs
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1880 ;; faces, font-lock faces, etc.
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1881 (when (memq 'color whitespace-active-style)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1882 (dotimes (i (length vec))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1883 (or (eq (aref vec i) ?\n)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1884 (aset vec i
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1885 (make-glyph-code (aref vec i)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1886 whitespace-newline)))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1887 ;; Display mapping
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1888 (aset buffer-display-table (car entry) vec))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1889 ;; Newline char - don't display it
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1890 (t
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1891 ;; Do nothing
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1892 )))))))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1893
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1894
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1895 (defun whitespace-display-char-off ()
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1896 "Turn off character display mapping."
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1897 (and whitespace-display-mappings
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1898 whitespace-display-table-was-local
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1899 (setq whitespace-display-table-was-local nil
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1900 buffer-display-table whitespace-display-table)))
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1901
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1902
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1903 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1904 ;;;; Hook
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1905
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1906
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1907 (defun whitespace-action-when-on ()
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1908 "Action to be taken always when local whitespace is turned on."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1909 (cond ((memq 'cleanup whitespace-action)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1910 (whitespace-cleanup))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1911 ((memq 'report-on-bogus whitespace-action)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1912 (whitespace-report nil t))))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1913
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1914
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1915 (defun whitespace-add-local-hook ()
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1916 "Add some whitespace hooks locally."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1917 (add-hook 'write-file-functions 'whitespace-write-file-hook nil t)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1918 (add-hook 'kill-buffer-hook 'whitespace-kill-buffer-hook nil t))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1919
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1920
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1921 (defun whitespace-remove-local-hook ()
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1922 "Remove some whitespace hooks locally."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1923 (remove-hook 'write-file-functions 'whitespace-write-file-hook t)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1924 (remove-hook 'kill-buffer-hook 'whitespace-kill-buffer-hook t))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1925
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1926
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1927 (defun whitespace-write-file-hook ()
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1928 "Action to be taken when buffer is written.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1929 It should be added buffer-locally to `write-file-functions'."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1930 (when (whitespace-action)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1931 (error "Abort write due to whitespace problems in %s"
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1932 (buffer-name)))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1933 nil) ; continue hook processing
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1934
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1935
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1936 (defun whitespace-kill-buffer-hook ()
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1937 "Action to be taken when buffer is killed.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1938 It should be added buffer-locally to `kill-buffer-hook'."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1939 (whitespace-action)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1940 nil) ; continue hook processing
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1941
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1942
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1943 (defun whitespace-action ()
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1944 "Action to be taken when buffer is killed or written.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1945 Return t when the action should be aborted."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1946 (cond ((memq 'auto-cleanup whitespace-action)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1947 (whitespace-cleanup)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1948 nil)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1949 ((memq 'abort-on-bogus whitespace-action)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1950 (whitespace-report nil t))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1951 (t
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1952 nil)))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1953
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1954
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1955 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1956
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1957
88115
becc5f138486 (global-whitespace-mode): When turning off the global mode,
Juanma Barranquero <lekktu@gmail.com>
parents: 88113
diff changeset
1958 (defun whitespace-unload-function ()
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1959 "Unload the whitespace library."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1960 (global-whitespace-mode -1)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1961 ;; be sure all local whitespace mode is turned off
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1962 (save-current-buffer
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1963 (dolist (buf (buffer-list))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1964 (set-buffer buf)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1965 (whitespace-mode -1)))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1966 nil) ; continue standard unloading
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1967
88115
becc5f138486 (global-whitespace-mode): When turning off the global mode,
Juanma Barranquero <lekktu@gmail.com>
parents: 88113
diff changeset
1968
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1969 (provide 'whitespace)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1970
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1971
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1972 (run-hooks 'whitespace-load-hook)
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1973
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1974
88100
9623247b8103 Re-use arch-tag from old blank-mode.el for lisp/whitespace.el
Miles Bader <miles@gnu.org>
parents: 88099
diff changeset
1975 ;; arch-tag: 1b1e2500-dbd4-4a26-8f7a-5a5edfd3c97e
88097
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1976 ;;; whitespace.el ends here