annotate lisp/whitespace.el @ 101477:dab5b24b1603

Follow Glenn's lead and update format of Copyright.
author Bill Wohler <wohler@newt.com>
date Sun, 25 Jan 2009 18:32:01 +0000
parents a9dc0e7c3f2b
children 316b10a4c19e
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
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100171
diff changeset
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
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
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
98454
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
9 ;; Version: 11.2.2
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
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94440
diff changeset
14 ;; GNU Emacs is free software: you can redistribute it and/or modify
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94440
diff changeset
15 ;; it under the terms of the GNU General Public License as published by
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94440
diff changeset
16 ;; the Free Software Foundation, either version 3 of the License, or
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94440
diff changeset
17 ;; (at your option) any later version.
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
18
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94440
diff changeset
19 ;; GNU Emacs is distributed in the hope that it will be useful,
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94440
diff changeset
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94440
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94440
diff changeset
22 ;; GNU General Public License for more details.
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
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
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94440
diff changeset
25 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
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
26
1662791e8fd8 Rename blank-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 ;;; 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
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 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-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 ;; 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
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 ;;
1662791e8fd8 Rename blank-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 ;; 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
35 ;; 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
36 ;;
1662791e8fd8 Rename blank-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 ;; 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
38 ;; 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
39 ;;
1662791e8fd8 Rename blank-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 ;; * 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
41 ;; 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
42 ;;
1662791e8fd8 Rename blank-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 ;; * 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
44 ;; 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
45 ;; 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
46 ;;
94374
bb784189a8b3 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94373
diff changeset
47 ;; The `whitespace-style' variable selects which way blanks are
bb784189a8b3 Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94373
diff changeset
48 ;; visualized.
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
49 ;;
1662791e8fd8 Rename blank-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 ;; 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
51 ;; 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
52 ;; 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
53 ;; 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
54 ;; 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
55 ;; 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
56 ;; 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
57 ;; 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
58 ;;
1662791e8fd8 Rename blank-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 ;; 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
60 ;; 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
61 ;; (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
62 ;;
1662791e8fd8 Rename blank-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 ;; 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
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 ;; * 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
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 ;; * 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
68 ;; 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
69 ;; 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
70 ;; `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
71 ;; 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
72 ;;
1662791e8fd8 Rename blank-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 ;; 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
74 ;; 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
75 ;; 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
76 ;; 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
77 ;;
1662791e8fd8 Rename blank-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 ;; 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
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 ;; * 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
81 ;; 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
82 ;;
1662791e8fd8 Rename blank-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 ;; * 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
84 ;; 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
85 ;;
1662791e8fd8 Rename blank-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 ;; 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
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 ;; (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
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 ;; 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
91 ;; `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
92 ;; `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
93 ;;
1662791e8fd8 Rename blank-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 ;; (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
95 ;; "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
96 ;; (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
97 ;; "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
98 ;;
1662791e8fd8 Rename blank-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 ;; 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
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.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
102 ;; 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
103 ;; (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
104 ;; 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
105 ;; `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
106 ;; `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
107 ;;
1662791e8fd8 Rename blank-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 ;; 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
109 ;; 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
110 ;; (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
111 ;;
1662791e8fd8 Rename blank-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 ;; 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
113 ;; 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
114 ;; (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
115 ;;
1662791e8fd8 Rename blank-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 ;; 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
117 ;; 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
118 ;; (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
119 ;; 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
120 ;;
1662791e8fd8 Rename blank-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 ;;
1662791e8fd8 Rename blank-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 ;; 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
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 ;;
1662791e8fd8 Rename blank-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 ;; 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
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 ;; * 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
128 ;; + 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
129 ;;
1662791e8fd8 Rename blank-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 ;; 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
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 ;; + 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
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 ;; 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
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 ;; + 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
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 ;; 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
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 ;; + 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
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 ;; 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
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 ;; * 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
145 ;; + 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
146 ;;
1662791e8fd8 Rename blank-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 ;; 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
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 ;; + 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
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 ;; 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
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 ;; + 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
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 ;; 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
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 ;; + 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
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 ;; 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
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 ;; 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
162 ;;
96968
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
163 ;; `whitespace-newline-mode'
97311
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
164 ;; Toggle NEWLINE minor mode visualization ("nl" on modeline).
96968
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
165 ;;
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
166 ;; `global-whitespace-newline-mode'
97311
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
167 ;; Toggle NEWLINE global minor mode visualization ("NL" on modeline).
96968
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
168 ;;
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
169 ;; `whitespace-report'
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
170 ;; Report some blank problems in buffer.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
171 ;;
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
172 ;; `whitespace-report-region'
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
173 ;; Report some blank problems in a region.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
174 ;;
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
175 ;; `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
176 ;; 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
177 ;;
1662791e8fd8 Rename blank-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 ;; `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
179 ;; 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
180 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
181 ;; 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
182 ;;
1662791e8fd8 Rename blank-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 ;; 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
184 ;; 2. empty lines at end of buffer.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
185 ;; If `whitespace-style' includes the value `empty', remove all
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
186 ;; empty lines at beginning and/or end of 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
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 ;; 3. 8 or more SPACEs at beginning of line.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
189 ;; If `whitespace-style' includes the value `indentation':
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
190 ;; replace 8 or more SPACEs at beginning of line by TABs, if
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
191 ;; `indent-tabs-mode' is non-nil; otherwise, replace TABs by
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
192 ;; SPACEs.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
193 ;; If `whitespace-style' includes the value `indentation::tab',
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
194 ;; replace 8 or more SPACEs at beginning of line by TABs.
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
195 ;; If `whitespace-style' includes the value `indentation::space',
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
196 ;; replace TABs by 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
197 ;;
1662791e8fd8 Rename blank-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 ;; 4. SPACEs before TAB.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
199 ;; If `whitespace-style' includes the value `space-before-tab':
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
200 ;; replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
201 ;; otherwise, replace TABs by SPACEs.
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
202 ;; If `whitespace-style' includes the value
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
203 ;; `space-before-tab::tab', replace SPACEs by TABs.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
204 ;; If `whitespace-style' includes the value
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
205 ;; `space-before-tab::space', replace TABs by 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
206 ;;
1662791e8fd8 Rename blank-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 ;; 5. SPACEs or TABs at end of line.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
208 ;; If `whitespace-style' includes the value `trailing', remove all
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
209 ;; 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
210 ;;
1662791e8fd8 Rename blank-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 ;; 6. 8 or more SPACEs after TAB.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
212 ;; If `whitespace-style' includes the value `space-after-tab':
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
213 ;; replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
214 ;; otherwise, replace TABs by SPACEs.
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
215 ;; If `whitespace-style' includes the value `space-after-tab::tab',
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
216 ;; replace SPACEs by TABs.
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
217 ;; If `whitespace-style' includes the value
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
218 ;; `space-after-tab::space', replace TABs by 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
219 ;;
1662791e8fd8 Rename blank-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 ;;
1662791e8fd8 Rename blank-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 ;; 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
222 ;; -----
1662791e8fd8 Rename blank-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 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
225 ;;
1662791e8fd8 Rename blank-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 ;; `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
227 ;; 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
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 ;; `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
230 ;; 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
231 ;;
1662791e8fd8 Rename blank-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 ;; `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
233 ;; 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
234 ;;
1662791e8fd8 Rename blank-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 ;; 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
237 ;; -------
1662791e8fd8 Rename blank-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 ;; 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
240 ;; 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
241 ;;
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
242 ;; `whitespace-style' Specify which kind of blank is
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
243 ;; visualized.
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
244 ;;
1662791e8fd8 Rename blank-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 ;; `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
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-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
248 ;;
1662791e8fd8 Rename blank-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 ;; `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
250 ;;
1662791e8fd8 Rename blank-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 ;; `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
252 ;; 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
253 ;;
1662791e8fd8 Rename blank-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 ;; `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
255 ;; 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
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-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
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-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
260 ;; 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
261 ;;
1662791e8fd8 Rename blank-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 ;; `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
263 ;; 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
264 ;;
1662791e8fd8 Rename blank-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 ;; `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
266 ;; 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
267 ;;
1662791e8fd8 Rename blank-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 ;; `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
269 ;; 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
270 ;;
1662791e8fd8 Rename blank-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 ;; `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
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-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
274 ;;
1662791e8fd8 Rename blank-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 ;; `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
276 ;;
1662791e8fd8 Rename blank-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 ;; `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
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-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
280 ;; 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
281 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
282 ;; `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
283 ;; 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
284 ;;
1662791e8fd8 Rename blank-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 ;; `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
286 ;; 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
287 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
288 ;; `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
289 ;; 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
290 ;;
1662791e8fd8 Rename blank-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 ;; `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
292 ;; 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
293 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
294 ;; `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
295 ;; 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
296 ;;
1662791e8fd8 Rename blank-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 ;; `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
298 ;; 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
299 ;;
91377
510381911395 Use find-file-hook instead of find-file-hooks.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 88118
diff changeset
300 ;; `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
301 ;; `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
302 ;; 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
303 ;;
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
304 ;; `whitespace-action' Specify which action is taken when a
98454
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
305 ;; buffer is visited or written.
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
306 ;;
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
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 ;; 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
309 ;; ----------------
1662791e8fd8 Rename blank-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 ;;
97074
8b6a3348313d Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97073
diff changeset
311 ;; Thanks to David Reitter <david.reitter@gmail.com> for suggesting a
8b6a3348313d Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97073
diff changeset
312 ;; `whitespace-newline' initialization with low contrast relative to
8b6a3348313d Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97073
diff changeset
313 ;; the background color.
8b6a3348313d Doc fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97073
diff changeset
314 ;;
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
315 ;; Thanks to Stephen Deasey <sdeasey@gmail.com> for the
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
316 ;; `indent-tabs-mode' usage suggestion.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
317 ;;
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
318 ;; Thanks to Eric Cooper <ecc@cmu.edu> for the suggestion to have hook
98454
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
319 ;; actions when buffer is written as the original whitespace package
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
320 ;; had.
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
321 ;;
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
322 ;; 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
323 ;; 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
324 ;;
1662791e8fd8 Rename blank-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 ;; 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
326 ;; * `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
327 ;; * `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
328 ;;
1662791e8fd8 Rename blank-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 ;; 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
330 ;;
1662791e8fd8 Rename blank-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 ;; 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
332 ;; 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
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 ;; 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
335 ;; 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
336 ;;
1662791e8fd8 Rename blank-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 ;; 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
338 ;; 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
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 ;; 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
341 ;; "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
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 ;; Thanks to Yanghui Bian <yanghuibian@gmail.com> for indicating a new
97311
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
344 ;; NEWLINE character mapping.
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
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 ;; 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
347 ;; 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
348 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
349 ;; 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
350 ;; 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
351 ;;
1662791e8fd8 Rename blank-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 ;; 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
353 ;; 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
354 ;; 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
355 ;; 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
356 ;; 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
357 ;; 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
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 ;;
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 ;;; 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
363
1662791e8fd8 Rename blank-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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-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 ;;;; 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
367
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 ;;; 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
370
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (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
373 "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
374 :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
375 :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
376 :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
377 :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
378
1662791e8fd8 Rename blank-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
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
380 (defcustom whitespace-style
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
381 '(tabs spaces trailing lines space-before-tab newline
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
382 indentation empty space-after-tab
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
383 space-mark tab-mark newline-mark)
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
384 "Specify which kind of blank is visualized.
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
385
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
386 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
387
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
388 trailing trailing blanks are visualized via faces.
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
389
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
390 tabs TABs are visualized via faces.
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
391
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
392 spaces SPACEs and HARD SPACEs are visualized via
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
393 faces.
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
394
1662791e8fd8 Rename blank-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 lines lines whose have columns beyond
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
396 `whitespace-line-column' are highlighted via
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
397 faces .
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
398 Whole line is highlighted.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
399 It has precedence over `lines-tail' (see
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
400 below).
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
401
1662791e8fd8 Rename blank-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 lines-tail lines whose have columns beyond
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
403 `whitespace-line-column' are highlighted via
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
404 faces.
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
405 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
406 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
407 It has effect only if `lines' (see above)
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
408 is not present in `whitespace-style'.
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
409
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
410 newline NEWLINEs are visualized via faces.
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
411
1662791e8fd8 Rename blank-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 empty empty lines at beginning and/or end of buffer
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
413 are visualized via faces.
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
414
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
415 indentation::tab 8 or more SPACEs at beginning of line are
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
416 visualized via faces.
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
417
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
418 indentation::space TABs at beginning of line are visualized via
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
419 faces.
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
420
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
421 indentation 8 or more SPACEs at beginning of line are
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
422 visualized, if `indent-tabs-mode' (which see)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
423 is non-nil; otherwise, TABs at beginning of
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
424 line are visualized via faces.
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
425
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
426 space-after-tab::tab 8 or more SPACEs after a TAB are
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
427 visualized via faces.
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
428
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
429 space-after-tab::space TABs are visualized when occurs 8 or
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
430 more SPACEs after a TAB via faces.
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
431
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
432 space-after-tab 8 or more SPACEs after a TAB are
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
433 visualized, if `indent-tabs-mode'
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
434 (which see) is non-nil; otherwise,
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
435 the TABs are visualized via faces.
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
436
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
437 space-before-tab::tab SPACEs before TAB are visualized via
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
438 faces.
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
439
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
440 space-before-tab::space TABs are visualized when occurs SPACEs
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
441 before TAB via faces.
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
442
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
443 space-before-tab SPACEs before TAB are visualized, if
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
444 `indent-tabs-mode' (which see) is
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
445 non-nil; otherwise, the TABs are
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
446 visualized via faces.
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
447
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
448 space-mark SPACEs and HARD SPACEs are visualized via
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
449 display table.
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
450
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
451 tab-mark TABs are visualized via display table.
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
452
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
453 newline-mark NEWLINEs are visualized via display table.
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
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 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
456
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
457 If nil, don't visualize TABs, (HARD) SPACEs and NEWLINEs via faces and
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
458 via display table.
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
459
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
460 There is an evaluation order for some values, if some values are
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
461 included in `whitespace-style' list. For example, if
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
462 indentation, indentation::tab and/or indentation::space are
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
463 included in `whitespace-style' list. The evaluation order for
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
464 these values is:
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
465
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
466 * For indentation:
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
467 1. indentation
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
468 2. indentation::tab
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
469 3. indentation::space
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
470
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
471 * For SPACEs after TABs:
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
472 1. space-after-tab
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
473 2. space-after-tab::tab
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
474 3. space-after-tab::space
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
475
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
476 * For SPACEs before TABs:
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
477 1. space-before-tab
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
478 2. space-before-tab::tab
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
479 3. space-before-tab::space
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
480
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
481 So, for example, if indentation and indentation::space are
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
482 included in `whitespace-style' list, the indentation value is
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
483 evaluated instead of indentation::space value.
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
484
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
485 See also `whitespace-display-mappings' for documentation."
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
486 :type '(repeat :tag "Kind of Blank"
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
487 (choice :tag "Kind of Blank Face"
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
488 (const :tag "(Face) Trailing TABs, SPACEs and HARD 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
489 trailing)
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
490 (const :tag "(Face) SPACEs and HARD SPACEs"
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
491 spaces)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
492 (const :tag "(Face) TABs" tabs)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
493 (const :tag "(Face) Lines" lines)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
494 (const :tag "(Face) SPACEs 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
495 space-before-tab)
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
496 (const :tag "(Face) NEWLINEs" newline)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
497 (const :tag "(Face) Indentation SPACEs"
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
498 indentation)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
499 (const :tag "(Face) Empty Lines At BOB And/Or EOB"
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
500 empty)
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
501 (const :tag "(Face) SPACEs after TAB"
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
502 space-after-tab)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
503 (const :tag "(Mark) SPACEs and HARD SPACEs"
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
504 space-mark)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
505 (const :tag "(Mark) TABs" tab-mark)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
506 (const :tag "(Mark) NEWLINEs" newline-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
507 :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
508
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (defcustom whitespace-space 'whitespace-space
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
511 "Symbol face used to visualize SPACE.
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
512
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
513 Used when `whitespace-style' includes the value `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
514 :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
515 :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
516
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
518 (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
519 '((((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
520 (: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
521 (((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
522 (: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
523 (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
524 "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
525 :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
526
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (defcustom whitespace-hspace 'whitespace-hspace
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
529 "Symbol face used to visualize HARD SPACE.
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
530
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
531 Used when `whitespace-style' includes the value `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
532 :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
533 :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
534
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
535
1662791e8fd8 Rename blank-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 (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
537 '((((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
538 (: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
539 (((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
540 (: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
541 (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
542 "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
543 :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
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
1662791e8fd8 Rename blank-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 (defcustom whitespace-tab 'whitespace-tab
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
547 "Symbol face used to visualize 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
548
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
549 Used when `whitespace-style' includes the value `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
550 :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
551 :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
552
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (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
555 '((((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
556 (: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
557 (((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
558 (: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
559 (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
560 "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
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-newline 'whitespace-newline
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
565 "Symbol face used to visualize NEWLINE char mapping.
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
566
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
567 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
568
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
569 Used when `whitespace-style' includes the values `newline-mark'
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
570 and `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
571 :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
572 :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
573
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (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
576 '((((class color) (background dark))
97073
7159ef9ad909 whitespace-newline: change initilization to have a low contrast relative to the background color.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 96968
diff changeset
577 (:foreground "darkgray" :bold 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
578 (((class color) (background light))
97073
7159ef9ad909 whitespace-newline: change initilization to have a low contrast relative to the background color.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 96968
diff changeset
579 (:foreground "lightgray" :bold nil))
7159ef9ad909 whitespace-newline: change initilization to have a low contrast relative to the background color.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 96968
diff changeset
580 (t (:underline t :bold 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
581 "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
582
1662791e8fd8 Rename blank-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 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
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 (defcustom whitespace-trailing 'whitespace-trailing
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
588 "Symbol face used to visualize trailing blanks.
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
589
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
590 Used when `whitespace-style' includes the value `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
591 :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
592 :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
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
1662791e8fd8 Rename blank-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 (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
596 '((((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
597 (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
598 "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
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 (defcustom whitespace-line 'whitespace-line
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
603 "Symbol face used to visualize \"long\" lines.
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
604
1662791e8fd8 Rename blank-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 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
606
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
607 Used when `whitespace-style' includes the value `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
608 :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
609 :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
610
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (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
613 '((((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
614 (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
615 "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
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 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
618 :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
619
1662791e8fd8 Rename blank-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 (defcustom whitespace-space-before-tab 'whitespace-space-before-tab
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
622 "Symbol face used to visualize SPACEs 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
623
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
624 Used when `whitespace-style' 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
625 :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
626 :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
627
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (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
630 '((((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
631 (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
632 "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
633 :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
634
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (defcustom whitespace-indentation 'whitespace-indentation
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
637 "Symbol face used to visualize 8 or more SPACEs at beginning 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
638
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
639 Used when `whitespace-style' includes the value `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
640 :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
641 :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
642
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (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
645 '((((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
646 (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
647 "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
648 :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
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
1662791e8fd8 Rename blank-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 (defcustom whitespace-empty 'whitespace-empty
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
652 "Symbol face used to visualize empty lines at beginning and/or end of 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
653
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
654 Used when `whitespace-style' includes the value `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
655 :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
656 :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
657
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (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
660 '((((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
661 (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
662 "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
663 :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
664
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
665
1662791e8fd8 Rename blank-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 (defcustom whitespace-space-after-tab 'whitespace-space-after-tab
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
667 "Symbol face used to visualize 8 or more SPACEs 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
668
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
669 Used when `whitespace-style' 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
670 :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
671 :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
672
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (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
675 '((((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
676 (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
677 "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
678 :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
679
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
680
1662791e8fd8 Rename blank-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 (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
682 "\\(\\(\xA0\\|\x8A0\\|\x920\\|\xE20\\|\xF20\\)+\\)"
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
683 "Specify HARD SPACE characters 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
684
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
685 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
686
1662791e8fd8 Rename blank-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 \"\\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
688
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
689 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
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 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
692
1662791e8fd8 Rename blank-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 \"\\\\(^\\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
694 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
695 \"\\\\(\\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
696 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
697 \"\\\\(^\\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
698 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
699 \"\\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
700 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
701
1662791e8fd8 Rename blank-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 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
703 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
704
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
705 Used when `whitespace-style' 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
706 :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
707 :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
708
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
709
1662791e8fd8 Rename blank-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 (defcustom whitespace-space-regexp "\\( +\\)"
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
711 "Specify SPACE characters 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
712
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
713 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
714 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
715
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
716 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
717
1662791e8fd8 Rename blank-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 \"\\\\(^ +\\\\)\" 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
719 \"\\\\( +$\\\\)\" 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
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 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
722 \"\\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
723
1662791e8fd8 Rename blank-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 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
725 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
726
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
727 Used when `whitespace-style' 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
728 :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
729 :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
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
1662791e8fd8 Rename blank-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 (defcustom whitespace-tab-regexp "\\(\t+\\)"
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
733 "Specify TAB characters 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
734
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
735 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
736 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
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 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
739
1662791e8fd8 Rename blank-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 \"\\\\(^\\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
741 \"\\\\(\\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
742 \"\\\\(^\\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
743 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
744 \" \\\\(\\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
745
1662791e8fd8 Rename blank-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 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
747 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
748
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
749 Used when `whitespace-style' 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
750 :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
751 :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
752
1662791e8fd8 Rename blank-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 (defcustom whitespace-trailing-regexp
94400
049f194820fe whitespace-trailing-regexp option fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94374
diff changeset
755 "\\(\\(\t\\| \\|\xA0\\|\x8A0\\|\x920\\|\xE20\\|\xF20\\)+\\)$"
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
756 "Specify trailing characters 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
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
94440
e227f5ee58db whitespace-trailing-regexp docstring fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94431
diff changeset
765 NOTE: Enclose always by \"\\\\(\" and \"\\\\)$\" the elements to highlight.
94400
049f194820fe whitespace-trailing-regexp option fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94374
diff changeset
766 Use exactly one pair of enclosing elements above.
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
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
768 Used when `whitespace-style' 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
769 :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
770 :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
771
1662791e8fd8 Rename blank-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
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
773 (defcustom whitespace-space-before-tab-regexp "\\( +\\)\\(\t+\\)"
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
774 "Specify SPACEs before TAB 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
775
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
776 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
777
1662791e8fd8 Rename blank-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 \" \" \"\\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
779 \"\\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
780
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
781 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
782
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
783 Used when `whitespace-style' includes `space-before-tab',
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
784 `space-before-tab::tab' or `space-before-tab::space'."
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
785 :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
786 :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
787
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (defcustom whitespace-indentation-regexp
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
790 '("^\t*\\(\\( \\{%d\\}\\)+\\)[^\n\t]"
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
791 . "^ *\\(\t+\\)[^\n]")
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
792 "Specify regexp for 8 or more SPACEs at beginning 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
793
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
794 It is a cons where the cons car is used for SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
795 and the cons cdr is used for TABs visualization.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
796
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
797 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
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 \" \" \"\\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
800 \"\\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
801
1662791e8fd8 Rename blank-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 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
803
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
804 Used when `whitespace-style' includes `indentation',
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
805 `indentation::tab' or `indentation::space'."
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
806 :type '(cons (regexp :tag "Indentation SPACEs")
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
807 (regexp :tag "Indentation 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
808 :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
809
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (defcustom whitespace-empty-at-bob-regexp "\\`\\(\\([ \t]*\n\\)+\\)"
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
812 "Specify regexp for empty lines at beginning of 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
813
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
814 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
815
1662791e8fd8 Rename blank-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 \" \" \"\\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
817 \"\\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
818
1662791e8fd8 Rename blank-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 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
820
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
821 Used when `whitespace-style' 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
822 :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
823 :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
824
1662791e8fd8 Rename blank-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 (defcustom whitespace-empty-at-eob-regexp "^\\([ \t\n]+\\)\\'"
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
827 "Specify regexp for empty lines at end of 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
828
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
829 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
830
1662791e8fd8 Rename blank-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 \" \" \"\\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
832 \"\\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
833
1662791e8fd8 Rename blank-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 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
835
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
836 Used when `whitespace-style' 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
837 :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
838 :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
839
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
840
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
841 (defcustom whitespace-space-after-tab-regexp
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
842 '("\t+\\(\\( \\{%d\\}\\)+\\)"
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
843 . "\\(\t+\\) +")
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
844 "Specify regexp for 8 or more SPACEs 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
845
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
846 It is a cons where the cons car is used for SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
847 and the cons cdr is used for TABs visualization.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
848
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
849 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
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 \" \" \"\\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
852 \"\\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
853
1662791e8fd8 Rename blank-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 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
855
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
856 Used when `whitespace-style' includes `space-after-tab',
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
857 `space-after-tab::tab' or `space-after-tab::space'."
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
858 :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
859 :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
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
1662791e8fd8 Rename blank-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 (defcustom whitespace-line-column 80
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
863 "Specify column beyond which the line is highlighted.
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
864
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
865 Used when `whitespace-style' 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
866 :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
867 :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
868
1662791e8fd8 Rename blank-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 ;; 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
871 (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
872 '(
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
873 (space-mark ?\ [?\xB7] [?.]) ; space - centered dot
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
874 (space-mark ?\xA0 [?\xA4] [?_]) ; hard space - currency
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
875 (space-mark ?\x8A0 [?\x8A4] [?_]) ; hard space - currency
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
876 (space-mark ?\x920 [?\x924] [?_]) ; hard space - currency
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
877 (space-mark ?\xE20 [?\xE24] [?_]) ; hard space - currency
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
878 (space-mark ?\xF20 [?\xF24] [?_]) ; hard space - currency
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
879 ;; NEWLINE is displayed using the face `whitespace-newline'
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
880 (newline-mark ?\n [?$ ?\n]) ; eol - dollar sign
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
881 ;; (newline-mark ?\n [?\u21B5 ?\n] [?$ ?\n]) ; eol - downwards arrow
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
882 ;; (newline-mark ?\n [?\xB6 ?\n] [?$ ?\n]) ; eol - pilcrow
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
883 ;; (newline-mark ?\n [?\x8AF ?\n] [?$ ?\n]) ; eol - overscore
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
884 ;; (newline-mark ?\n [?\x8AC ?\n] [?$ ?\n]) ; eol - negation
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
885 ;; (newline-mark ?\n [?\x8B0 ?\n] [?$ ?\n]) ; eol - grade
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
886 ;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
887 ;; 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
888 ;; 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
889 ;; 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
890 ;; 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
891 ;; If this is a problem for you, please, comment the line below.
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
892 (tab-mark ?\t [?\xBB ?\t] [?\\ ?\t]) ; tab - left quote 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
893 )
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
894 "Specify an alist of mappings for displaying 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
895
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
896 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
897
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
898 (KIND CHAR VECTOR...)
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
899
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
900 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
901
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
902 KIND is the kind of character.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
903 It can be one of the following symbols:
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
904
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
905 tab-mark for TAB character
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
906
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
907 space-mark for SPACE or HARD SPACE character
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
908
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
909 newline-mark for NEWLINE character
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
910
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
911 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
912
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
913 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
914 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
915 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
916 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
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 The NEWLINE character is displayed using the face given by
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
919 `whitespace-newline' variable.
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
920
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
921 Used when `whitespace-style' includes `tab-mark', `space-mark' or
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
922 `newline-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
923 :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
924 (list :tag "Character Mapping"
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
925 (choice :tag "Char Kind"
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
926 (const :tag "Tab" tab-mark)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
927 (const :tag "Space" space-mark)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
928 (const :tag "Newline" newline-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
929 (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
930 (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
931 (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
932 (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
933 :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
934 (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
935 :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
936
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
938 (defcustom whitespace-global-modes t
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
939 "Modes for which global `whitespace-mode' is automagically 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
940
1662791e8fd8 Rename blank-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 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
942 `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
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 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
945 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
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 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
948 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
949
1662791e8fd8 Rename blank-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 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
951 `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
952 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
953
1662791e8fd8 Rename blank-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 (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
955
1662791e8fd8 Rename blank-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 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
957 C++ modes only."
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
958 :type '(choice :tag "Global Modes"
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
959 (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
960 (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
961 (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
962 :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
963 (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
964 (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
965 (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
966 :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
967
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
968
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
969 (defcustom whitespace-action nil
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 98826
diff changeset
970 "Specify which action is taken when a buffer is visited or written.
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
971
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
972 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
973
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
974 nil no action is taken.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
975
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
976 cleanup cleanup any bogus whitespace always when local
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
977 whitespace is turned on.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
978 See `whitespace-cleanup' and
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
979 `whitespace-cleanup-region'.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
980
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
981 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
982 when local whitespace is turned on.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
983
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
984 auto-cleanup cleanup any bogus whitespace when buffer is
98454
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
985 written.
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
986 See `whitespace-cleanup' and
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
987 `whitespace-cleanup-region'.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
988
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
989 abort-on-bogus abort if there is any bogus whitespace and the
98454
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
990 buffer is written.
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
991
98454
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
992 warn-if-read-only give a warning if `cleanup' or `auto-cleanup'
98008
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
993 is included in `whitespace-action' and the
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
994 buffer is read-only.
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
995
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
996 Any other value is treated as nil."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
997 :type '(choice :tag "Actions"
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
998 (const :tag "None" nil)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
999 (repeat :tag "Action List"
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1000 (choice :tag "Action"
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1001 (const :tag "Cleanup When On" cleanup)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1002 (const :tag "Report On Bogus" report-on-bogus)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1003 (const :tag "Auto Cleanup" auto-cleanup)
98008
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1004 (const :tag "Abort On Bogus" abort-on-bogus)
98454
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
1005 (const :tag "Warn If Read-Only" warn-if-read-only))))
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1006 :group 'whitespace)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1007
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
1008
1662791e8fd8 Rename blank-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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-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 ;;;; 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
1011
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 ;;;###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
1014 (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
1015 "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
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 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
1018 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
1019 otherwise, turn off visualization.
97311
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1020 Only useful with a windowing system.
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1021
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1022 See also `whitespace-style', `whitespace-newline' and
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1023 `whitespace-display-mappings'."
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
1024 :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
1025 :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
1026 :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
1027 :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
1028 (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
1029 (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
1030 (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
1031 (whitespace-mode ; whitespace-mode on
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1032 (whitespace-turn-on)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1033 (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
1034 (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
1035 (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
1036
96968
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1037
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1038 ;;;###autoload
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1039 (define-minor-mode whitespace-newline-mode
97311
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1040 "Toggle NEWLINE minor mode visualization (\"nl\" on modeline).
96968
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1041
97311
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1042 If ARG is null, toggle NEWLINE visualization.
96968
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1043 If ARG is a number greater than zero, turn on visualization;
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1044 otherwise, turn off visualization.
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1045 Only useful with a windowing system.
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1046
97311
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1047 Use `whitespace-newline-mode' only for NEWLINE visualization
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1048 exclusively. For other visualizations, including NEWLINE
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1049 visualization together with (HARD) SPACEs and/or TABs, please,
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1050 use `whitespace-mode'.
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1051
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1052 See also `whitespace-newline' and `whitespace-display-mappings'."
96968
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1053 :lighter " nl"
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1054 :init-value nil
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1055 :global nil
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1056 :group 'whitespace
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1057 (let ((whitespace-style '(newline-mark newline)))
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1058 (whitespace-mode whitespace-newline-mode)
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1059 ;; sync states (running a batch job)
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1060 (setq whitespace-newline-mode whitespace-mode)))
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1061
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
1062
1662791e8fd8 Rename blank-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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-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 ;;;; 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
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
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1067 ;;;###autoload
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
1068 (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
1069 "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
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 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
1072 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
1073 otherwise, turn off visualization.
97311
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1074 Only useful with a windowing system.
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1075
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1076 See also `whitespace-style', `whitespace-newline' and
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1077 `whitespace-display-mappings'."
88113
c80332ad12c1 (global-whitespace-mode): Fix modeline lighter.
Juanma Barranquero <lekktu@gmail.com>
parents: 88100
diff changeset
1078 :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
1079 :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
1080 :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
1081 :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
1082 (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
1083 (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
1084 (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
1085 (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
1086 (save-excursion
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1087 (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
1088 (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
1089 (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
1090 (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
1091 (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
1092 (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
1093 (save-excursion
91377
510381911395 Use find-file-hook instead of find-file-hooks.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 88118
diff changeset
1094 (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
1095 (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
1096 (set-buffer buffer)
91471
13eacee3408e (global-whitespace-mode): Revert last change.
Juanma Barranquero <lekktu@gmail.com>
parents: 91432
diff changeset
1097 (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
1098 (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
1099
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (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
1102 (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
1103 ((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
1104 ((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
1105 (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
1106 (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
1107 (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
1108 (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
1109 (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
1110 ;; 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
1111 (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
1112 ;; ...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
1113 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
1114 ;; ...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
1115 (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
1116 ;; ...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
1117 (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
1118 ;; 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
1119 (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
1120 ;; 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
1121 (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
1122
96968
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1123
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1124 ;;;###autoload
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1125 (define-minor-mode global-whitespace-newline-mode
97311
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1126 "Toggle NEWLINE global minor mode visualization (\"NL\" on modeline).
96968
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1127
97311
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1128 If ARG is null, toggle NEWLINE visualization.
96968
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1129 If ARG is a number greater than zero, turn on visualization;
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1130 otherwise, turn off visualization.
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1131 Only useful with a windowing system.
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1132
97311
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1133 Use `global-whitespace-newline-mode' only for NEWLINE
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1134 visualization exclusively. For other visualizations, including
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1135 NEWLINE visualization together with (HARD) SPACEs and/or TABs,
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1136 please, use `global-whitespace-mode'.
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1137
2be7f5365285 Improve docstring.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97074
diff changeset
1138 See also `whitespace-newline' and `whitespace-display-mappings'."
96968
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1139 :lighter " NL"
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1140 :init-value nil
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1141 :global t
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1142 :group 'whitespace
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1143 (let ((whitespace-style '(newline-mark newline)))
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1144 (global-whitespace-mode global-whitespace-newline-mode)
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1145 ;; sync states (running a batch job)
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1146 (setq global-whitespace-newline-mode global-whitespace-mode)))
df4f1b00491d New newline minor mode visualization.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94678
diff changeset
1147
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
1148
1662791e8fd8 Rename blank-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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-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 ;;;; 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
1151
1662791e8fd8 Rename blank-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
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1153 (defconst whitespace-style-value-list
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
1154 '(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
1155 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
1156 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
1157 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
1158 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
1159 newline
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1160 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
1161 indentation
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1162 indentation::tab
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1163 indentation::space
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
1164 space-after-tab
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1165 space-after-tab::tab
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1166 space-after-tab::space
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1167 space-before-tab
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1168 space-before-tab::tab
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1169 space-before-tab::space
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1170 help-newline ; value used by `whitespace-insert-option-mark'
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1171 tab-mark
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1172 space-mark
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1173 newline-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
1174 )
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1175 "List of valid `whitespace-style' 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
1176
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1178 (defconst whitespace-toggle-option-alist
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1179 '((?t . tabs)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1180 (?s . spaces)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1181 (?r . trailing)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1182 (?l . lines)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1183 (?L . lines-tail)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1184 (?n . newline)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1185 (?e . empty)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1186 (?\C-i . indentation)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1187 (?I . indentation::tab)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1188 (?i . indentation::space)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1189 (?\C-a . space-after-tab)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1190 (?A . space-after-tab::tab)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1191 (?a . space-after-tab::space)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1192 (?\C-b . space-before-tab)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1193 (?B . space-before-tab::tab)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1194 (?b . space-before-tab::space)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1195 (?T . tab-mark)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1196 (?S . space-mark)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1197 (?N . newline-mark)
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1198 (?x . whitespace-style)
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
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 "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
1201
1662791e8fd8 Rename blank-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 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
1203
1662791e8fd8 Rename blank-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 (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
1205
1662791e8fd8 Rename blank-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 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
1207
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1208 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
1209
1662791e8fd8 Rename blank-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 SYMBOL is a valid symbol associated with CHAR.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1211 See `whitespace-style-value-list'.")
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
1212
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1213
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1214 (defvar whitespace-active-style nil
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1215 "Used to save locally `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
1216
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1217 (defvar whitespace-indent-tabs-mode indent-tabs-mode
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1218 "Used to save locally `indent-tabs-mode' value.")
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1219
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1220 (defvar whitespace-tab-width tab-width
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1221 "Used to save locally `tab-width' 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
1222
1662791e8fd8 Rename blank-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 ;;;###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
1225 (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
1226 "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
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 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
1229 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
1230
1662791e8fd8 Rename blank-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 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
1232 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
1233
1662791e8fd8 Rename blank-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 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
1235
1662791e8fd8 Rename blank-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 CHAR MEANING
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1237 (VIA FACES)
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
1238 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
1239 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
1240 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
1241 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
1242 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
1243 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
1244 e toggle empty line at bob and/or eob visualization
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1245 C-i toggle indentation SPACEs visualization (via `indent-tabs-mode')
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1246 I toggle indentation SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1247 i toggle indentation TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1248 C-a toggle SPACEs after TAB visualization (via `indent-tabs-mode')
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1249 A toggle SPACEs after TAB: SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1250 a toggle SPACEs after TAB: TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1251 C-b toggle SPACEs before TAB visualization (via `indent-tabs-mode')
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1252 B toggle SPACEs before TAB: SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1253 b toggle SPACEs before TAB: TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1254
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1255 (VIA DISPLAY TABLE)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1256 T toggle TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1257 S toggle SPACEs before TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1258 N toggle NEWLINE visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1259
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1260 x 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
1261 ? 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
1262
1662791e8fd8 Rename blank-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 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
1264 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
1265
1662791e8fd8 Rename blank-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 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
1267 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
1268 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
1269 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
1270 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
1271 newline toggle NEWLINE visualization
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1272 empty toggle empty line at bob and/or eob visualization
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 indentation toggle indentation SPACEs visualization
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1274 indentation::tab toggle indentation SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1275 indentation::space toggle indentation TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1276 space-after-tab toggle SPACEs after TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1277 space-after-tab::tab toggle SPACEs after TAB: SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1278 space-after-tab::space toggle SPACEs after TAB: TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1279 space-before-tab toggle SPACEs before TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1280 space-before-tab::tab toggle SPACEs before TAB: SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1281 space-before-tab::space toggle SPACEs before TAB: TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1282
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1283 tab-mark toggle TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1284 space-mark toggle SPACEs before TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1285 newline-mark toggle NEWLINE visualization
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
1286
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1287 whitespace-style restore `whitespace-style' value
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1288
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1289 Only useful with a windowing system.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1290
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1291 See `whitespace-style' and `indent-tabs-mode' for documentation."
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
1292 (interactive (whitespace-interactive-char t))
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1293 (let ((whitespace-style
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1294 (whitespace-toggle-list t arg whitespace-active-style)))
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
1295 (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
1296 (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
1297
1662791e8fd8 Rename blank-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
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1299 (defvar whitespace-toggle-style nil
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1300 "Used to toggle the global `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
1301
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 ;;;###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
1304 (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
1305 "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
1306
1662791e8fd8 Rename blank-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 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
1308 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
1309
1662791e8fd8 Rename blank-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 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
1311 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
1312
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1313 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
1314
1662791e8fd8 Rename blank-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 CHAR MEANING
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1316 (VIA FACES)
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
1317 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
1318 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
1319 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
1320 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
1321 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
1322 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
1323 e toggle empty line at bob and/or eob visualization
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1324 C-i toggle indentation SPACEs visualization (via `indent-tabs-mode')
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1325 I toggle indentation SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1326 i toggle indentation TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1327 C-a toggle SPACEs after TAB visualization (via `indent-tabs-mode')
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1328 A toggle SPACEs after TAB: SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1329 a toggle SPACEs after TAB: TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1330 C-b toggle SPACEs before TAB visualization (via `indent-tabs-mode')
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1331 B toggle SPACEs before TAB: SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1332 b toggle SPACEs before TAB: TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1333
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1334 (VIA DISPLAY TABLE)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1335 T toggle TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1336 S toggle SPACEs before TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1337 N toggle NEWLINE visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1338
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1339 x 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
1340 ? 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
1341
1662791e8fd8 Rename blank-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 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
1343 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
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 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
1346 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
1347 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
1348 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
1349 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
1350 newline toggle NEWLINE visualization
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1351 empty toggle empty line at bob and/or eob visualization
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
1352 indentation toggle indentation SPACEs visualization
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1353 indentation::tab toggle indentation SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1354 indentation::space toggle indentation TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1355 space-after-tab toggle SPACEs after TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1356 space-after-tab::tab toggle SPACEs after TAB: SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1357 space-after-tab::space toggle SPACEs after TAB: TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1358 space-before-tab toggle SPACEs before TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1359 space-before-tab::tab toggle SPACEs before TAB: SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1360 space-before-tab::space toggle SPACEs before TAB: TABs visualization
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
1361
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1362 tab-mark toggle TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1363 space-mark toggle SPACEs before TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1364 newline-mark toggle NEWLINE visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1365
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1366 whitespace-style restore `whitespace-style' value
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1367
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1368 Only useful with a windowing system.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1369
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1370 See `whitespace-style' and `indent-tabs-mode' for documentation."
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
1371 (interactive (whitespace-interactive-char nil))
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1372 (let ((whitespace-style
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1373 (whitespace-toggle-list nil arg whitespace-toggle-style)))
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1374 (setq whitespace-toggle-style whitespace-style)
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
1375 (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
1376 (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
1377
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1378
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1379 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1380 ;;;; 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
1381
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1382
1662791e8fd8 Rename blank-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 ;;;###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
1384 (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
1385 "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
1386
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1387 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
1388 mode when the mark is active, it applies to the region. It also
98826
6bec458afb55 Fix typo.
Chong Yidong <cyd@stupidchicken.com>
parents: 98454
diff changeset
1389 applies to the region when it is not in transient mark mode, the
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1390 mark is active and \\[universal-argument] was pressed just before
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1391 calling `whitespace-cleanup' interactively.
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
1392
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1393 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
1394
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1395 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
1396
1662791e8fd8 Rename blank-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 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
1398 2. empty lines at end of buffer.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1399 If `whitespace-style' 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
1400 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
1401
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1402 3. 8 or more SPACEs at beginning of line.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1403 If `whitespace-style' includes the value `indentation':
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1404 replace 8 or more SPACEs at beginning of line by TABs, if
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1405 `indent-tabs-mode' is non-nil; otherwise, replace TABs by
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1406 SPACEs.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1407 If `whitespace-style' includes the value `indentation::tab',
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1408 replace 8 or more SPACEs at beginning of line by TABs.
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1409 If `whitespace-style' includes the value `indentation::space',
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1410 replace TABs by 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
1411
1662791e8fd8 Rename blank-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 4. SPACEs before TAB.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1413 If `whitespace-style' includes the value `space-before-tab':
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1414 replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1415 otherwise, replace TABs by SPACEs.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1416 If `whitespace-style' includes the value
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1417 `space-before-tab::tab', replace SPACEs by TABs.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1418 If `whitespace-style' includes the value
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1419 `space-before-tab::space', replace TABs by 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
1420
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1421 5. SPACEs or TABs at end of line.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1422 If `whitespace-style' includes the value `trailing', remove
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1423 all 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
1424
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1425 6. 8 or more SPACEs after TAB.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1426 If `whitespace-style' includes the value `space-after-tab':
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1427 replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1428 otherwise, replace TABs by SPACEs.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1429 If `whitespace-style' includes the value
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1430 `space-after-tab::tab', replace SPACEs by TABs.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1431 If `whitespace-style' includes the value
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1432 `space-after-tab::space', replace TABs by SPACEs.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1433
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1434 See `whitespace-style', `indent-tabs-mode' and `tab-width' for
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1435 documentation."
98008
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1436 (interactive "@")
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1437 (cond
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1438 ;; read-only buffer
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1439 (buffer-read-only
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1440 (whitespace-warn-read-only "cleanup"))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1441 ;; region active
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1442 ((and (or transient-mark-mode
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1443 current-prefix-arg)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1444 mark-active)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1445 ;; PROBLEMs 1 and 2 are not handled in region
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1446 ;; PROBLEM 3: 8 or more SPACEs at bol
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1447 ;; PROBLEM 4: SPACEs before TAB
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1448 ;; PROBLEM 5: SPACEs or TABs at eol
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1449 ;; PROBLEM 6: 8 or more SPACEs after TAB
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1450 (whitespace-cleanup-region (region-beginning) (region-end)))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1451 ;; whole buffer
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1452 (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
1453 (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
1454 (save-match-data
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1455 ;; PROBLEM 1: empty lines at bob
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1456 ;; PROBLEM 2: empty lines at eob
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1457 ;; ACTION: remove all empty lines at bob and/or eob
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1458 (when (memq 'empty whitespace-style)
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
1459 (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
1460 (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
1461 (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
1462 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
1463 (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
1464 (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
1465 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
1466 (delete-region (match-beginning 1) (match-end 1)))))))
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1467 ;; PROBLEM 3: 8 or more SPACEs at bol
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1468 ;; PROBLEM 4: SPACEs before TAB
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1469 ;; PROBLEM 5: SPACEs or TABs at eol
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1470 ;; PROBLEM 6: 8 or more SPACEs after TAB
98008
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1471 (whitespace-cleanup-region (point-min) (point-max)))))
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
1472
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1473
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1474 ;;;###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
1475 (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
1476 "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
1477
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1478 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
1479
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1480 1. 8 or more SPACEs at beginning of line.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1481 If `whitespace-style' includes the value `indentation':
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1482 replace 8 or more SPACEs at beginning of line by TABs, if
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1483 `indent-tabs-mode' is non-nil; otherwise, replace TABs by
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1484 SPACEs.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1485 If `whitespace-style' includes the value `indentation::tab',
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1486 replace 8 or more SPACEs at beginning of line by TABs.
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1487 If `whitespace-style' includes the value `indentation::space',
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1488 replace TABs by 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
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 2. SPACEs before TAB.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1491 If `whitespace-style' includes the value `space-before-tab':
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1492 replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1493 otherwise, replace TABs by SPACEs.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1494 If `whitespace-style' includes the value
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1495 `space-before-tab::tab', replace SPACEs by TABs.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1496 If `whitespace-style' includes the value
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1497 `space-before-tab::space', replace TABs by 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
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 3. SPACEs or TABs at end of line.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1500 If `whitespace-style' includes the value `trailing', remove
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1501 all 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
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 4. 8 or more SPACEs after TAB.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1504 If `whitespace-style' includes the value `space-after-tab':
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1505 replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1506 otherwise, replace TABs by SPACEs.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1507 If `whitespace-style' includes the value
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1508 `space-after-tab::tab', replace SPACEs by TABs.
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1509 If `whitespace-style' includes the value
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1510 `space-after-tab::space', replace TABs by SPACEs.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1511
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1512 See `whitespace-style', `indent-tabs-mode' and `tab-width' for
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1513 documentation."
98008
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1514 (interactive "@r")
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1515 (if buffer-read-only
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1516 ;; read-only buffer
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1517 (whitespace-warn-read-only "cleanup region")
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1518 ;; non-read-only buffer
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1519 (let ((rstart (min start end))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1520 (rend (copy-marker (max start end)))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1521 (indent-tabs-mode whitespace-indent-tabs-mode)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1522 (tab-width whitespace-tab-width)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1523 overwrite-mode ; enforce no overwrite
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1524 tmp)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1525 (save-excursion
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1526 (save-match-data
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1527 ;; PROBLEM 1: 8 or more SPACEs at bol
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1528 (cond
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1529 ;; ACTION: replace 8 or more SPACEs at bol by TABs, if
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1530 ;; `indent-tabs-mode' is non-nil; otherwise, replace TABs
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1531 ;; by SPACEs.
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1532 ((memq 'indentation whitespace-style)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1533 (let ((regexp (whitespace-indentation-regexp)))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1534 (goto-char rstart)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1535 (while (re-search-forward regexp rend t)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1536 (setq tmp (current-indentation))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1537 (goto-char (match-beginning 0))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1538 (delete-horizontal-space)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1539 (unless (eolp)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1540 (indent-to tmp)))))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1541 ;; ACTION: replace 8 or more SPACEs at bol by TABs.
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1542 ((memq 'indentation::tab whitespace-style)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1543 (whitespace-replace-action
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1544 'tabify rstart rend
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1545 (whitespace-indentation-regexp 'tab) 0))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1546 ;; ACTION: replace TABs by SPACEs.
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1547 ((memq 'indentation::space whitespace-style)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1548 (whitespace-replace-action
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1549 'untabify rstart rend
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1550 (whitespace-indentation-regexp 'space) 0)))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1551 ;; PROBLEM 3: SPACEs or TABs at eol
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1552 ;; ACTION: remove all SPACEs or TABs at eol
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1553 (when (memq 'trailing whitespace-style)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1554 (whitespace-replace-action
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1555 'delete-region rstart rend
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1556 whitespace-trailing-regexp 1))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1557 ;; PROBLEM 4: 8 or more SPACEs after TAB
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1558 (cond
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1559 ;; ACTION: replace 8 or more SPACEs by TABs, if
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1560 ;; `indent-tabs-mode' is non-nil; otherwise, replace TABs
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1561 ;; by SPACEs.
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1562 ((memq 'space-after-tab whitespace-style)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1563 (whitespace-replace-action
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1564 (if whitespace-indent-tabs-mode 'tabify 'untabify)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1565 rstart rend (whitespace-space-after-tab-regexp) 1))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1566 ;; ACTION: replace 8 or more SPACEs by TABs.
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1567 ((memq 'space-after-tab::tab whitespace-style)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1568 (whitespace-replace-action
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1569 'tabify rstart rend
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1570 (whitespace-space-after-tab-regexp 'tab) 1))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1571 ;; ACTION: replace TABs by SPACEs.
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1572 ((memq 'space-after-tab::space whitespace-style)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1573 (whitespace-replace-action
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1574 'untabify rstart rend
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1575 (whitespace-space-after-tab-regexp 'space) 1)))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1576 ;; PROBLEM 2: SPACEs before TAB
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1577 (cond
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1578 ;; ACTION: replace SPACEs before TAB by TABs, if
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1579 ;; `indent-tabs-mode' is non-nil; otherwise, replace TABs
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1580 ;; by SPACEs.
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1581 ((memq 'space-before-tab whitespace-style)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1582 (whitespace-replace-action
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1583 (if whitespace-indent-tabs-mode 'tabify 'untabify)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1584 rstart rend whitespace-space-before-tab-regexp
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1585 (if whitespace-indent-tabs-mode 1 2)))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1586 ;; ACTION: replace SPACEs before TAB by TABs.
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1587 ((memq 'space-before-tab::tab whitespace-style)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1588 (whitespace-replace-action
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1589 'tabify rstart rend
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1590 whitespace-space-before-tab-regexp 1))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1591 ;; ACTION: replace TABs by SPACEs.
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1592 ((memq 'space-before-tab::space whitespace-style)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1593 (whitespace-replace-action
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1594 'untabify rstart rend
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1595 whitespace-space-before-tab-regexp 2)))))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
1596 (set-marker rend nil)))) ; point marker to nowhere
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
1597
1662791e8fd8 Rename blank-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
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1599 (defun whitespace-replace-action (action rstart rend regexp index)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1600 "Do ACTION in the string matched by REGEXP between RSTART and REND.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1601
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1602 INDEX is the level group matched by REGEXP and used by ACTION.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1603
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1604 See also `tab-width'."
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
1605 (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
1606 (while (re-search-forward regexp rend t)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1607 (goto-char (match-end index))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1608 (funcall action (match-beginning index) (match-end index))))
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
1609
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1612 ;;;; User command - report
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1613
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1614
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1615 (defun whitespace-regexp (regexp &optional kind)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1616 "Return REGEXP depending on `whitespace-indent-tabs-mode'."
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1617 (cond
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1618 ((or (eq kind 'tab)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1619 whitespace-indent-tabs-mode)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1620 (format (car regexp) whitespace-tab-width))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1621 ((or (eq kind 'space)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1622 (not whitespace-indent-tabs-mode))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1623 (cdr regexp))))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1624
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1625
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1626 (defun whitespace-indentation-regexp (&optional kind)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1627 "Return the indentation regexp depending on `whitespace-indent-tabs-mode'."
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1628 (whitespace-regexp whitespace-indentation-regexp kind))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1629
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1630
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1631 (defun whitespace-space-after-tab-regexp (&optional kind)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1632 "Return the space-after-tab regexp depending on `whitespace-indent-tabs-mode'."
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1633 (whitespace-regexp whitespace-space-after-tab-regexp kind))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1634
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1635
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1636 (defconst whitespace-report-list
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1637 (list
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1638 (cons 'empty whitespace-empty-at-bob-regexp)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1639 (cons 'empty whitespace-empty-at-eob-regexp)
94400
049f194820fe whitespace-trailing-regexp option fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94374
diff changeset
1640 (cons 'trailing whitespace-trailing-regexp)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1641 (cons 'indentation nil)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1642 (cons 'indentation::tab nil)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1643 (cons 'indentation::space nil)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1644 (cons 'space-before-tab whitespace-space-before-tab-regexp)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1645 (cons 'space-before-tab::tab whitespace-space-before-tab-regexp)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1646 (cons 'space-before-tab::space whitespace-space-before-tab-regexp)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1647 (cons 'space-after-tab nil)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1648 (cons 'space-after-tab::tab nil)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1649 (cons 'space-after-tab::space nil)
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1650 )
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1651 "List of whitespace bogus symbol and corresponding regexp.")
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1652
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1653
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1654 (defconst whitespace-report-text
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1655 '( ;; `indent-tabs-mode' has non-nil value
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1656 "\
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1657 Whitespace Report
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1658
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1659 Current Setting Whitespace Problem
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1660
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1661 empty [] [] empty lines at beginning of buffer
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1662 empty [] [] empty lines at end of buffer
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1663 trailing [] [] SPACEs or TABs at end of line
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1664 indentation [] [] 8 or more SPACEs at beginning of line
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1665 indentation::tab [] [] 8 or more SPACEs at beginning of line
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1666 indentation::space [] [] TABs at beginning of line
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1667 space-before-tab [] [] SPACEs before TAB
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1668 space-before-tab::tab [] [] SPACEs before TAB: SPACEs
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1669 space-before-tab::space [] [] SPACEs before TAB: TABs
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1670 space-after-tab [] [] 8 or more SPACEs after TAB
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1671 space-after-tab::tab [] [] 8 or more SPACEs after TAB: SPACEs
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1672 space-after-tab::space [] [] 8 or more SPACEs after TAB: TABs
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1673
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1674 indent-tabs-mode =
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1675 tab-width = \n\n"
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1676 . ;; `indent-tabs-mode' has nil value
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1677 "\
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1678 Whitespace Report
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1679
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1680 Current Setting Whitespace Problem
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1681
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1682 empty [] [] empty lines at beginning of buffer
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1683 empty [] [] empty lines at end of buffer
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1684 trailing [] [] SPACEs or TABs at end of line
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1685 indentation [] [] TABs at beginning of line
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1686 indentation::tab [] [] 8 or more SPACEs at beginning of line
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1687 indentation::space [] [] TABs at beginning of line
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1688 space-before-tab [] [] SPACEs before TAB
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1689 space-before-tab::tab [] [] SPACEs before TAB: SPACEs
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1690 space-before-tab::space [] [] SPACEs before TAB: TABs
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1691 space-after-tab [] [] 8 or more SPACEs after TAB
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1692 space-after-tab::tab [] [] 8 or more SPACEs after TAB: SPACEs
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1693 space-after-tab::space [] [] 8 or more SPACEs after TAB: TABs
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1694
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1695 indent-tabs-mode =
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1696 tab-width = \n\n")
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1697 "Text for whitespace bogus report.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1698
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1699 It is a cons of strings, where the car part is used when
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1700 `indent-tabs-mode' is non-nil, and the cdr part is used when
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1701 `indent-tabs-mode' is nil.")
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1702
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1703
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1704 (defconst whitespace-report-buffer-name "*Whitespace Report*"
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1705 "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
1706
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1707
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1708 ;;;###autoload
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1709 (defun whitespace-report (&optional force report-if-bogus)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1710 "Report some whitespace problems in buffer.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1711
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1712 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
1713 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
1714
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1715 If FORCE is non-nil or \\[universal-argument] was pressed just
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1716 before calling `whitespace-report' interactively, it forces
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1717 `whitespace-style' to 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
1718
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1719 empty
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1720 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
1721 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
1722 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
1723 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
1724
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1725 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
1726 whitespace problems in buffer.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1727
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1728 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
1729
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1730 * If `indent-tabs-mode' is 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
1731 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
1732 empty 2. empty lines at end of buffer.
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1733 trailing 3. SPACEs or TABs at end of line.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1734 indentation 4. 8 or more SPACEs at beginning of line.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1735 space-before-tab 5. SPACEs 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
1736 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
1737
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1738 * If `indent-tabs-mode' is nil:
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1739 empty 1. empty lines at beginning of buffer.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1740 empty 2. empty lines at end of buffer.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1741 trailing 3. SPACEs or TABs at end of line.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1742 indentation 4. TABS at beginning of line.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1743 space-before-tab 5. SPACEs before TAB.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1744 space-after-tab 6. 8 or more SPACEs after TAB.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1745
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1746 See `whitespace-style' for documentation.
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
1747 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
1748 cleaning up these problems."
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1749 (interactive (list current-prefix-arg))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1750 (whitespace-report-region (point-min) (point-max)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1751 force report-if-bogus))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1752
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1753
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1754 ;;;###autoload
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1755 (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
1756 "Report some whitespace problems in a region.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1757
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1758 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
1759 non-nil.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1760
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1761 If FORCE is non-nil or \\[universal-argument] was pressed just
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1762 before calling `whitespace-report-region' interactively, it
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1763 forces `whitespace-style' to have:
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1764
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1765 empty
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1766 indentation
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1767 space-before-tab
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1768 trailing
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1769 space-after-tab
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1770
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1771 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
1772 whitespace problems in buffer.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1773
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1774 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
1775
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1776 * If `indent-tabs-mode' is non-nil:
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1777 empty 1. empty lines at beginning of buffer.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1778 empty 2. empty lines at end of buffer.
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1779 trailing 3. SPACEs or TABs at end of line.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1780 indentation 4. 8 or more SPACEs at beginning of line.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1781 space-before-tab 5. SPACEs before TAB.
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1782 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
1783
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1784 * If `indent-tabs-mode' is nil:
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1785 empty 1. empty lines at beginning of buffer.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1786 empty 2. empty lines at end of buffer.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1787 trailing 3. SPACEs or TABs at end of line.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1788 indentation 4. TABS at beginning of line.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1789 space-before-tab 5. SPACEs before TAB.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1790 space-after-tab 6. 8 or more SPACEs after TAB.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1791
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1792 See `whitespace-style' for documentation.
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1793 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
1794 cleaning up these problems."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1795 (interactive "r")
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1796 (setq force (or current-prefix-arg force))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1797 (save-excursion
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1798 (save-match-data
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1799 (let* ((has-bogus nil)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1800 (rstart (min start end))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1801 (rend (max start end))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1802 (bogus-list
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1803 (mapcar
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1804 #'(lambda (option)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1805 (when force
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1806 (add-to-list 'whitespace-style (car option)))
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1807 (goto-char rstart)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1808 (let ((regexp
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1809 (cond
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1810 ((eq (car option) 'indentation)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1811 (whitespace-indentation-regexp))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1812 ((eq (car option) 'indentation::tab)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1813 (whitespace-indentation-regexp 'tab))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1814 ((eq (car option) 'indentation::space)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1815 (whitespace-indentation-regexp 'space))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1816 ((eq (car option) 'space-after-tab)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1817 (whitespace-space-after-tab-regexp))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1818 ((eq (car option) 'space-after-tab::tab)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1819 (whitespace-space-after-tab-regexp 'tab))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1820 ((eq (car option) 'space-after-tab::space)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1821 (whitespace-space-after-tab-regexp 'space))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1822 (t
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1823 (cdr option)))))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1824 (and (re-search-forward regexp rend t)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1825 (setq has-bogus t))))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1826 whitespace-report-list)))
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1827 (when (if report-if-bogus has-bogus t)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1828 (whitespace-kill-buffer whitespace-report-buffer-name)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1829 ;; `whitespace-indent-tabs-mode' is local to current buffer
94142
14cbf4c7b904 Handle whitespace-tab-width properly.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94112
diff changeset
1830 ;; `whitespace-tab-width' is local to current buffer
14cbf4c7b904 Handle whitespace-tab-width properly.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94112
diff changeset
1831 (let ((ws-indent-tabs-mode whitespace-indent-tabs-mode)
14cbf4c7b904 Handle whitespace-tab-width properly.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94112
diff changeset
1832 (ws-tab-width whitespace-tab-width))
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1833 (with-current-buffer (get-buffer-create
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1834 whitespace-report-buffer-name)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1835 (erase-buffer)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1836 (insert (if ws-indent-tabs-mode
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1837 (car whitespace-report-text)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1838 (cdr whitespace-report-text)))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1839 (goto-char (point-min))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1840 (forward-line 3)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1841 (dolist (option whitespace-report-list)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1842 (forward-line 1)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1843 (whitespace-mark-x
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1844 27 (memq (car option) whitespace-style))
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1845 (whitespace-mark-x 7 (car bogus-list))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1846 (setq bogus-list (cdr bogus-list)))
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1847 (forward-line 1)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1848 (whitespace-insert-value ws-indent-tabs-mode)
94142
14cbf4c7b904 Handle whitespace-tab-width properly.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94112
diff changeset
1849 (whitespace-insert-value ws-tab-width)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1850 (when has-bogus
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1851 (goto-char (point-max))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1852 (insert " Type `M-x whitespace-cleanup'"
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1853 " to cleanup the buffer.\n\n"
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1854 " Type `M-x whitespace-cleanup-region'"
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1855 " to cleanup a region.\n\n"))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1856 (whitespace-display-window (current-buffer)))))
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1857 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
1858
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-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 ;;;; 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
1862
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (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
1865 "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
1866
1662791e8fd8 Rename blank-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 (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
1868 "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
1869
1662791e8fd8 Rename blank-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 (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
1871 "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
1872
1662791e8fd8 Rename blank-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
1662791e8fd8 Rename blank-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 (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
1875 "\
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1876 Whitespace Toggle Options
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
1877
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1878 FACES
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1879 [] t - toggle TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1880 [] s - toggle SPACE and HARD SPACE visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1881 [] r - toggle trailing blanks visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1882 [] l - toggle \"long lines\" visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1883 [] L - toggle \"long lines\" tail visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1884 [] n - toggle NEWLINE visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1885 [] e - toggle empty line at bob and/or eob visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1886 [] C-i - toggle indentation SPACEs visualization (via `indent-tabs-mode')
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1887 [] I - toggle indentation SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1888 [] i - toggle indentation TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1889 [] C-a - toggle SPACEs after TAB visualization (via `indent-tabs-mode')
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1890 [] A - toggle SPACEs after TAB: SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1891 [] a - toggle SPACEs after TAB: TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1892 [] C-b - toggle SPACEs before TAB visualization (via `indent-tabs-mode')
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1893 [] B - toggle SPACEs before TAB: SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1894 [] b - toggle SPACEs before TAB: TABs visualization
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
1895
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1896 DISPLAY TABLE
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1897 [] T - toggle TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1898 [] S - toggle SPACE and HARD SPACE visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1899 [] N - toggle NEWLINE visualization
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
1900
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1901 x - 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
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 ? - 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
1904 "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
1905
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1906
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1907 (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
1908 "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
1909
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1910
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1911 (defun whitespace-insert-value (value)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1912 "Insert VALUE at column 20 of next line."
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1913 (forward-line 1)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1914 (move-to-column 20 t)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1915 (insert (format "%s" value)))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1916
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1917
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1918 (defun whitespace-mark-x (nchars condition)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1919 "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
1920 (forward-char nchars)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1921 (insert (if condition "X" " ")))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1922
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1923
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
1924 (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
1925 "Insert the option mark ('X' or ' ') in toggle options buffer."
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1926 (goto-char (point-min))
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1927 (forward-line 2)
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
1928 (dolist (sym the-list)
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1929 (if (eq sym 'help-newline)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1930 (forward-line 2)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1931 (forward-line 1)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1932 (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
1933
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1934
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1935 (defun whitespace-help-on (style)
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
1936 "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
1937 (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
1938 (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
1939 (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
1940 (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
1941 (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
1942 (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
1943 (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
1944 (whitespace-insert-option-mark
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
1945 whitespace-style-value-list style)
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1946 (whitespace-display-window buffer)))))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1947
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1948
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1949 (defun whitespace-display-window (buffer)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1950 "Display BUFFER in a new window."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1951 (goto-char (point-min))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1952 (set-buffer-modified-p nil)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1953 (let ((size (- (window-height)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1954 (max window-min-height
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1955 (1+ (count-lines (point-min)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1956 (point-max)))))))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1957 (when (<= size 0)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1958 (kill-buffer buffer)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
1959 (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
1960 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
1961 (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
1962
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1963
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1964 (defun whitespace-kill-buffer (buffer-name)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1965 "Kill buffer BUFFER-NAME and windows related with it."
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1966 (let ((buffer (get-buffer buffer-name)))
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
1967 (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
1968 (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
1969 (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
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
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1972 (defun whitespace-help-off ()
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1973 "Remove the buffer and window of the whitespace toggle options."
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1974 (whitespace-kill-buffer whitespace-help-buffer-name))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1975
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1976
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
1977 (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
1978 "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
1979
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1980 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
1981 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
1982
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
1983 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
1984
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
1985 CHAR MEANING
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1986 (VIA FACES)
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
1987 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
1988 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
1989 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
1990 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
1991 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
1992 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
1993 e toggle empty line at bob and/or eob visualization
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1994 C-i toggle indentation SPACEs visualization (via `indent-tabs-mode')
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1995 I toggle indentation SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1996 i toggle indentation TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1997 C-a toggle SPACEs after TAB visualization (via `indent-tabs-mode')
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1998 A toggle SPACEs after TAB: SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
1999 a toggle SPACEs after TAB: TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2000 C-b toggle SPACEs before TAB visualization (via `indent-tabs-mode')
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2001 B toggle SPACEs before TAB: SPACEs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2002 b toggle SPACEs before TAB: TABs visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2003
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2004 (VIA DISPLAY TABLE)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2005 T toggle TAB visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2006 S toggle SPACE and HARD SPACE visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2007 N toggle NEWLINE visualization
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2008
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2009 x 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
2010 ? 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
2011
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2012 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
2013 (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
2014 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
2015 global-whitespace-mode)))
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2016 (style (cond (is-off whitespace-style) ; use default value
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2017 (local-p whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2018 (t whitespace-toggle-style)))
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
2019 (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
2020 (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
2021 (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
2022 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
2023 ;; 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
2024 (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
2025 (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
2026 (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
2027 (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
2028 ;; 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
2029 (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
2030 (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
2031 (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
2032 (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
2033 (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
2034 (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
2035 ;; 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
2036 (if (eq ch ?\?)
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2037 (whitespace-help-on style)
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
2038 (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
2039 (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
2040 (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
2041 ;; 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
2042 ((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
2043 (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
2044 (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
2045 (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
2046
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2047
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2048 (defun whitespace-toggle-list (local-p arg the-list)
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
2049 "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
2050
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2051 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
2052 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
2053
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2054 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
2055
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2056 THE-LIST is a list of options. This list will be toggled and the
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2057 resultant list will be returned."
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
2058 (unless (if local-p whitespace-mode global-whitespace-mode)
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2059 (setq the-list whitespace-style))
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
2060 (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
2061 (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
2062 (cond
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2063 ;; ignore help value
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2064 ((eq sym 'help-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
2065 ;; restore default values
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2066 ((eq sym 'whitespace-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2067 (setq the-list whitespace-style))
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
2068 ;; toggle valid values
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2069 ((memq sym whitespace-style-value-list)
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
2070 (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
2071 (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
2072 (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
2073 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
2074
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2075
94226
8191f88f6fb9 (whitespace-display-table, whitespace-display-table-was-local):
Glenn Morris <rgm@gnu.org>
parents: 94142
diff changeset
2076 (defvar whitespace-display-table nil
8191f88f6fb9 (whitespace-display-table, whitespace-display-table-was-local):
Glenn Morris <rgm@gnu.org>
parents: 94142
diff changeset
2077 "Used to save a local display table.")
8191f88f6fb9 (whitespace-display-table, whitespace-display-table-was-local):
Glenn Morris <rgm@gnu.org>
parents: 94142
diff changeset
2078
8191f88f6fb9 (whitespace-display-table, whitespace-display-table-was-local):
Glenn Morris <rgm@gnu.org>
parents: 94142
diff changeset
2079 (defvar whitespace-display-table-was-local nil
8191f88f6fb9 (whitespace-display-table, whitespace-display-table-was-local):
Glenn Morris <rgm@gnu.org>
parents: 94142
diff changeset
2080 "Used to remember whether a buffer initially had a local display table.")
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
2081
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2082
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
2083 (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
2084 "Turn on whitespace visualization."
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2085 ;; prepare local hooks
98454
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
2086 (add-hook 'write-file-functions 'whitespace-write-file-hook nil t)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2087 ;; create whitespace local buffer environment
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2088 (set (make-local-variable 'whitespace-font-lock-mode) nil)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2089 (set (make-local-variable 'whitespace-font-lock) nil)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2090 (set (make-local-variable 'whitespace-font-lock-keywords) nil)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2091 (set (make-local-variable 'whitespace-display-table) nil)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2092 (set (make-local-variable 'whitespace-display-table-was-local) nil)
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2093 (set (make-local-variable 'whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2094 (if (listp whitespace-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2095 whitespace-style
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2096 (list whitespace-style)))
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2097 (set (make-local-variable 'whitespace-indent-tabs-mode)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2098 indent-tabs-mode)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2099 (set (make-local-variable 'whitespace-tab-width)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2100 tab-width)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2101 ;; turn on whitespace
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2102 (when whitespace-active-style
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2103 (whitespace-color-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
2104 (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
2105
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2106
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2107 (defun whitespace-turn-off ()
88118
959dc75df82e (whitespace): Set :version tag to 23.1.
Juanma Barranquero <lekktu@gmail.com>
parents: 88115
diff changeset
2108 "Turn off whitespace visualization."
98454
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
2109 (remove-hook 'write-file-functions 'whitespace-write-file-hook t)
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2110 (when whitespace-active-style
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2111 (whitespace-color-off)
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
2112 (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
2113
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2114
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2115 (defun whitespace-style-face-p ()
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2116 "Return t if there is some visualization via face."
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2117 (or (memq 'tabs whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2118 (memq 'spaces whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2119 (memq 'trailing whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2120 (memq 'lines whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2121 (memq 'lines-tail whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2122 (memq 'newline whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2123 (memq 'empty whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2124 (memq 'indentation whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2125 (memq 'indentation::tab whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2126 (memq 'indentation::space whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2127 (memq 'space-after-tab whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2128 (memq 'space-after-tab::tab whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2129 (memq 'space-after-tab::space whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2130 (memq 'space-before-tab whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2131 (memq 'space-before-tab::tab whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2132 (memq 'space-before-tab::space whitespace-active-style)))
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2133
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2134
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
2135 (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
2136 "Turn on color visualization."
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2137 (when (whitespace-style-face-p)
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
2138 (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
2139 (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
2140 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
2141 (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
2142 ;; turn off font lock
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2143 (set (make-local-variable 'whitespace-font-lock-mode)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2144 font-lock-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
2145 (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
2146 ;; add whitespace-mode color into font lock
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2147 (when (memq 'spaces whitespace-active-style)
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
2148 (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
2149 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
2150 (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
2151 ;; 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
2152 (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
2153 ;; 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
2154 (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
2155 t))
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2156 (when (memq 'tabs whitespace-active-style)
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
2157 (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
2158 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
2159 (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
2160 ;; 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
2161 (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
2162 t))
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2163 (when (memq 'trailing whitespace-active-style)
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
2164 (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
2165 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
2166 (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
2167 ;; Show trailing blanks
94400
049f194820fe whitespace-trailing-regexp option fix.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94374
diff changeset
2168 (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
2169 t))
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2170 (when (or (memq 'lines whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2171 (memq 'lines-tail whitespace-active-style))
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
2172 (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
2173 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
2174 (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
2175 ;; 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
2176 (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
2177 (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
2178 "^\\([^\t\n]\\{%s\\}\\|[^\t\n]\\{0,%s\\}\t\\)\\{%d\\}%s\\(.+\\)$"
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2179 whitespace-tab-width (1- whitespace-tab-width)
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
2180 (/ whitespace-line-column tab-width)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2181 (let ((rem (% whitespace-line-column whitespace-tab-width)))
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
2182 (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
2183 ""
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2184 (format ".\\{%d\\}" rem))))
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2185 (if (memq 'lines whitespace-active-style)
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
2186 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
2187 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
2188 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
2189 t))
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2190 (cond
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2191 ((memq 'space-before-tab whitespace-active-style)
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
2192 (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
2193 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
2194 (list
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2195 ;; Show SPACEs before TAB (indent-tabs-mode)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2196 (list whitespace-space-before-tab-regexp
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2197 (if whitespace-indent-tabs-mode 1 2)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2198 whitespace-space-before-tab t))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2199 t))
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2200 ((memq 'space-before-tab::tab whitespace-active-style)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2201 (font-lock-add-keywords
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2202 nil
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2203 (list
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2204 ;; Show SPACEs before TAB (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
2205 (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
2206 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
2207 t))
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2208 ((memq 'space-before-tab::space whitespace-active-style)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2209 (font-lock-add-keywords
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2210 nil
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2211 (list
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2212 ;; Show SPACEs before TAB (TABs)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2213 (list whitespace-space-before-tab-regexp
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2214 2 whitespace-space-before-tab t))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2215 t)))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2216 (cond
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2217 ((memq 'indentation whitespace-active-style)
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
2218 (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
2219 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
2220 (list
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2221 ;; Show indentation SPACEs (indent-tabs-mode)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2222 (list (whitespace-indentation-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
2223 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
2224 t))
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2225 ((memq 'indentation::tab whitespace-active-style)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2226 (font-lock-add-keywords
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2227 nil
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2228 (list
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2229 ;; Show indentation SPACEs (SPACEs)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2230 (list (whitespace-indentation-regexp 'tab)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2231 1 whitespace-indentation t))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2232 t))
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2233 ((memq 'indentation::space whitespace-active-style)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2234 (font-lock-add-keywords
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2235 nil
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2236 (list
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2237 ;; Show indentation SPACEs (TABs)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2238 (list (whitespace-indentation-regexp 'space)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2239 1 whitespace-indentation t))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2240 t)))
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2241 (when (memq 'empty whitespace-active-style)
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
2242 (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
2243 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
2244 (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
2245 ;; 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
2246 (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
2247 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
2248 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
2249 (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
2250 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
2251 (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
2252 ;; 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
2253 (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
2254 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
2255 t))
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2256 (cond
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2257 ((memq 'space-after-tab whitespace-active-style)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2258 (font-lock-add-keywords
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2259 nil
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2260 (list
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2261 ;; Show SPACEs after TAB (indent-tabs-mode)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2262 (list (whitespace-space-after-tab-regexp)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2263 1 whitespace-space-after-tab t))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2264 t))
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2265 ((memq 'space-after-tab::tab whitespace-active-style)
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
2266 (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
2267 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
2268 (list
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2269 ;; Show SPACEs after TAB (SPACEs)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2270 (list (whitespace-space-after-tab-regexp '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
2271 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
2272 t))
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2273 ((memq 'space-after-tab::space whitespace-active-style)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2274 (font-lock-add-keywords
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2275 nil
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2276 (list
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2277 ;; Show SPACEs after TAB (TABs)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2278 (list (whitespace-space-after-tab-regexp 'space)
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2279 1 whitespace-space-after-tab t))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2280 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
2281 ;; 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
2282 (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
2283
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2284
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2285 (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
2286 "Turn off color visualization."
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2287 ;; turn off font lock
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2288 (when (whitespace-style-face-p)
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
2289 (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
2290 (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
2291 (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
2292 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
2293 ;; 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
2294 (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
2295
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2296
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2297 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2298 ;;;; 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
2299
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2300
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2301 (defun whitespace-style-mark-p ()
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2302 "Return t if there is some visualization via display table."
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2303 (or (memq 'tab-mark whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2304 (memq 'space-mark whitespace-active-style)
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2305 (memq 'newline-mark whitespace-active-style)))
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2306
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2307
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
2308 (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
2309 ;; 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
2310 (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
2311 (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
2312
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2313
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2314 (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
2315 "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
2316 (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
2317 (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
2318 (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
2319 (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
2320 (< 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
2321
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2322
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2323 (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
2324 "Turn on character display mapping."
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2325 (when (and whitespace-display-mappings
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2326 (whitespace-style-mark-p))
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
2327 (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
2328 ;; 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
2329 (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
2330 (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
2331 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
2332 (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
2333 (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
2334 (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
2335 (dolist (entry whitespace-display-mappings)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2336 ;; check if it is to display this mark
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2337 (when (memq (car entry) whitespace-style)
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2338 ;; Get a displayable mapping.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2339 (setq vecs (cddr entry))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2340 (while (and vecs
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2341 (not (whitespace-display-vector-p (car vecs))))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2342 (setq vecs (cdr vecs)))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2343 ;; Display a valid mapping.
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2344 (when vecs
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2345 (setq vec (copy-sequence (car vecs)))
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2346 ;; NEWLINE char
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2347 (when (and (eq (cadr entry) ?\n)
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2348 (memq 'newline whitespace-active-style))
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2349 ;; Only insert face bits on NEWLINE char mapping to avoid
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2350 ;; obstruction of other faces like TABs and (HARD) SPACEs
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2351 ;; faces, font-lock faces, etc.
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
2352 (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
2353 (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
2354 (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
2355 (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
2356 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
2357 ;; Display mapping
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2358 (aset buffer-display-table (cadr entry) vec)))))))
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
2359
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2360
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2361 (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
2362 "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
2363 (and whitespace-display-mappings
94373
f9bcef02655f New version 11.0.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 94226
diff changeset
2364 (whitespace-style-mark-p)
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
2365 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
2366 (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
2367 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
2368
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2369
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2370 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2371 ;;;; Hook
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2373
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2374 (defun whitespace-action-when-on ()
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2375 "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
2376 (cond ((memq 'cleanup whitespace-action)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2377 (whitespace-cleanup))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2378 ((memq 'report-on-bogus whitespace-action)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2379 (whitespace-report nil t))))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2380
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2381
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2382 (defun whitespace-write-file-hook ()
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2383 "Action to be taken when buffer is written.
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2384 It should be added buffer-locally to `write-file-functions'."
98454
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
2385 (cond ((memq 'auto-cleanup whitespace-action)
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
2386 (whitespace-cleanup))
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
2387 ((memq 'abort-on-bogus whitespace-action)
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
2388 (when (whitespace-report nil t)
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
2389 (error "Abort write due to whitespace problems in %s"
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
2390 (buffer-name)))))
94112
7b3262e9986b Honor the indent-tabs-mode and tab-width setting from user.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 92372
diff changeset
2391 nil) ; continue hook processing
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2392
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2393
98008
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
2394 (defun whitespace-warn-read-only (msg)
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
2395 "Warn if buffer is read-only."
98454
431a14612b87 Eliminate whitespace-kill-buffer-hook functionality.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 98009
diff changeset
2396 (when (memq 'warn-if-read-only whitespace-action)
98008
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
2397 (message "Can't %s: %s is read-only" msg (buffer-name))))
4ec5decd0683 Fix bug#360.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 97311
diff changeset
2398
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2399
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2400 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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
2401
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2402
88115
becc5f138486 (global-whitespace-mode): When turning off the global mode,
Juanma Barranquero <lekktu@gmail.com>
parents: 88113
diff changeset
2403 (defun whitespace-unload-function ()
92372
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2404 "Unload the whitespace library."
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2405 (global-whitespace-mode -1)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2406 ;; 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
2407 (save-current-buffer
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2408 (dolist (buf (buffer-list))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2409 (set-buffer buf)
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2410 (whitespace-mode -1)))
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2411 nil) ; continue standard unloading
0418e6ff8eb2 New version 9.3.
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents: 91471
diff changeset
2412
88115
becc5f138486 (global-whitespace-mode): When turning off the global mode,
Juanma Barranquero <lekktu@gmail.com>
parents: 88113
diff changeset
2413
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
2414 (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
2415
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2416
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2417 (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
2418
1662791e8fd8 Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
Vinicius Jose Latorre <viniciusjl@ig.com.br>
parents:
diff changeset
2419
88100
9623247b8103 Re-use arch-tag from old blank-mode.el for lisp/whitespace.el
Miles Bader <miles@gnu.org>
parents: 88099
diff changeset
2420 ;; 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
2421 ;;; whitespace.el ends here