mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity
95f7f71560
emacs/lisp/whitespace.el

2470 lines
87 KiB
EmacsLisp
Raw Normal View History

* lisp/whitespace.el: Use lexical binding.
2017-07-29 14:25:49 +00:00
;;; whitespace.el --- minor mode to visualize TAB, (HARD) SPACE, NEWLINE -*- lexical-binding: t -*-
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Update copyright year to 2021 Run "TZ=UTC0 admin/update-copyright".
2021-01-01 09:13:56 +00:00
;; Copyright (C) 2000-2021 Free Software Foundation, Inc.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Email replacement.
2017-10-29 22:28:58 +00:00
;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com>
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; Keywords: data, wp
Disable whitespace-newline-mode properly.
2011-10-31 00:37:09 +00:00
;; Version: 13.2.2
; Normalize some header comments
2021-09-16 13:35:10 +00:00
;; URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; This file is part of GNU Emacs.
Switch to recommended form of GPLv3 permissions notice.
2008-05-06 08:06:51 +00:00
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Switch to recommended form of GPLv3 permissions notice.
2008-05-06 08:06:51 +00:00
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; You should have received a copy of the GNU General Public License
Prefer HTTPS to FTP and HTTP in documentation Most of this change is to boilerplate commentary such as license URLs. This change was prompted by ftp://ftp.gnu.org's going-away party, planned for November. Change these FTP URLs to https://ftp.gnu.org instead. Make similar changes for URLs to other organizations moving away from FTP. Also, change HTTP to HTTPS for URLs to gnu.org and fsf.org when this works, as this will further help defend against man-in-the-middle attacks (for this part I omitted the MS-DOS and MS-Windows sources and the test tarballs to keep the workload down). HTTPS is not fully working to lists.gnu.org so I left those URLs alone for now.
2017-09-13 22:52:52 +00:00
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;; Commentary:
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Introduction
;; ------------
;;
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
;; This package is a minor mode to visualize blanks (TAB, (HARD) SPACE
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; and NEWLINE).
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; whitespace uses two ways to visualize blanks: faces and display
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; table.
;;
;; * Faces are used to highlight the background with a color.
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; whitespace uses font-lock to highlight blank characters.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
;; * Display table changes the way a character is displayed, that is,
;; it provides a visual mark for characters, for example, at the end
;; of line (?\xB6), at SPACEs (?\xB7) and at TABs (?\xBB).
;;
Doc fix.
2008-04-26 12:38:54 +00:00
;; The `whitespace-style' variable selects which way blanks are
;; visualized.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; Note that when whitespace is turned on, whitespace saves the
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; font-lock state, that is, if font-lock is on or off. And
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; whitespace restores the font-lock state when it is turned off. So,
;; if whitespace is turned on and font-lock is off, whitespace also
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; turns on the font-lock to highlight blanks, but the font-lock will
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; be turned off when whitespace is turned off. Thus, turn on
;; font-lock before whitespace is on, if you want that font-lock
;; continues on after whitespace is turned off.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; When whitespace is on, it takes care of highlighting some special
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; characters over the default mechanism of `nobreak-char-display'
;; (which see) and `show-trailing-whitespace' (which see).
;;
Fix doc.
2009-10-05 02:17:57 +00:00
;; The trailing spaces are not highlighted while point is at end of line.
;; Also the spaces at beginning of buffer are not highlighted while point is at
;; beginning of buffer; and the spaces at end of buffer are not highlighted
;; while point is at end of buffer.
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; There are two ways of using whitespace: local and global.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; * Local whitespace affects only the current buffer.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; * Global whitespace affects all current and future buffers. That
;; is, if you turn on global whitespace and then create a new
;; buffer, the new buffer will also have whitespace on. The
;; `whitespace-global-modes' variable controls which major-mode will
;; be automagically turned on.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
;; You can mix the local and global usage without any conflict. But
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; local whitespace has priority over global whitespace. Whitespace
;; mode is active in a buffer if you have enabled it in that buffer or
;; if you have enabled it globally.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; When global and local whitespace are on:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; * if local whitespace is turned off, whitespace is turned off for
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; the current buffer only.
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; * if global whitespace is turned off, whitespace continues on only
;; in the buffers in which local whitespace is on.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; whitespace was inspired by:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
;; whitespace.el Rajesh Vaidheeswarran <rv@gnu.org>
;; Warn about and clean bogus whitespaces in the file
;; (inspired the idea to warn and clean some blanks)
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; This was the original `whitespace.el' which was replaced by
;; `blank-mode.el'. And later `blank-mode.el' was renamed to
;; `whitespace.el'.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
;;
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; show-whitespace-mode.el Aurelien Tisne <aurelien.tisne@free.fr>
;; Simple mode to highlight whitespaces
;; (inspired the idea to use font-lock)
;;
;; whitespace-mode.el Lawrence Mitchell <wence@gmx.li>
;; Major mode for editing Whitespace
;; (inspired the idea to use display table)
;;
;; visws.el Miles Bader <miles@gnu.org>
;; Make whitespace visible
;; (handle display table, his code was modified, but the main
;; idea was kept)
;;
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; Using whitespace
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; ----------------
;;
;; There is no problem if you mix local and global minor mode usage.
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; * LOCAL whitespace:
;; + To toggle whitespace options locally, type:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; M-x whitespace-toggle-options RET
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; + To activate whitespace locally, type:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; C-u 1 M-x whitespace-mode RET
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; + To deactivate whitespace locally, type:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; C-u 0 M-x whitespace-mode RET
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; + To toggle whitespace locally, type:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; M-x whitespace-mode RET
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; * GLOBAL whitespace:
;; + To toggle whitespace options globally, type:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; M-x global-whitespace-toggle-options RET
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; + To activate whitespace globally, type:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; C-u 1 M-x global-whitespace-mode RET
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; + To deactivate whitespace globally, type:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; C-u 0 M-x global-whitespace-mode RET
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; + To toggle whitespace globally, type:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; M-x global-whitespace-mode RET
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
;; There are also the following useful commands:
;;
New newline minor mode visualization.
2008-07-24 04:12:27 +00:00
;; `whitespace-newline-mode'
Remove incorrect uses of "modeline". * ansi-color.el (ansi-color-faces-vector): Change default faces. * cus-edit.el (mode-line): * dframe.el (dframe-mouse-hscroll): * emacs-lisp/re-builder.el: * emacs-lisp/easy-mmode.el (define-minor-mode): * frame.el (set-frame-name): * help.el (lookup-minor-mode-from-indicator): * net/rcirc.el (rcirc-activity-string, rcirc-short-buffer-name): * progmodes/cc-cmds.el (c-toggle-auto-newline) (c-toggle-hungry-state): * progmodes/antlr-mode.el (antlr-language-alist): * progmodes/idlw-shell.el (idlwave-shell-electric-stop-line-face): * progmodes/vhdl-mode.el (vhdl-mode): * progmodes/which-func.el (which-func, which-func-cleanup-function): * term/ns-win.el (ns-face-at-pos): * term/sup-mouse.el (sup-mouse-report): * textmodes/flyspell.el (flyspell-mode-line-string): * textmodes/ispell.el (ispell-highlight-face): * textmodes/reftex-global.el: * vc/vc-arch.el (vc-arch-mode-line-string): * vc/vc-cvs.el (vc-cvs-mode-line-string): * vc/vc-git.el (vc-git-mode-line-string): * vc/vc-hooks.el (vc-display-status) (vc-default-mode-line-string): * vc/vc-mtn.el (vc-mtn-mode-line-string): Doc fixes. * dired.el (dired-sort-set-mode-line): Rename from dired-sort-set-modeline. All callers changed. * foldout.el (foldout-mode-line-string): Rename from foldout-modeline-string. All callers changed. (foldout-update-mode-line): Rename from foldout-update-modeline. * strokes.el (strokes-lighter): Rename from strokes-modeline-string. * subr.el (redraw-modeline): Make into obsolete alias. * calendar/timeclock.el (timeclock-mode-line-display): Rename from timeclock-modeline-display. Make old name an alias. (timeclock-update-mode-line): Likewise. All callers changed. (timeclock-mode-line-display): No need to check before using add-hook. (timeclock-relative, timeclock-day-over-hook) (timeclock-use-elapsed, timeclock-mode-string) (timeclock-mode-line-display): Doc fix, "modeline" -> "mode line". * emulation/crisp.el (crisp-mode-mode-line-string): Rename from crisp-mode-modeline-string. * erc-track.el (erc-track, erc-track-faces-priority-list) (erc-track-faces-normal-list, erc-track-find-face) (erc-track-modified-channels): Fix modeline -> mode line in docs. * eshell/esh-mode.el (eshell-status-in-mode-line): Rename from eshell-status-in-modeline. * org-clock.el (org-clock-string-limit) (org-clock-modeline-total, org-clock-task-overrun-text) (org-clock-mode-line-entry): Doc fix, "modeline" -> "mode line". * play/solitaire.el (solitaire-build-mode-line): Rename from solitaire-build-modeline. All callers changed. * play/zone.el (zone-hiding-mode-line): Rename from zone-hiding-modeline. All callers changed. (zone): Remove unusued `modeline-hidden-level' property. * progmodes/xscheme.el (xscheme-mode-line-initialize): Rename from xscheme-modeline-initialize. All callers changed. * textmodes/sgml-mode.el (html-face-tag-alist) (html-tag-face-alist): Use mode-line face instead of obsolete alias modeline. Fixes: debbugs:10329
2012-06-02 10:56:09 +00:00
;; Toggle NEWLINE minor mode visualization ("nl" on mode line).
New newline minor mode visualization.
2008-07-24 04:12:27 +00:00
;;
;; `global-whitespace-newline-mode'
Remove incorrect uses of "modeline". * ansi-color.el (ansi-color-faces-vector): Change default faces. * cus-edit.el (mode-line): * dframe.el (dframe-mouse-hscroll): * emacs-lisp/re-builder.el: * emacs-lisp/easy-mmode.el (define-minor-mode): * frame.el (set-frame-name): * help.el (lookup-minor-mode-from-indicator): * net/rcirc.el (rcirc-activity-string, rcirc-short-buffer-name): * progmodes/cc-cmds.el (c-toggle-auto-newline) (c-toggle-hungry-state): * progmodes/antlr-mode.el (antlr-language-alist): * progmodes/idlw-shell.el (idlwave-shell-electric-stop-line-face): * progmodes/vhdl-mode.el (vhdl-mode): * progmodes/which-func.el (which-func, which-func-cleanup-function): * term/ns-win.el (ns-face-at-pos): * term/sup-mouse.el (sup-mouse-report): * textmodes/flyspell.el (flyspell-mode-line-string): * textmodes/ispell.el (ispell-highlight-face): * textmodes/reftex-global.el: * vc/vc-arch.el (vc-arch-mode-line-string): * vc/vc-cvs.el (vc-cvs-mode-line-string): * vc/vc-git.el (vc-git-mode-line-string): * vc/vc-hooks.el (vc-display-status) (vc-default-mode-line-string): * vc/vc-mtn.el (vc-mtn-mode-line-string): Doc fixes. * dired.el (dired-sort-set-mode-line): Rename from dired-sort-set-modeline. All callers changed. * foldout.el (foldout-mode-line-string): Rename from foldout-modeline-string. All callers changed. (foldout-update-mode-line): Rename from foldout-update-modeline. * strokes.el (strokes-lighter): Rename from strokes-modeline-string. * subr.el (redraw-modeline): Make into obsolete alias. * calendar/timeclock.el (timeclock-mode-line-display): Rename from timeclock-modeline-display. Make old name an alias. (timeclock-update-mode-line): Likewise. All callers changed. (timeclock-mode-line-display): No need to check before using add-hook. (timeclock-relative, timeclock-day-over-hook) (timeclock-use-elapsed, timeclock-mode-string) (timeclock-mode-line-display): Doc fix, "modeline" -> "mode line". * emulation/crisp.el (crisp-mode-mode-line-string): Rename from crisp-mode-modeline-string. * erc-track.el (erc-track, erc-track-faces-priority-list) (erc-track-faces-normal-list, erc-track-find-face) (erc-track-modified-channels): Fix modeline -> mode line in docs. * eshell/esh-mode.el (eshell-status-in-mode-line): Rename from eshell-status-in-modeline. * org-clock.el (org-clock-string-limit) (org-clock-modeline-total, org-clock-task-overrun-text) (org-clock-mode-line-entry): Doc fix, "modeline" -> "mode line". * play/solitaire.el (solitaire-build-mode-line): Rename from solitaire-build-modeline. All callers changed. * play/zone.el (zone-hiding-mode-line): Rename from zone-hiding-modeline. All callers changed. (zone): Remove unusued `modeline-hidden-level' property. * progmodes/xscheme.el (xscheme-mode-line-initialize): Rename from xscheme-modeline-initialize. All callers changed. * textmodes/sgml-mode.el (html-face-tag-alist) (html-tag-face-alist): Use mode-line face instead of obsolete alias modeline. Fixes: debbugs:10329
2012-06-02 10:56:09 +00:00
;; Toggle NEWLINE global minor mode visualization ("NL" on mode line).
New newline minor mode visualization.
2008-07-24 04:12:27 +00:00
;;
New version 9.3.
2008-03-01 19:00:24 +00:00
;; `whitespace-report'
;; Report some blank problems in buffer.
;;
;; `whitespace-report-region'
;; Report some blank problems in a region.
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; `whitespace-cleanup'
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
;; Cleanup some blank problems in all buffer or at region.
Remove duplicate documentation * lisp/whitespace.el: Remove duplicate documentation from the Commentary section which duplicate and in some places contradict (due to being out of date) the docstrings (Bug#24745).
2016-10-21 14:20:07 +00:00
;; See the function's docstring for more information.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; `whitespace-cleanup-region'
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
;; Cleanup some blank problems at region.
;;
Remove duplicate documentation * lisp/whitespace.el: Remove duplicate documentation from the Commentary section which duplicate and in some places contradict (due to being out of date) the docstrings (Bug#24745).
2016-10-21 14:20:07 +00:00
;;
;; Options
;; -------
;;
;; Whitespace's behavior can be changed with `M-x customize-group
;; whitespace', which see for the full list of options.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
;;
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
;; Hooks
;; -----
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; whitespace has the following hook variables:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; `whitespace-mode-hook'
;; It is evaluated always when whitespace is turned on locally.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; `global-whitespace-mode-hook'
;; It is evaluated always when whitespace is turned on globally.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; `whitespace-load-hook'
;; It is evaluated after whitespace package is loaded.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
;;
Prefer typical American spelling for "acknowledgment".
2012-07-25 05:48:19 +00:00
;; Acknowledgments
;; ---------------
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
keep highlight when switching between major modes on a file.
2011-04-30 15:15:07 +00:00
;; Thanks to felix (EmacsWiki) for keeping highlight when switching between
;; major modes on a file.
;;
Doc fix.
2008-07-29 02:07:26 +00:00
;; Thanks to David Reitter <david.reitter@gmail.com> for suggesting a
;; `whitespace-newline' initialization with low contrast relative to
;; the background color.
;;
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
;; Thanks to Stephen Deasey <sdeasey@gmail.com> for the
;; `indent-tabs-mode' usage suggestion.
;;
;; Thanks to Eric Cooper <ecc@cmu.edu> for the suggestion to have hook
Eliminate whitespace-kill-buffer-hook functionality.
2008-10-02 00:49:49 +00:00
;; actions when buffer is written as the original whitespace package
;; had.
New version 9.3.
2008-03-01 19:00:24 +00:00
;;
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
;; Thanks to nschum (EmacsWiki) for the idea about highlight "long"
;; lines tail. See EightyColumnRule (EmacsWiki).
;;
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; Thanks to Juri Linkov <juri@jurta.org> for suggesting:
;; * `define-minor-mode'.
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; * `global-whitespace-*' name for global commands.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
;; Thanks to Robert J. Chassell <bob@gnu.org> for doc fix and testing.
;;
;; Thanks to Drew Adams <drew.adams@oracle.com> for toggle commands
;; suggestion.
;;
;; Thanks to Antti Kaihola <antti.kaihola@linux-aktivaattori.org> for
;; helping to fix `find-file-hooks' reference.
;;
;; Thanks to Andreas Roehler <andreas.roehler@easy-emacs.de> for
;; indicating defface byte-compilation warnings.
;;
Spelling fixes. * calc/calc-yank.el (calc-edit-mode, calc-edit-cancel): * emacs-lisp/debug.el (cancel-debug-on-entry): * epg.el (epg-error-to-string): * files.el (recover-file): * lpr.el (lpr-buffer, print-buffer, lpr-region, print-region): * mail/emacsbug.el (report-emacs-bug-hook): * mail/sendmail.el (mail-recover): * ses.el (ses-yank-resize): * term/ns-win.el (ns-print-buffer): Spelling fixes in diagnostics, mostly for "canceled" with one L. * epg.el (epg-key-capability-alist): Rename from misspelled version. All uses changed. * obsolete/xesam.el (xesam-all-fields): Fix misspelled field name.
2014-01-06 06:25:30 +00:00
;; Thanks to Tim O'Callaghan (EmacsWiki) for the idea about highlight
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
;; "long" lines. See EightyColumnRule (EmacsWiki).
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
;; Thanks to Yanghui Bian <yanghuibian@gmail.com> for indicating a new
Improve docstring.
2008-08-06 03:35:04 +00:00
;; NEWLINE character mapping.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
;; Thanks to Pete Forman <pete.forman@westgeo.com> for indicating
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; whitespace-mode.el on XEmacs.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
;; Thanks to Miles Bader <miles@gnu.org> for handling display table via
;; visws.el (his code was modified, but the main idea was kept).
;;
;; Thanks to:
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; Rajesh Vaidheeswarran <rv@gnu.org> (original) whitespace.el
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; Aurelien Tisne <aurelien.tisne@free.fr> show-whitespace-mode.el
;; Lawrence Mitchell <wence@gmx.li> whitespace-mode.el
;; Miles Bader <miles@gnu.org> visws.el
;; And to all people who contributed with them.
;;
;;
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; * lisp/whitespace.el: Capitalize "Code" section heading.
2020-06-17 00:59:48 +00:00
;;; Code:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; User Variables:
;;; Interface to the command system
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defgroup whitespace nil
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
"Visualize blanks (TAB, (HARD) SPACE and NEWLINE)."
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:link '(emacs-library-link :tag "Source Lisp File" "whitespace.el")
(whitespace): Set :version tag to 23.1. (whitespace-turn-off, whitespace-toggle-options): Fix typos. (whitespace-style, whitespace-chars, whitespace-space, whitespace-hspace, whitespace-tab, whitespace-newline, whitespace-trailing, whitespace-line, whitespace-space-before-tab, whitespace-indentation, whitespace-empty, whitespace-space-after-tab, whitespace-hspace-regexp, whitespace-space-regexp, whitespace-tab-regexp, whitespace-trailing-regexp, whitespace-space-before-tab-regexp, whitespace-indentation-regexp, whitespace-empty-at-bob-regexp, whitespace-empty-at-eob-regexp, whitespace-space-after-tab-regexp, whitespace-line-column, whitespace-display-mappings, global-whitespace-toggle-options, whitespace-cleanup, whitespace-cleanup-region, whitespace-interactive-char): Doc fixes.
2008-02-01 14:44:44 +00:00
:version "23.1"
Reorganize Custom groups. * cus-edit.el (processes): Remove from development group. (oop, hypermedia): Delete group. (net): New group. * url/url-vars.el (url): * net/browse-url.el (browse-url): * net/xesam.el (xesam): * net/tramp.el (tramp): * net/goto-addr.el (goto-address): * net/ange-ftp.el (ange-ftp): Put in net group. * view.el (view): Remove from editing group. * uniquify.el (uniquify): Put in files group. * net/browse-url.el (browse-url): * ps-print.el (postscript): Put in external group. * cus-edit.el (outlines): * textmodes/text-mode.el (text-mode-hook): * textmodes/table.el (table): * textmodes/picture.el (picture): * outline.el (outlines): Put in wp group. * nxml/nxml-mode.el (nxml): Remove from wp group. * net/tramp-imap.el (tramp-imap): Put in tramp group. * mail/metamail.el (metamail): Remove from hypermedia group. * cus-edit.el (abbrev): * whitespace.el (whitespace): * vcursor.el (vcursor): * reveal.el (reveal): * hl-line.el (hl-line): Put in convenience group. * epg-config.el (epg): Put in data group. * emulation/pc-select.el (pc-select): Put in emulations group. * calculator.el (calculator): Put in applications group. * org/org.el (org): Remove from hypermedia group.
2010-03-12 17:47:22 +00:00
:group 'convenience)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
(defcustom whitespace-style
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
'(face
tabs spaces trailing lines space-before-tab newline
indentation empty space-after-tab
Make whitespace-mode highlight missing newlines at the end of buffers * lisp/whitespace.el (whitespace-missing-newline-at-eof): New face (bug#34952). (whitespace-report-region): Add a test for end-of-buffer-without-newline. (whitespace-color-on): Ditto. * doc/emacs/display.texi (Useless Whitespace): Document it.
2020-08-07 07:28:14 +00:00
space-mark tab-mark newline-mark
missing-newline-at-eof)
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Specify which kind of blank is visualized.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(whitespace): Set :version tag to 23.1. (whitespace-turn-off, whitespace-toggle-options): Fix typos. (whitespace-style, whitespace-chars, whitespace-space, whitespace-hspace, whitespace-tab, whitespace-newline, whitespace-trailing, whitespace-line, whitespace-space-before-tab, whitespace-indentation, whitespace-empty, whitespace-space-after-tab, whitespace-hspace-regexp, whitespace-space-regexp, whitespace-tab-regexp, whitespace-trailing-regexp, whitespace-space-before-tab-regexp, whitespace-indentation-regexp, whitespace-empty-at-bob-regexp, whitespace-empty-at-eob-regexp, whitespace-space-after-tab-regexp, whitespace-line-column, whitespace-display-mappings, global-whitespace-toggle-options, whitespace-cleanup, whitespace-cleanup-region, whitespace-interactive-char): Doc fixes.
2008-02-01 14:44:44 +00:00
It's a list containing some or all of the following values:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
face enable all visualization via faces (see below).
New version 11.0.
2008-04-26 11:38:50 +00:00
trailing trailing blanks are visualized via faces.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
tabs TABs are visualized via faces.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
spaces SPACEs and HARD SPACEs are visualized via
faces.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Fix typos in docstrings, error messages, etc.
2010-01-18 04:39:40 +00:00
lines lines which have columns beyond
New version 11.0.
2008-04-26 11:38:50 +00:00
`whitespace-line-column' are highlighted via
Fix typos in docstrings, error messages, etc.
2010-01-18 04:39:40 +00:00
faces.
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
Whole line is highlighted.
New version 11.0.
2008-04-26 11:38:50 +00:00
It has precedence over `lines-tail' (see
below).
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
Fix typos in docstrings, error messages, etc.
2010-01-18 04:39:40 +00:00
lines-tail lines which have columns beyond
New version 11.0.
2008-04-26 11:38:50 +00:00
`whitespace-line-column' are highlighted via
faces.
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
But only the part of line which goes
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
beyond `whitespace-line-column' column.
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
It has effect only if `lines' (see above)
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
is not present in `whitespace-style'
and if `face' (see above) is present in
`whitespace-style'.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
newline NEWLINEs are visualized via faces.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Make whitespace-mode highlight missing newlines at the end of buffers * lisp/whitespace.el (whitespace-missing-newline-at-eof): New face (bug#34952). (whitespace-report-region): Add a test for end-of-buffer-without-newline. (whitespace-color-on): Ditto. * doc/emacs/display.texi (Useless Whitespace): Document it.
2020-08-07 07:28:14 +00:00
missing-newline-at-eof Missing newline at the end of the file is
visualized via faces.
It has effect only if `face' (see above)
is present in `whitespace-style'.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
empty empty lines at beginning and/or end of buffer
New version 11.0.
2008-04-26 11:38:50 +00:00
are visualized via faces.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
indentation::tab `tab-width' or more SPACEs at beginning of line
are visualized via faces.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
indentation::space TABs at beginning of line are visualized via
faces.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
indentation `tab-width' or more SPACEs at beginning of line
are visualized, if `indent-tabs-mode' (which
see) is non-nil; otherwise, TABs at beginning
of line are visualized via faces.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
Add a 'big-indent style to `whitespace-mode'. * lisp/whitespace.el (whitespace-style, whitespace-big-indent) (whitespace-big-indent-regexp, whitespace-style-value-list) (whitespace-toggle-option-alist, whitespace-interactive-char) (whitespace-toggle-options) (global-whitespace-toggle-options, whitespace-help-text) (whitespace-style-face-p, whitespace-color-on): Add a 'big-indent style to `whitespace-mode' to indicate that the line indentation is too deep. By default, 32 SPACEs or four TABs are considered too many but `whitespace-big-indent-regexp' can be configured.
2014-10-18 00:23:03 +00:00
big-indent Big indentations are visualized via faces.
It has effect only if `face' (see above)
is present in `whitespace-style'.
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
space-after-tab::tab `tab-width' or more SPACEs after a TAB
are visualized via faces.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
space-after-tab::space TABs are visualized when `tab-width' or
more SPACEs occur after a TAB, via
faces.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
space-after-tab `tab-width' or more SPACEs after a TAB
are visualized, if `indent-tabs-mode'
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(which see) is non-nil; otherwise,
New version 11.0.
2008-04-26 11:38:50 +00:00
the TABs are visualized via faces.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
space-before-tab::tab SPACEs before TAB are visualized via
faces.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
* whitespace.el (whitespace-style): Doc fix (Bug#3661).
2009-08-16 14:46:39 +00:00
space-before-tab::space TABs are visualized when SPACEs occur
before TAB, via faces.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
space-before-tab SPACEs before TAB are visualized, if
`indent-tabs-mode' (which see) is
non-nil; otherwise, the TABs are
New version 11.0.
2008-04-26 11:38:50 +00:00
visualized via faces.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It has effect only if `face' (see above)
is present in `whitespace-style'.
New version 11.0.
2008-04-26 11:38:50 +00:00
space-mark SPACEs and HARD SPACEs are visualized via
display table.
tab-mark TABs are visualized via display table.
newline-mark NEWLINEs are visualized via display table.
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
Any other value is ignored.
New version 11.0.
2008-04-26 11:38:50 +00:00
If nil, don't visualize TABs, (HARD) SPACEs and NEWLINEs via faces and
via display table.
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
Fix typos in docstrings, error messages, etc.
2010-01-18 04:39:40 +00:00
There is an evaluation order for some values, if they are
New version 11.0.
2008-04-26 11:38:50 +00:00
included in `whitespace-style' list. For example, if
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
indentation, indentation::tab and/or indentation::space are
New version 11.0.
2008-04-26 11:38:50 +00:00
included in `whitespace-style' list. The evaluation order for
these values is:
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
* For indentation:
1. indentation
2. indentation::tab
3. indentation::space
* For SPACEs after TABs:
1. space-after-tab
2. space-after-tab::tab
3. space-after-tab::space
* For SPACEs before TABs:
1. space-before-tab
2. space-before-tab::tab
3. space-before-tab::space
Clarify whitespace-style doc string * lisp/whitespace.el (whitespace-style): Doc clarification (bug#18296).
2016-04-30 13:27:09 +00:00
For example, if `indentation' and `indentation::space' are
included in `whitespace-style', the `indentation' value is used
instead of the `indentation::space' value.
One reason to not use faces to visualize spaces (i.e., not
include `face' in `whitespace-style') is to use `whitespace-mode'
only for cleaning up a buffer. See `whitespace-cleanup' and
`whitespace-cleanup-region'.
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
See also `whitespace-display-mappings' for documentation."
Update the options in whitespace-style defcustom * lisp/whitespace.el (whitespace-style): Use `set' instead of a `repeat' because the option is really set-like. Add missing options. Reorder options to match the order in the documentation. (Bug#20346)
2015-05-02 09:15:46 +00:00
:type '(set :tag "Kind of Blank"
(const :tag "(Face) Face visualization" face)
(const :tag "(Face) Trailing TABs, SPACEs and HARD SPACEs"
trailing)
(const :tag "(Face) TABs" tabs)
(const :tag "(Face) SPACEs and HARD SPACEs" spaces)
(const :tag "(Face) Lines" lines)
(const :tag "(Face) Lines, only overlong part" lines-tail)
(const :tag "(Face) NEWLINEs" newline)
Fix some defcustom types * lisp/whitespace.el (whitespace-style): * lisp/gnus/message.el (message-screenshot-command): * lisp/progmodes/compile.el (compilation-transform-file-match-alist): * lisp/progmodes/gdb-mi.el (gdb-default-window-configuration-file): * lisp/progmodes/python.el (python-pdbtrack-exit-command): Fix the defcustom types. * lisp/progmodes/sql.el (sql-password-wallet): Fix the value.
2020-09-25 13:15:21 +00:00
(const :tag "(Face) Missing newlines at EOB"
missing-newline-at-eof)
Update the options in whitespace-style defcustom * lisp/whitespace.el (whitespace-style): Use `set' instead of a `repeat' because the option is really set-like. Add missing options. Reorder options to match the order in the documentation. (Bug#20346)
2015-05-02 09:15:46 +00:00
(const :tag "(Face) Empty Lines At BOB And/Or EOB" empty)
(const :tag "(Face) Indentation SPACEs" indentation::tab)
(const :tag "(Face) Indentation TABs"
indentation::space)
(const :tag "(Face) Indentation TABs or SPACEs" indentation)
(const :tag "(Face) Too much line indentation" big-indent)
(const :tag "(Face) SPACEs after TAB: SPACEs"
space-after-tab::tab)
(const :tag "(Face) SPACEs after TAB: TABs"
space-after-tab::space)
(const :tag "(Face) SPACEs after TAB" space-after-tab)
(const :tag "(Face) SPACEs before TAB: SPACEs"
space-before-tab::tab)
(const :tag "(Face) SPACEs before TAB: TABs"
space-before-tab::space)
(const :tag "(Face) SPACEs before TAB" space-before-tab)
(const :tag "(Mark) SPACEs and HARD SPACEs" space-mark)
(const :tag "(Mark) TABs" tab-mark)
(const :tag "(Mark) NEWLINEs" newline-mark))
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
(defvar whitespace-space 'whitespace-space
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Symbol face used to visualize SPACE.
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
Used when `whitespace-style' includes the value `spaces'.")
lisp/whitespace.el: End obsolescence messages with dot. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation, whitespace-empty) (whitespace-space-after-tab): Fix typo in docstrings.
2014-02-21 16:18:56 +00:00
(make-obsolete-variable 'whitespace-space "use the face instead." "24.4")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defface whitespace-space
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
'((((class color) (background dark))
Face cleanups. Remove some uses of old-style face spec and :bold/:italic. * faces.el (set-face-attribute): Doc fix. (modify-face): Don't use :bold and :italic. (error, warning, success): Tweak definitions. * cus-edit.el (custom-modified, custom-invalid, custom-rogue) (custom-modified, custom-set, custom-changed, custom-themed) (custom-saved, custom-button, custom-button-mouse) (custom-button-pressed, custom-state, custom-comment-tag) (custom-variable-tag, custom-group-tag-1, custom-group-tag) (custom-group-subtitle): Use new-style face specs. (custom-invalid-face, custom-rogue-face, custom-modified-face) (custom-set-face, custom-changed-face, custom-saved-face) (custom-button-face, custom-button-pressed-face) (custom-documentation-face, custom-state-face) (custom-comment-face, custom-comment-tag-face) (custom-variable-tag-face, custom-variable-button-face) (custom-face-tag-face, custom-group-tag-face-1) (custom-group-tag-face): Remove obsolete face alias. * epa.el (epa-validity-high, epa-validity-medium) (epa-validity-low, epa-mark, epa-field-name, epa-string) (epa-field-name, epa-field-body): * font-lock.el (font-lock-comment-face, font-lock-string-face) (font-lock-keyword-face, font-lock-builtin-face) (font-lock-function-name-face, font-lock-variable-name-face) (font-lock-type-face, font-lock-constant-face): * ido.el (ido-first-match, ido-only-match, ido-subdir) (ido-virtual, ido-indicator, ido-incomplete-regexp): * speedbar.el (speedbar-button-face, speedbar-file-face) (speedbar-directory-face, speedbar-tag-face) (speedbar-selected-face, speedbar-highlight-face) (speedbar-separator-face): * whitespace.el (whitespace-newline, whitespace-space) (whitespace-hspace, whitespace-tab, whitespace-trailing) (whitespace-line, whitespace-space-before-tab) (whitespace-space-after-tab, whitespace-indentation) (whitespace-empty): * emulation/cua-base.el (cua-global-mark): * eshell/em-prompt.el (eshell-prompt): * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face, newsticker-default-face): * net/newst-reader.el (newsticker-feed-face) (newsticker-extra-face, newsticker-enclosure-face): * net/newst-treeview.el (newsticker-treeview-face) (newsticker-treeview-new-face, newsticker-treeview-old-face) (newsticker-treeview-immortal-face) (newsticker-treeview-obsolete-face) (newsticker-treeview-selection-face): * net/rcirc.el (rcirc-my-nick, rcirc-other-nick) (rcirc-bright-nick, rcirc-server, rcirc-timestamp) (rcirc-nick-in-message, rcirc-nick-in-message-full-line) (rcirc-prompt, rcirc-track-keyword, rcirc-url, rcirc-keyword): * nxml/nxml-outln.el (nxml-heading, nxml-outline-indicator) (nxml-outline-active-indicator, nxml-outline-ellipsis): * play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): * progmodes/vera-mode.el (vera-font-lock-number) (vera-font-lock-function, vera-font-lock-interface): * textmodes/table.el (table-cell): Use new-style face specs, and don't use the old :bold and :italic attributes. * erc-button.el (erc-button): * erc-goodies.el (erc-bold-face, erc-inverse-face) (erc-underline-face, fg:erc-color-*): * erc-match.el (erc-current-nick-face, erc-dangerous-host-face) (erc-pal-face, erc-fool-face, erc-keyword-face): * erc-stamp.el (erc-timestamp-face): Likewise. * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) (erc-command-indicator-face, erc-notice-face, erc-action-face) (erc-error-face, erc-my-nick-face, erc-nick-default-face) (erc-nick-msg-face): Use new-style face specs, and avoid :bold. * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-member-attribute, ebrowse-default, ebrowse-file-name) (ebrowse-member-class, ebrowse-progress): Likewise. (ebrowse-tree-mark-face, ebrowse-root-class-face) (ebrowse-file-name-face, ebrowse-default-face) (ebrowse-member-attribute-face, ebrowse-member-class-face) (ebrowse-progress-face): Remove obsolete faces. * progmodes/flymake.el (flymake-errline, flymake-warnline): Inherit from error and warning faces respectively. * textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate): Likewise. (flyspell-incorrect-face, flyspell-duplicate-face): Remove obsolete aliases. * display.texi (Face Attributes): Font family does not accept wildcards. De-document obsolete :bold and :italic attributes. (Defining Faces): Use new-style face spec format.
2012-06-08 16:39:49 +00:00
:background "grey20" :foreground "darkgray")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(((class color) (background light))
Face cleanups. Remove some uses of old-style face spec and :bold/:italic. * faces.el (set-face-attribute): Doc fix. (modify-face): Don't use :bold and :italic. (error, warning, success): Tweak definitions. * cus-edit.el (custom-modified, custom-invalid, custom-rogue) (custom-modified, custom-set, custom-changed, custom-themed) (custom-saved, custom-button, custom-button-mouse) (custom-button-pressed, custom-state, custom-comment-tag) (custom-variable-tag, custom-group-tag-1, custom-group-tag) (custom-group-subtitle): Use new-style face specs. (custom-invalid-face, custom-rogue-face, custom-modified-face) (custom-set-face, custom-changed-face, custom-saved-face) (custom-button-face, custom-button-pressed-face) (custom-documentation-face, custom-state-face) (custom-comment-face, custom-comment-tag-face) (custom-variable-tag-face, custom-variable-button-face) (custom-face-tag-face, custom-group-tag-face-1) (custom-group-tag-face): Remove obsolete face alias. * epa.el (epa-validity-high, epa-validity-medium) (epa-validity-low, epa-mark, epa-field-name, epa-string) (epa-field-name, epa-field-body): * font-lock.el (font-lock-comment-face, font-lock-string-face) (font-lock-keyword-face, font-lock-builtin-face) (font-lock-function-name-face, font-lock-variable-name-face) (font-lock-type-face, font-lock-constant-face): * ido.el (ido-first-match, ido-only-match, ido-subdir) (ido-virtual, ido-indicator, ido-incomplete-regexp): * speedbar.el (speedbar-button-face, speedbar-file-face) (speedbar-directory-face, speedbar-tag-face) (speedbar-selected-face, speedbar-highlight-face) (speedbar-separator-face): * whitespace.el (whitespace-newline, whitespace-space) (whitespace-hspace, whitespace-tab, whitespace-trailing) (whitespace-line, whitespace-space-before-tab) (whitespace-space-after-tab, whitespace-indentation) (whitespace-empty): * emulation/cua-base.el (cua-global-mark): * eshell/em-prompt.el (eshell-prompt): * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face, newsticker-default-face): * net/newst-reader.el (newsticker-feed-face) (newsticker-extra-face, newsticker-enclosure-face): * net/newst-treeview.el (newsticker-treeview-face) (newsticker-treeview-new-face, newsticker-treeview-old-face) (newsticker-treeview-immortal-face) (newsticker-treeview-obsolete-face) (newsticker-treeview-selection-face): * net/rcirc.el (rcirc-my-nick, rcirc-other-nick) (rcirc-bright-nick, rcirc-server, rcirc-timestamp) (rcirc-nick-in-message, rcirc-nick-in-message-full-line) (rcirc-prompt, rcirc-track-keyword, rcirc-url, rcirc-keyword): * nxml/nxml-outln.el (nxml-heading, nxml-outline-indicator) (nxml-outline-active-indicator, nxml-outline-ellipsis): * play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): * progmodes/vera-mode.el (vera-font-lock-number) (vera-font-lock-function, vera-font-lock-interface): * textmodes/table.el (table-cell): Use new-style face specs, and don't use the old :bold and :italic attributes. * erc-button.el (erc-button): * erc-goodies.el (erc-bold-face, erc-inverse-face) (erc-underline-face, fg:erc-color-*): * erc-match.el (erc-current-nick-face, erc-dangerous-host-face) (erc-pal-face, erc-fool-face, erc-keyword-face): * erc-stamp.el (erc-timestamp-face): Likewise. * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) (erc-command-indicator-face, erc-notice-face, erc-action-face) (erc-error-face, erc-my-nick-face, erc-nick-default-face) (erc-nick-msg-face): Use new-style face specs, and avoid :bold. * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-member-attribute, ebrowse-default, ebrowse-file-name) (ebrowse-member-class, ebrowse-progress): Likewise. (ebrowse-tree-mark-face, ebrowse-root-class-face) (ebrowse-file-name-face, ebrowse-default-face) (ebrowse-member-attribute-face, ebrowse-member-class-face) (ebrowse-progress-face): Remove obsolete faces. * progmodes/flymake.el (flymake-errline, flymake-warnline): Inherit from error and warning faces respectively. * textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate): Likewise. (flyspell-incorrect-face, flyspell-duplicate-face): Remove obsolete aliases. * display.texi (Face Attributes): Font family does not accept wildcards. De-document obsolete :bold and :italic attributes. (Defining Faces): Use new-style face spec format.
2012-06-08 16:39:49 +00:00
:background "LightYellow" :foreground "lightgray")
(t :inverse-video t))
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
"Face used to visualize SPACE."
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
(defvar whitespace-hspace 'whitespace-hspace
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Symbol face used to visualize HARD SPACE.
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
Used when `whitespace-style' includes the value `spaces'.")
lisp/whitespace.el: End obsolescence messages with dot. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation, whitespace-empty) (whitespace-space-after-tab): Fix typo in docstrings.
2014-02-21 16:18:56 +00:00
(make-obsolete-variable 'whitespace-hspace "use the face instead." "24.4")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defface whitespace-hspace ; 'nobreak-space
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
'((((class color) (background dark))
Face cleanups. Remove some uses of old-style face spec and :bold/:italic. * faces.el (set-face-attribute): Doc fix. (modify-face): Don't use :bold and :italic. (error, warning, success): Tweak definitions. * cus-edit.el (custom-modified, custom-invalid, custom-rogue) (custom-modified, custom-set, custom-changed, custom-themed) (custom-saved, custom-button, custom-button-mouse) (custom-button-pressed, custom-state, custom-comment-tag) (custom-variable-tag, custom-group-tag-1, custom-group-tag) (custom-group-subtitle): Use new-style face specs. (custom-invalid-face, custom-rogue-face, custom-modified-face) (custom-set-face, custom-changed-face, custom-saved-face) (custom-button-face, custom-button-pressed-face) (custom-documentation-face, custom-state-face) (custom-comment-face, custom-comment-tag-face) (custom-variable-tag-face, custom-variable-button-face) (custom-face-tag-face, custom-group-tag-face-1) (custom-group-tag-face): Remove obsolete face alias. * epa.el (epa-validity-high, epa-validity-medium) (epa-validity-low, epa-mark, epa-field-name, epa-string) (epa-field-name, epa-field-body): * font-lock.el (font-lock-comment-face, font-lock-string-face) (font-lock-keyword-face, font-lock-builtin-face) (font-lock-function-name-face, font-lock-variable-name-face) (font-lock-type-face, font-lock-constant-face): * ido.el (ido-first-match, ido-only-match, ido-subdir) (ido-virtual, ido-indicator, ido-incomplete-regexp): * speedbar.el (speedbar-button-face, speedbar-file-face) (speedbar-directory-face, speedbar-tag-face) (speedbar-selected-face, speedbar-highlight-face) (speedbar-separator-face): * whitespace.el (whitespace-newline, whitespace-space) (whitespace-hspace, whitespace-tab, whitespace-trailing) (whitespace-line, whitespace-space-before-tab) (whitespace-space-after-tab, whitespace-indentation) (whitespace-empty): * emulation/cua-base.el (cua-global-mark): * eshell/em-prompt.el (eshell-prompt): * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face, newsticker-default-face): * net/newst-reader.el (newsticker-feed-face) (newsticker-extra-face, newsticker-enclosure-face): * net/newst-treeview.el (newsticker-treeview-face) (newsticker-treeview-new-face, newsticker-treeview-old-face) (newsticker-treeview-immortal-face) (newsticker-treeview-obsolete-face) (newsticker-treeview-selection-face): * net/rcirc.el (rcirc-my-nick, rcirc-other-nick) (rcirc-bright-nick, rcirc-server, rcirc-timestamp) (rcirc-nick-in-message, rcirc-nick-in-message-full-line) (rcirc-prompt, rcirc-track-keyword, rcirc-url, rcirc-keyword): * nxml/nxml-outln.el (nxml-heading, nxml-outline-indicator) (nxml-outline-active-indicator, nxml-outline-ellipsis): * play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): * progmodes/vera-mode.el (vera-font-lock-number) (vera-font-lock-function, vera-font-lock-interface): * textmodes/table.el (table-cell): Use new-style face specs, and don't use the old :bold and :italic attributes. * erc-button.el (erc-button): * erc-goodies.el (erc-bold-face, erc-inverse-face) (erc-underline-face, fg:erc-color-*): * erc-match.el (erc-current-nick-face, erc-dangerous-host-face) (erc-pal-face, erc-fool-face, erc-keyword-face): * erc-stamp.el (erc-timestamp-face): Likewise. * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) (erc-command-indicator-face, erc-notice-face, erc-action-face) (erc-error-face, erc-my-nick-face, erc-nick-default-face) (erc-nick-msg-face): Use new-style face specs, and avoid :bold. * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-member-attribute, ebrowse-default, ebrowse-file-name) (ebrowse-member-class, ebrowse-progress): Likewise. (ebrowse-tree-mark-face, ebrowse-root-class-face) (ebrowse-file-name-face, ebrowse-default-face) (ebrowse-member-attribute-face, ebrowse-member-class-face) (ebrowse-progress-face): Remove obsolete faces. * progmodes/flymake.el (flymake-errline, flymake-warnline): Inherit from error and warning faces respectively. * textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate): Likewise. (flyspell-incorrect-face, flyspell-duplicate-face): Remove obsolete aliases. * display.texi (Face Attributes): Font family does not accept wildcards. De-document obsolete :bold and :italic attributes. (Defining Faces): Use new-style face spec format.
2012-06-08 16:39:49 +00:00
:background "grey24" :foreground "darkgray")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(((class color) (background light))
Face cleanups. Remove some uses of old-style face spec and :bold/:italic. * faces.el (set-face-attribute): Doc fix. (modify-face): Don't use :bold and :italic. (error, warning, success): Tweak definitions. * cus-edit.el (custom-modified, custom-invalid, custom-rogue) (custom-modified, custom-set, custom-changed, custom-themed) (custom-saved, custom-button, custom-button-mouse) (custom-button-pressed, custom-state, custom-comment-tag) (custom-variable-tag, custom-group-tag-1, custom-group-tag) (custom-group-subtitle): Use new-style face specs. (custom-invalid-face, custom-rogue-face, custom-modified-face) (custom-set-face, custom-changed-face, custom-saved-face) (custom-button-face, custom-button-pressed-face) (custom-documentation-face, custom-state-face) (custom-comment-face, custom-comment-tag-face) (custom-variable-tag-face, custom-variable-button-face) (custom-face-tag-face, custom-group-tag-face-1) (custom-group-tag-face): Remove obsolete face alias. * epa.el (epa-validity-high, epa-validity-medium) (epa-validity-low, epa-mark, epa-field-name, epa-string) (epa-field-name, epa-field-body): * font-lock.el (font-lock-comment-face, font-lock-string-face) (font-lock-keyword-face, font-lock-builtin-face) (font-lock-function-name-face, font-lock-variable-name-face) (font-lock-type-face, font-lock-constant-face): * ido.el (ido-first-match, ido-only-match, ido-subdir) (ido-virtual, ido-indicator, ido-incomplete-regexp): * speedbar.el (speedbar-button-face, speedbar-file-face) (speedbar-directory-face, speedbar-tag-face) (speedbar-selected-face, speedbar-highlight-face) (speedbar-separator-face): * whitespace.el (whitespace-newline, whitespace-space) (whitespace-hspace, whitespace-tab, whitespace-trailing) (whitespace-line, whitespace-space-before-tab) (whitespace-space-after-tab, whitespace-indentation) (whitespace-empty): * emulation/cua-base.el (cua-global-mark): * eshell/em-prompt.el (eshell-prompt): * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face, newsticker-default-face): * net/newst-reader.el (newsticker-feed-face) (newsticker-extra-face, newsticker-enclosure-face): * net/newst-treeview.el (newsticker-treeview-face) (newsticker-treeview-new-face, newsticker-treeview-old-face) (newsticker-treeview-immortal-face) (newsticker-treeview-obsolete-face) (newsticker-treeview-selection-face): * net/rcirc.el (rcirc-my-nick, rcirc-other-nick) (rcirc-bright-nick, rcirc-server, rcirc-timestamp) (rcirc-nick-in-message, rcirc-nick-in-message-full-line) (rcirc-prompt, rcirc-track-keyword, rcirc-url, rcirc-keyword): * nxml/nxml-outln.el (nxml-heading, nxml-outline-indicator) (nxml-outline-active-indicator, nxml-outline-ellipsis): * play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): * progmodes/vera-mode.el (vera-font-lock-number) (vera-font-lock-function, vera-font-lock-interface): * textmodes/table.el (table-cell): Use new-style face specs, and don't use the old :bold and :italic attributes. * erc-button.el (erc-button): * erc-goodies.el (erc-bold-face, erc-inverse-face) (erc-underline-face, fg:erc-color-*): * erc-match.el (erc-current-nick-face, erc-dangerous-host-face) (erc-pal-face, erc-fool-face, erc-keyword-face): * erc-stamp.el (erc-timestamp-face): Likewise. * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) (erc-command-indicator-face, erc-notice-face, erc-action-face) (erc-error-face, erc-my-nick-face, erc-nick-default-face) (erc-nick-msg-face): Use new-style face specs, and avoid :bold. * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-member-attribute, ebrowse-default, ebrowse-file-name) (ebrowse-member-class, ebrowse-progress): Likewise. (ebrowse-tree-mark-face, ebrowse-root-class-face) (ebrowse-file-name-face, ebrowse-default-face) (ebrowse-member-attribute-face, ebrowse-member-class-face) (ebrowse-progress-face): Remove obsolete faces. * progmodes/flymake.el (flymake-errline, flymake-warnline): Inherit from error and warning faces respectively. * textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate): Likewise. (flyspell-incorrect-face, flyspell-duplicate-face): Remove obsolete aliases. * display.texi (Face Attributes): Font family does not accept wildcards. De-document obsolete :bold and :italic attributes. (Defining Faces): Use new-style face spec format.
2012-06-08 16:39:49 +00:00
:background "LemonChiffon3" :foreground "lightgray")
(t :inverse-video t))
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
"Face used to visualize HARD SPACE."
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
(defvar whitespace-tab 'whitespace-tab
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Symbol face used to visualize TAB.
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
Used when `whitespace-style' includes the value `tabs'.")
Clarify obsolescence message for 'whitespace-tab' * lisp/whitespace.el (whitespace-tab): Make the obsolescence message more clear about the replacement.
2017-10-28 09:06:30 +00:00
(make-obsolete-variable 'whitespace-tab
"customize the face `whitespace-tab' instead." "24.4")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defface whitespace-tab
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
'((((class color) (background dark))
Face cleanups. Remove some uses of old-style face spec and :bold/:italic. * faces.el (set-face-attribute): Doc fix. (modify-face): Don't use :bold and :italic. (error, warning, success): Tweak definitions. * cus-edit.el (custom-modified, custom-invalid, custom-rogue) (custom-modified, custom-set, custom-changed, custom-themed) (custom-saved, custom-button, custom-button-mouse) (custom-button-pressed, custom-state, custom-comment-tag) (custom-variable-tag, custom-group-tag-1, custom-group-tag) (custom-group-subtitle): Use new-style face specs. (custom-invalid-face, custom-rogue-face, custom-modified-face) (custom-set-face, custom-changed-face, custom-saved-face) (custom-button-face, custom-button-pressed-face) (custom-documentation-face, custom-state-face) (custom-comment-face, custom-comment-tag-face) (custom-variable-tag-face, custom-variable-button-face) (custom-face-tag-face, custom-group-tag-face-1) (custom-group-tag-face): Remove obsolete face alias. * epa.el (epa-validity-high, epa-validity-medium) (epa-validity-low, epa-mark, epa-field-name, epa-string) (epa-field-name, epa-field-body): * font-lock.el (font-lock-comment-face, font-lock-string-face) (font-lock-keyword-face, font-lock-builtin-face) (font-lock-function-name-face, font-lock-variable-name-face) (font-lock-type-face, font-lock-constant-face): * ido.el (ido-first-match, ido-only-match, ido-subdir) (ido-virtual, ido-indicator, ido-incomplete-regexp): * speedbar.el (speedbar-button-face, speedbar-file-face) (speedbar-directory-face, speedbar-tag-face) (speedbar-selected-face, speedbar-highlight-face) (speedbar-separator-face): * whitespace.el (whitespace-newline, whitespace-space) (whitespace-hspace, whitespace-tab, whitespace-trailing) (whitespace-line, whitespace-space-before-tab) (whitespace-space-after-tab, whitespace-indentation) (whitespace-empty): * emulation/cua-base.el (cua-global-mark): * eshell/em-prompt.el (eshell-prompt): * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face, newsticker-default-face): * net/newst-reader.el (newsticker-feed-face) (newsticker-extra-face, newsticker-enclosure-face): * net/newst-treeview.el (newsticker-treeview-face) (newsticker-treeview-new-face, newsticker-treeview-old-face) (newsticker-treeview-immortal-face) (newsticker-treeview-obsolete-face) (newsticker-treeview-selection-face): * net/rcirc.el (rcirc-my-nick, rcirc-other-nick) (rcirc-bright-nick, rcirc-server, rcirc-timestamp) (rcirc-nick-in-message, rcirc-nick-in-message-full-line) (rcirc-prompt, rcirc-track-keyword, rcirc-url, rcirc-keyword): * nxml/nxml-outln.el (nxml-heading, nxml-outline-indicator) (nxml-outline-active-indicator, nxml-outline-ellipsis): * play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): * progmodes/vera-mode.el (vera-font-lock-number) (vera-font-lock-function, vera-font-lock-interface): * textmodes/table.el (table-cell): Use new-style face specs, and don't use the old :bold and :italic attributes. * erc-button.el (erc-button): * erc-goodies.el (erc-bold-face, erc-inverse-face) (erc-underline-face, fg:erc-color-*): * erc-match.el (erc-current-nick-face, erc-dangerous-host-face) (erc-pal-face, erc-fool-face, erc-keyword-face): * erc-stamp.el (erc-timestamp-face): Likewise. * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) (erc-command-indicator-face, erc-notice-face, erc-action-face) (erc-error-face, erc-my-nick-face, erc-nick-default-face) (erc-nick-msg-face): Use new-style face specs, and avoid :bold. * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-member-attribute, ebrowse-default, ebrowse-file-name) (ebrowse-member-class, ebrowse-progress): Likewise. (ebrowse-tree-mark-face, ebrowse-root-class-face) (ebrowse-file-name-face, ebrowse-default-face) (ebrowse-member-attribute-face, ebrowse-member-class-face) (ebrowse-progress-face): Remove obsolete faces. * progmodes/flymake.el (flymake-errline, flymake-warnline): Inherit from error and warning faces respectively. * textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate): Likewise. (flyspell-incorrect-face, flyspell-duplicate-face): Remove obsolete aliases. * display.texi (Face Attributes): Font family does not accept wildcards. De-document obsolete :bold and :italic attributes. (Defining Faces): Use new-style face spec format.
2012-06-08 16:39:49 +00:00
:background "grey22" :foreground "darkgray")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(((class color) (background light))
Face cleanups. Remove some uses of old-style face spec and :bold/:italic. * faces.el (set-face-attribute): Doc fix. (modify-face): Don't use :bold and :italic. (error, warning, success): Tweak definitions. * cus-edit.el (custom-modified, custom-invalid, custom-rogue) (custom-modified, custom-set, custom-changed, custom-themed) (custom-saved, custom-button, custom-button-mouse) (custom-button-pressed, custom-state, custom-comment-tag) (custom-variable-tag, custom-group-tag-1, custom-group-tag) (custom-group-subtitle): Use new-style face specs. (custom-invalid-face, custom-rogue-face, custom-modified-face) (custom-set-face, custom-changed-face, custom-saved-face) (custom-button-face, custom-button-pressed-face) (custom-documentation-face, custom-state-face) (custom-comment-face, custom-comment-tag-face) (custom-variable-tag-face, custom-variable-button-face) (custom-face-tag-face, custom-group-tag-face-1) (custom-group-tag-face): Remove obsolete face alias. * epa.el (epa-validity-high, epa-validity-medium) (epa-validity-low, epa-mark, epa-field-name, epa-string) (epa-field-name, epa-field-body): * font-lock.el (font-lock-comment-face, font-lock-string-face) (font-lock-keyword-face, font-lock-builtin-face) (font-lock-function-name-face, font-lock-variable-name-face) (font-lock-type-face, font-lock-constant-face): * ido.el (ido-first-match, ido-only-match, ido-subdir) (ido-virtual, ido-indicator, ido-incomplete-regexp): * speedbar.el (speedbar-button-face, speedbar-file-face) (speedbar-directory-face, speedbar-tag-face) (speedbar-selected-face, speedbar-highlight-face) (speedbar-separator-face): * whitespace.el (whitespace-newline, whitespace-space) (whitespace-hspace, whitespace-tab, whitespace-trailing) (whitespace-line, whitespace-space-before-tab) (whitespace-space-after-tab, whitespace-indentation) (whitespace-empty): * emulation/cua-base.el (cua-global-mark): * eshell/em-prompt.el (eshell-prompt): * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face, newsticker-default-face): * net/newst-reader.el (newsticker-feed-face) (newsticker-extra-face, newsticker-enclosure-face): * net/newst-treeview.el (newsticker-treeview-face) (newsticker-treeview-new-face, newsticker-treeview-old-face) (newsticker-treeview-immortal-face) (newsticker-treeview-obsolete-face) (newsticker-treeview-selection-face): * net/rcirc.el (rcirc-my-nick, rcirc-other-nick) (rcirc-bright-nick, rcirc-server, rcirc-timestamp) (rcirc-nick-in-message, rcirc-nick-in-message-full-line) (rcirc-prompt, rcirc-track-keyword, rcirc-url, rcirc-keyword): * nxml/nxml-outln.el (nxml-heading, nxml-outline-indicator) (nxml-outline-active-indicator, nxml-outline-ellipsis): * play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): * progmodes/vera-mode.el (vera-font-lock-number) (vera-font-lock-function, vera-font-lock-interface): * textmodes/table.el (table-cell): Use new-style face specs, and don't use the old :bold and :italic attributes. * erc-button.el (erc-button): * erc-goodies.el (erc-bold-face, erc-inverse-face) (erc-underline-face, fg:erc-color-*): * erc-match.el (erc-current-nick-face, erc-dangerous-host-face) (erc-pal-face, erc-fool-face, erc-keyword-face): * erc-stamp.el (erc-timestamp-face): Likewise. * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) (erc-command-indicator-face, erc-notice-face, erc-action-face) (erc-error-face, erc-my-nick-face, erc-nick-default-face) (erc-nick-msg-face): Use new-style face specs, and avoid :bold. * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-member-attribute, ebrowse-default, ebrowse-file-name) (ebrowse-member-class, ebrowse-progress): Likewise. (ebrowse-tree-mark-face, ebrowse-root-class-face) (ebrowse-file-name-face, ebrowse-default-face) (ebrowse-member-attribute-face, ebrowse-member-class-face) (ebrowse-progress-face): Remove obsolete faces. * progmodes/flymake.el (flymake-errline, flymake-warnline): Inherit from error and warning faces respectively. * textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate): Likewise. (flyspell-incorrect-face, flyspell-duplicate-face): Remove obsolete aliases. * display.texi (Face Attributes): Font family does not accept wildcards. De-document obsolete :bold and :italic attributes. (Defining Faces): Use new-style face spec format.
2012-06-08 16:39:49 +00:00
:background "beige" :foreground "lightgray")
(t :inverse-video t))
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
"Face used to visualize TAB."
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
(defvar whitespace-newline 'whitespace-newline
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Symbol face used to visualize NEWLINE char mapping.
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
See `whitespace-display-mappings'.
New version 11.0.
2008-04-26 11:38:50 +00:00
Used when `whitespace-style' includes the values `newline-mark'
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
and `newline'.")
lisp/whitespace.el: End obsolescence messages with dot. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation, whitespace-empty) (whitespace-space-after-tab): Fix typo in docstrings.
2014-02-21 16:18:56 +00:00
(make-obsolete-variable 'whitespace-newline "use the face instead." "24.4")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defface whitespace-newline
Face cleanups. Remove some uses of old-style face spec and :bold/:italic. * faces.el (set-face-attribute): Doc fix. (modify-face): Don't use :bold and :italic. (error, warning, success): Tweak definitions. * cus-edit.el (custom-modified, custom-invalid, custom-rogue) (custom-modified, custom-set, custom-changed, custom-themed) (custom-saved, custom-button, custom-button-mouse) (custom-button-pressed, custom-state, custom-comment-tag) (custom-variable-tag, custom-group-tag-1, custom-group-tag) (custom-group-subtitle): Use new-style face specs. (custom-invalid-face, custom-rogue-face, custom-modified-face) (custom-set-face, custom-changed-face, custom-saved-face) (custom-button-face, custom-button-pressed-face) (custom-documentation-face, custom-state-face) (custom-comment-face, custom-comment-tag-face) (custom-variable-tag-face, custom-variable-button-face) (custom-face-tag-face, custom-group-tag-face-1) (custom-group-tag-face): Remove obsolete face alias. * epa.el (epa-validity-high, epa-validity-medium) (epa-validity-low, epa-mark, epa-field-name, epa-string) (epa-field-name, epa-field-body): * font-lock.el (font-lock-comment-face, font-lock-string-face) (font-lock-keyword-face, font-lock-builtin-face) (font-lock-function-name-face, font-lock-variable-name-face) (font-lock-type-face, font-lock-constant-face): * ido.el (ido-first-match, ido-only-match, ido-subdir) (ido-virtual, ido-indicator, ido-incomplete-regexp): * speedbar.el (speedbar-button-face, speedbar-file-face) (speedbar-directory-face, speedbar-tag-face) (speedbar-selected-face, speedbar-highlight-face) (speedbar-separator-face): * whitespace.el (whitespace-newline, whitespace-space) (whitespace-hspace, whitespace-tab, whitespace-trailing) (whitespace-line, whitespace-space-before-tab) (whitespace-space-after-tab, whitespace-indentation) (whitespace-empty): * emulation/cua-base.el (cua-global-mark): * eshell/em-prompt.el (eshell-prompt): * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face, newsticker-default-face): * net/newst-reader.el (newsticker-feed-face) (newsticker-extra-face, newsticker-enclosure-face): * net/newst-treeview.el (newsticker-treeview-face) (newsticker-treeview-new-face, newsticker-treeview-old-face) (newsticker-treeview-immortal-face) (newsticker-treeview-obsolete-face) (newsticker-treeview-selection-face): * net/rcirc.el (rcirc-my-nick, rcirc-other-nick) (rcirc-bright-nick, rcirc-server, rcirc-timestamp) (rcirc-nick-in-message, rcirc-nick-in-message-full-line) (rcirc-prompt, rcirc-track-keyword, rcirc-url, rcirc-keyword): * nxml/nxml-outln.el (nxml-heading, nxml-outline-indicator) (nxml-outline-active-indicator, nxml-outline-ellipsis): * play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): * progmodes/vera-mode.el (vera-font-lock-number) (vera-font-lock-function, vera-font-lock-interface): * textmodes/table.el (table-cell): Use new-style face specs, and don't use the old :bold and :italic attributes. * erc-button.el (erc-button): * erc-goodies.el (erc-bold-face, erc-inverse-face) (erc-underline-face, fg:erc-color-*): * erc-match.el (erc-current-nick-face, erc-dangerous-host-face) (erc-pal-face, erc-fool-face, erc-keyword-face): * erc-stamp.el (erc-timestamp-face): Likewise. * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) (erc-command-indicator-face, erc-notice-face, erc-action-face) (erc-error-face, erc-my-nick-face, erc-nick-default-face) (erc-nick-msg-face): Use new-style face specs, and avoid :bold. * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-member-attribute, ebrowse-default, ebrowse-file-name) (ebrowse-member-class, ebrowse-progress): Likewise. (ebrowse-tree-mark-face, ebrowse-root-class-face) (ebrowse-file-name-face, ebrowse-default-face) (ebrowse-member-attribute-face, ebrowse-member-class-face) (ebrowse-progress-face): Remove obsolete faces. * progmodes/flymake.el (flymake-errline, flymake-warnline): Inherit from error and warning faces respectively. * textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate): Likewise. (flyspell-incorrect-face, flyspell-duplicate-face): Remove obsolete aliases. * display.texi (Face Attributes): Font family does not accept wildcards. De-document obsolete :bold and :italic attributes. (Defining Faces): Use new-style face spec format.
2012-06-08 16:39:49 +00:00
'((default :weight normal)
(((class color) (background dark)) :foreground "darkgray")
(((class color) (min-colors 88) (background light)) :foreground "lightgray")
Tweak whitespace-newline color for 16-color displays. lisp/whitespace.el (whitespace-newline): Use a different foreground color for 16-color light-background displays.
2011-11-26 08:50:48 +00:00
;; Displays with 16 colors use lightgray as background, so using a
;; lightgray foreground makes the newline mark invisible.
Face cleanups. Remove some uses of old-style face spec and :bold/:italic. * faces.el (set-face-attribute): Doc fix. (modify-face): Don't use :bold and :italic. (error, warning, success): Tweak definitions. * cus-edit.el (custom-modified, custom-invalid, custom-rogue) (custom-modified, custom-set, custom-changed, custom-themed) (custom-saved, custom-button, custom-button-mouse) (custom-button-pressed, custom-state, custom-comment-tag) (custom-variable-tag, custom-group-tag-1, custom-group-tag) (custom-group-subtitle): Use new-style face specs. (custom-invalid-face, custom-rogue-face, custom-modified-face) (custom-set-face, custom-changed-face, custom-saved-face) (custom-button-face, custom-button-pressed-face) (custom-documentation-face, custom-state-face) (custom-comment-face, custom-comment-tag-face) (custom-variable-tag-face, custom-variable-button-face) (custom-face-tag-face, custom-group-tag-face-1) (custom-group-tag-face): Remove obsolete face alias. * epa.el (epa-validity-high, epa-validity-medium) (epa-validity-low, epa-mark, epa-field-name, epa-string) (epa-field-name, epa-field-body): * font-lock.el (font-lock-comment-face, font-lock-string-face) (font-lock-keyword-face, font-lock-builtin-face) (font-lock-function-name-face, font-lock-variable-name-face) (font-lock-type-face, font-lock-constant-face): * ido.el (ido-first-match, ido-only-match, ido-subdir) (ido-virtual, ido-indicator, ido-incomplete-regexp): * speedbar.el (speedbar-button-face, speedbar-file-face) (speedbar-directory-face, speedbar-tag-face) (speedbar-selected-face, speedbar-highlight-face) (speedbar-separator-face): * whitespace.el (whitespace-newline, whitespace-space) (whitespace-hspace, whitespace-tab, whitespace-trailing) (whitespace-line, whitespace-space-before-tab) (whitespace-space-after-tab, whitespace-indentation) (whitespace-empty): * emulation/cua-base.el (cua-global-mark): * eshell/em-prompt.el (eshell-prompt): * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face, newsticker-default-face): * net/newst-reader.el (newsticker-feed-face) (newsticker-extra-face, newsticker-enclosure-face): * net/newst-treeview.el (newsticker-treeview-face) (newsticker-treeview-new-face, newsticker-treeview-old-face) (newsticker-treeview-immortal-face) (newsticker-treeview-obsolete-face) (newsticker-treeview-selection-face): * net/rcirc.el (rcirc-my-nick, rcirc-other-nick) (rcirc-bright-nick, rcirc-server, rcirc-timestamp) (rcirc-nick-in-message, rcirc-nick-in-message-full-line) (rcirc-prompt, rcirc-track-keyword, rcirc-url, rcirc-keyword): * nxml/nxml-outln.el (nxml-heading, nxml-outline-indicator) (nxml-outline-active-indicator, nxml-outline-ellipsis): * play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): * progmodes/vera-mode.el (vera-font-lock-number) (vera-font-lock-function, vera-font-lock-interface): * textmodes/table.el (table-cell): Use new-style face specs, and don't use the old :bold and :italic attributes. * erc-button.el (erc-button): * erc-goodies.el (erc-bold-face, erc-inverse-face) (erc-underline-face, fg:erc-color-*): * erc-match.el (erc-current-nick-face, erc-dangerous-host-face) (erc-pal-face, erc-fool-face, erc-keyword-face): * erc-stamp.el (erc-timestamp-face): Likewise. * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) (erc-command-indicator-face, erc-notice-face, erc-action-face) (erc-error-face, erc-my-nick-face, erc-nick-default-face) (erc-nick-msg-face): Use new-style face specs, and avoid :bold. * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-member-attribute, ebrowse-default, ebrowse-file-name) (ebrowse-member-class, ebrowse-progress): Likewise. (ebrowse-tree-mark-face, ebrowse-root-class-face) (ebrowse-file-name-face, ebrowse-default-face) (ebrowse-member-attribute-face, ebrowse-member-class-face) (ebrowse-progress-face): Remove obsolete faces. * progmodes/flymake.el (flymake-errline, flymake-warnline): Inherit from error and warning faces respectively. * textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate): Likewise. (flyspell-incorrect-face, flyspell-duplicate-face): Remove obsolete aliases. * display.texi (Face Attributes): Font family does not accept wildcards. De-document obsolete :bold and :italic attributes. (Defining Faces): Use new-style face spec format.
2012-06-08 16:39:49 +00:00
(((class color) (background light)) :foreground "brown")
(t :underline t))
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
"Face used to visualize NEWLINE char mapping.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
See `whitespace-display-mappings'."
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
(defvar whitespace-trailing 'whitespace-trailing
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Symbol face used to visualize trailing blanks.
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
Used when `whitespace-style' includes the value `trailing'.")
lisp/whitespace.el: End obsolescence messages with dot. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation, whitespace-empty) (whitespace-space-after-tab): Fix typo in docstrings.
2014-02-21 16:18:56 +00:00
(make-obsolete-variable 'whitespace-trailing "use the face instead." "24.4")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defface whitespace-trailing ; 'trailing-whitespace
Face cleanups. Remove some uses of old-style face spec and :bold/:italic. * faces.el (set-face-attribute): Doc fix. (modify-face): Don't use :bold and :italic. (error, warning, success): Tweak definitions. * cus-edit.el (custom-modified, custom-invalid, custom-rogue) (custom-modified, custom-set, custom-changed, custom-themed) (custom-saved, custom-button, custom-button-mouse) (custom-button-pressed, custom-state, custom-comment-tag) (custom-variable-tag, custom-group-tag-1, custom-group-tag) (custom-group-subtitle): Use new-style face specs. (custom-invalid-face, custom-rogue-face, custom-modified-face) (custom-set-face, custom-changed-face, custom-saved-face) (custom-button-face, custom-button-pressed-face) (custom-documentation-face, custom-state-face) (custom-comment-face, custom-comment-tag-face) (custom-variable-tag-face, custom-variable-button-face) (custom-face-tag-face, custom-group-tag-face-1) (custom-group-tag-face): Remove obsolete face alias. * epa.el (epa-validity-high, epa-validity-medium) (epa-validity-low, epa-mark, epa-field-name, epa-string) (epa-field-name, epa-field-body): * font-lock.el (font-lock-comment-face, font-lock-string-face) (font-lock-keyword-face, font-lock-builtin-face) (font-lock-function-name-face, font-lock-variable-name-face) (font-lock-type-face, font-lock-constant-face): * ido.el (ido-first-match, ido-only-match, ido-subdir) (ido-virtual, ido-indicator, ido-incomplete-regexp): * speedbar.el (speedbar-button-face, speedbar-file-face) (speedbar-directory-face, speedbar-tag-face) (speedbar-selected-face, speedbar-highlight-face) (speedbar-separator-face): * whitespace.el (whitespace-newline, whitespace-space) (whitespace-hspace, whitespace-tab, whitespace-trailing) (whitespace-line, whitespace-space-before-tab) (whitespace-space-after-tab, whitespace-indentation) (whitespace-empty): * emulation/cua-base.el (cua-global-mark): * eshell/em-prompt.el (eshell-prompt): * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face, newsticker-default-face): * net/newst-reader.el (newsticker-feed-face) (newsticker-extra-face, newsticker-enclosure-face): * net/newst-treeview.el (newsticker-treeview-face) (newsticker-treeview-new-face, newsticker-treeview-old-face) (newsticker-treeview-immortal-face) (newsticker-treeview-obsolete-face) (newsticker-treeview-selection-face): * net/rcirc.el (rcirc-my-nick, rcirc-other-nick) (rcirc-bright-nick, rcirc-server, rcirc-timestamp) (rcirc-nick-in-message, rcirc-nick-in-message-full-line) (rcirc-prompt, rcirc-track-keyword, rcirc-url, rcirc-keyword): * nxml/nxml-outln.el (nxml-heading, nxml-outline-indicator) (nxml-outline-active-indicator, nxml-outline-ellipsis): * play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): * progmodes/vera-mode.el (vera-font-lock-number) (vera-font-lock-function, vera-font-lock-interface): * textmodes/table.el (table-cell): Use new-style face specs, and don't use the old :bold and :italic attributes. * erc-button.el (erc-button): * erc-goodies.el (erc-bold-face, erc-inverse-face) (erc-underline-face, fg:erc-color-*): * erc-match.el (erc-current-nick-face, erc-dangerous-host-face) (erc-pal-face, erc-fool-face, erc-keyword-face): * erc-stamp.el (erc-timestamp-face): Likewise. * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) (erc-command-indicator-face, erc-notice-face, erc-action-face) (erc-error-face, erc-my-nick-face, erc-nick-default-face) (erc-nick-msg-face): Use new-style face specs, and avoid :bold. * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-member-attribute, ebrowse-default, ebrowse-file-name) (ebrowse-member-class, ebrowse-progress): Likewise. (ebrowse-tree-mark-face, ebrowse-root-class-face) (ebrowse-file-name-face, ebrowse-default-face) (ebrowse-member-attribute-face, ebrowse-member-class-face) (ebrowse-progress-face): Remove obsolete faces. * progmodes/flymake.el (flymake-errline, flymake-warnline): Inherit from error and warning faces respectively. * textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate): Likewise. (flyspell-incorrect-face, flyspell-duplicate-face): Remove obsolete aliases. * display.texi (Face Attributes): Font family does not accept wildcards. De-document obsolete :bold and :italic attributes. (Defining Faces): Use new-style face spec format.
2012-06-08 16:39:49 +00:00
'((default :weight bold)
(((class mono)) :inverse-video t :underline t)
(t :background "red1" :foreground "yellow"))
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
"Face used to visualize trailing blanks."
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
(defvar whitespace-line 'whitespace-line
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Symbol face used to visualize \"long\" lines.
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
See `whitespace-line-column'.
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
Used when `whitespace-style' includes the value `line'.")
lisp/whitespace.el: End obsolescence messages with dot. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation, whitespace-empty) (whitespace-space-after-tab): Fix typo in docstrings.
2014-02-21 16:18:56 +00:00
(make-obsolete-variable 'whitespace-line "use the face instead." "24.4")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defface whitespace-line
Face cleanups. Remove some uses of old-style face spec and :bold/:italic. * faces.el (set-face-attribute): Doc fix. (modify-face): Don't use :bold and :italic. (error, warning, success): Tweak definitions. * cus-edit.el (custom-modified, custom-invalid, custom-rogue) (custom-modified, custom-set, custom-changed, custom-themed) (custom-saved, custom-button, custom-button-mouse) (custom-button-pressed, custom-state, custom-comment-tag) (custom-variable-tag, custom-group-tag-1, custom-group-tag) (custom-group-subtitle): Use new-style face specs. (custom-invalid-face, custom-rogue-face, custom-modified-face) (custom-set-face, custom-changed-face, custom-saved-face) (custom-button-face, custom-button-pressed-face) (custom-documentation-face, custom-state-face) (custom-comment-face, custom-comment-tag-face) (custom-variable-tag-face, custom-variable-button-face) (custom-face-tag-face, custom-group-tag-face-1) (custom-group-tag-face): Remove obsolete face alias. * epa.el (epa-validity-high, epa-validity-medium) (epa-validity-low, epa-mark, epa-field-name, epa-string) (epa-field-name, epa-field-body): * font-lock.el (font-lock-comment-face, font-lock-string-face) (font-lock-keyword-face, font-lock-builtin-face) (font-lock-function-name-face, font-lock-variable-name-face) (font-lock-type-face, font-lock-constant-face): * ido.el (ido-first-match, ido-only-match, ido-subdir) (ido-virtual, ido-indicator, ido-incomplete-regexp): * speedbar.el (speedbar-button-face, speedbar-file-face) (speedbar-directory-face, speedbar-tag-face) (speedbar-selected-face, speedbar-highlight-face) (speedbar-separator-face): * whitespace.el (whitespace-newline, whitespace-space) (whitespace-hspace, whitespace-tab, whitespace-trailing) (whitespace-line, whitespace-space-before-tab) (whitespace-space-after-tab, whitespace-indentation) (whitespace-empty): * emulation/cua-base.el (cua-global-mark): * eshell/em-prompt.el (eshell-prompt): * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face, newsticker-default-face): * net/newst-reader.el (newsticker-feed-face) (newsticker-extra-face, newsticker-enclosure-face): * net/newst-treeview.el (newsticker-treeview-face) (newsticker-treeview-new-face, newsticker-treeview-old-face) (newsticker-treeview-immortal-face) (newsticker-treeview-obsolete-face) (newsticker-treeview-selection-face): * net/rcirc.el (rcirc-my-nick, rcirc-other-nick) (rcirc-bright-nick, rcirc-server, rcirc-timestamp) (rcirc-nick-in-message, rcirc-nick-in-message-full-line) (rcirc-prompt, rcirc-track-keyword, rcirc-url, rcirc-keyword): * nxml/nxml-outln.el (nxml-heading, nxml-outline-indicator) (nxml-outline-active-indicator, nxml-outline-ellipsis): * play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): * progmodes/vera-mode.el (vera-font-lock-number) (vera-font-lock-function, vera-font-lock-interface): * textmodes/table.el (table-cell): Use new-style face specs, and don't use the old :bold and :italic attributes. * erc-button.el (erc-button): * erc-goodies.el (erc-bold-face, erc-inverse-face) (erc-underline-face, fg:erc-color-*): * erc-match.el (erc-current-nick-face, erc-dangerous-host-face) (erc-pal-face, erc-fool-face, erc-keyword-face): * erc-stamp.el (erc-timestamp-face): Likewise. * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) (erc-command-indicator-face, erc-notice-face, erc-action-face) (erc-error-face, erc-my-nick-face, erc-nick-default-face) (erc-nick-msg-face): Use new-style face specs, and avoid :bold. * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-member-attribute, ebrowse-default, ebrowse-file-name) (ebrowse-member-class, ebrowse-progress): Likewise. (ebrowse-tree-mark-face, ebrowse-root-class-face) (ebrowse-file-name-face, ebrowse-default-face) (ebrowse-member-attribute-face, ebrowse-member-class-face) (ebrowse-progress-face): Remove obsolete faces. * progmodes/flymake.el (flymake-errline, flymake-warnline): Inherit from error and warning faces respectively. * textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate): Likewise. (flyspell-incorrect-face, flyspell-duplicate-face): Remove obsolete aliases. * display.texi (Face Attributes): Font family does not accept wildcards. De-document obsolete :bold and :italic attributes. (Defining Faces): Use new-style face spec format.
2012-06-08 16:39:49 +00:00
'((((class mono)) :inverse-video t :weight bold :underline t)
(t :background "gray20" :foreground "violet"))
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
"Face used to visualize \"long\" lines.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
See `whitespace-line-column'."
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
(defvar whitespace-space-before-tab 'whitespace-space-before-tab
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Symbol face used to visualize SPACEs before TAB.
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
Used when `whitespace-style' includes the value `space-before-tab'.")
(make-obsolete-variable 'whitespace-space-before-tab
lisp/whitespace.el: End obsolescence messages with dot. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation, whitespace-empty) (whitespace-space-after-tab): Fix typo in docstrings.
2014-02-21 16:18:56 +00:00
"use the face instead." "24.4")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defface whitespace-space-before-tab
Face cleanups. Remove some uses of old-style face spec and :bold/:italic. * faces.el (set-face-attribute): Doc fix. (modify-face): Don't use :bold and :italic. (error, warning, success): Tweak definitions. * cus-edit.el (custom-modified, custom-invalid, custom-rogue) (custom-modified, custom-set, custom-changed, custom-themed) (custom-saved, custom-button, custom-button-mouse) (custom-button-pressed, custom-state, custom-comment-tag) (custom-variable-tag, custom-group-tag-1, custom-group-tag) (custom-group-subtitle): Use new-style face specs. (custom-invalid-face, custom-rogue-face, custom-modified-face) (custom-set-face, custom-changed-face, custom-saved-face) (custom-button-face, custom-button-pressed-face) (custom-documentation-face, custom-state-face) (custom-comment-face, custom-comment-tag-face) (custom-variable-tag-face, custom-variable-button-face) (custom-face-tag-face, custom-group-tag-face-1) (custom-group-tag-face): Remove obsolete face alias. * epa.el (epa-validity-high, epa-validity-medium) (epa-validity-low, epa-mark, epa-field-name, epa-string) (epa-field-name, epa-field-body): * font-lock.el (font-lock-comment-face, font-lock-string-face) (font-lock-keyword-face, font-lock-builtin-face) (font-lock-function-name-face, font-lock-variable-name-face) (font-lock-type-face, font-lock-constant-face): * ido.el (ido-first-match, ido-only-match, ido-subdir) (ido-virtual, ido-indicator, ido-incomplete-regexp): * speedbar.el (speedbar-button-face, speedbar-file-face) (speedbar-directory-face, speedbar-tag-face) (speedbar-selected-face, speedbar-highlight-face) (speedbar-separator-face): * whitespace.el (whitespace-newline, whitespace-space) (whitespace-hspace, whitespace-tab, whitespace-trailing) (whitespace-line, whitespace-space-before-tab) (whitespace-space-after-tab, whitespace-indentation) (whitespace-empty): * emulation/cua-base.el (cua-global-mark): * eshell/em-prompt.el (eshell-prompt): * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face, newsticker-default-face): * net/newst-reader.el (newsticker-feed-face) (newsticker-extra-face, newsticker-enclosure-face): * net/newst-treeview.el (newsticker-treeview-face) (newsticker-treeview-new-face, newsticker-treeview-old-face) (newsticker-treeview-immortal-face) (newsticker-treeview-obsolete-face) (newsticker-treeview-selection-face): * net/rcirc.el (rcirc-my-nick, rcirc-other-nick) (rcirc-bright-nick, rcirc-server, rcirc-timestamp) (rcirc-nick-in-message, rcirc-nick-in-message-full-line) (rcirc-prompt, rcirc-track-keyword, rcirc-url, rcirc-keyword): * nxml/nxml-outln.el (nxml-heading, nxml-outline-indicator) (nxml-outline-active-indicator, nxml-outline-ellipsis): * play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): * progmodes/vera-mode.el (vera-font-lock-number) (vera-font-lock-function, vera-font-lock-interface): * textmodes/table.el (table-cell): Use new-style face specs, and don't use the old :bold and :italic attributes. * erc-button.el (erc-button): * erc-goodies.el (erc-bold-face, erc-inverse-face) (erc-underline-face, fg:erc-color-*): * erc-match.el (erc-current-nick-face, erc-dangerous-host-face) (erc-pal-face, erc-fool-face, erc-keyword-face): * erc-stamp.el (erc-timestamp-face): Likewise. * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) (erc-command-indicator-face, erc-notice-face, erc-action-face) (erc-error-face, erc-my-nick-face, erc-nick-default-face) (erc-nick-msg-face): Use new-style face specs, and avoid :bold. * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-member-attribute, ebrowse-default, ebrowse-file-name) (ebrowse-member-class, ebrowse-progress): Likewise. (ebrowse-tree-mark-face, ebrowse-root-class-face) (ebrowse-file-name-face, ebrowse-default-face) (ebrowse-member-attribute-face, ebrowse-member-class-face) (ebrowse-progress-face): Remove obsolete faces. * progmodes/flymake.el (flymake-errline, flymake-warnline): Inherit from error and warning faces respectively. * textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate): Likewise. (flyspell-incorrect-face, flyspell-duplicate-face): Remove obsolete aliases. * display.texi (Face Attributes): Font family does not accept wildcards. De-document obsolete :bold and :italic attributes. (Defining Faces): Use new-style face spec format.
2012-06-08 16:39:49 +00:00
'((((class mono)) :inverse-video t :weight bold :underline t)
(t :background "DarkOrange" :foreground "firebrick"))
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
"Face used to visualize SPACEs before TAB."
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
(defvar whitespace-indentation 'whitespace-indentation
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
"Symbol face used to visualize `tab-width' or more SPACEs at beginning of
line. Used when `whitespace-style' includes the value `indentation'.")
lisp/whitespace.el: End obsolescence messages with dot. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation, whitespace-empty) (whitespace-space-after-tab): Fix typo in docstrings.
2014-02-21 16:18:56 +00:00
(make-obsolete-variable 'whitespace-indentation "use the face instead." "24.4")
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defface whitespace-indentation
Face cleanups. Remove some uses of old-style face spec and :bold/:italic. * faces.el (set-face-attribute): Doc fix. (modify-face): Don't use :bold and :italic. (error, warning, success): Tweak definitions. * cus-edit.el (custom-modified, custom-invalid, custom-rogue) (custom-modified, custom-set, custom-changed, custom-themed) (custom-saved, custom-button, custom-button-mouse) (custom-button-pressed, custom-state, custom-comment-tag) (custom-variable-tag, custom-group-tag-1, custom-group-tag) (custom-group-subtitle): Use new-style face specs. (custom-invalid-face, custom-rogue-face, custom-modified-face) (custom-set-face, custom-changed-face, custom-saved-face) (custom-button-face, custom-button-pressed-face) (custom-documentation-face, custom-state-face) (custom-comment-face, custom-comment-tag-face) (custom-variable-tag-face, custom-variable-button-face) (custom-face-tag-face, custom-group-tag-face-1) (custom-group-tag-face): Remove obsolete face alias. * epa.el (epa-validity-high, epa-validity-medium) (epa-validity-low, epa-mark, epa-field-name, epa-string) (epa-field-name, epa-field-body): * font-lock.el (font-lock-comment-face, font-lock-string-face) (font-lock-keyword-face, font-lock-builtin-face) (font-lock-function-name-face, font-lock-variable-name-face) (font-lock-type-face, font-lock-constant-face): * ido.el (ido-first-match, ido-only-match, ido-subdir) (ido-virtual, ido-indicator, ido-incomplete-regexp): * speedbar.el (speedbar-button-face, speedbar-file-face) (speedbar-directory-face, speedbar-tag-face) (speedbar-selected-face, speedbar-highlight-face) (speedbar-separator-face): * whitespace.el (whitespace-newline, whitespace-space) (whitespace-hspace, whitespace-tab, whitespace-trailing) (whitespace-line, whitespace-space-before-tab) (whitespace-space-after-tab, whitespace-indentation) (whitespace-empty): * emulation/cua-base.el (cua-global-mark): * eshell/em-prompt.el (eshell-prompt): * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face, newsticker-default-face): * net/newst-reader.el (newsticker-feed-face) (newsticker-extra-face, newsticker-enclosure-face): * net/newst-treeview.el (newsticker-treeview-face) (newsticker-treeview-new-face, newsticker-treeview-old-face) (newsticker-treeview-immortal-face) (newsticker-treeview-obsolete-face) (newsticker-treeview-selection-face): * net/rcirc.el (rcirc-my-nick, rcirc-other-nick) (rcirc-bright-nick, rcirc-server, rcirc-timestamp) (rcirc-nick-in-message, rcirc-nick-in-message-full-line) (rcirc-prompt, rcirc-track-keyword, rcirc-url, rcirc-keyword): * nxml/nxml-outln.el (nxml-heading, nxml-outline-indicator) (nxml-outline-active-indicator, nxml-outline-ellipsis): * play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): * progmodes/vera-mode.el (vera-font-lock-number) (vera-font-lock-function, vera-font-lock-interface): * textmodes/table.el (table-cell): Use new-style face specs, and don't use the old :bold and :italic attributes. * erc-button.el (erc-button): * erc-goodies.el (erc-bold-face, erc-inverse-face) (erc-underline-face, fg:erc-color-*): * erc-match.el (erc-current-nick-face, erc-dangerous-host-face) (erc-pal-face, erc-fool-face, erc-keyword-face): * erc-stamp.el (erc-timestamp-face): Likewise. * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) (erc-command-indicator-face, erc-notice-face, erc-action-face) (erc-error-face, erc-my-nick-face, erc-nick-default-face) (erc-nick-msg-face): Use new-style face specs, and avoid :bold. * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-member-attribute, ebrowse-default, ebrowse-file-name) (ebrowse-member-class, ebrowse-progress): Likewise. (ebrowse-tree-mark-face, ebrowse-root-class-face) (ebrowse-file-name-face, ebrowse-default-face) (ebrowse-member-attribute-face, ebrowse-member-class-face) (ebrowse-progress-face): Remove obsolete faces. * progmodes/flymake.el (flymake-errline, flymake-warnline): Inherit from error and warning faces respectively. * textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate): Likewise. (flyspell-incorrect-face, flyspell-duplicate-face): Remove obsolete aliases. * display.texi (Face Attributes): Font family does not accept wildcards. De-document obsolete :bold and :italic attributes. (Defining Faces): Use new-style face spec format.
2012-06-08 16:39:49 +00:00
'((((class mono)) :inverse-video t :weight bold :underline t)
(t :background "yellow" :foreground "firebrick"))
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
"Face used to visualize `tab-width' or more SPACEs at beginning of line."
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Add a 'big-indent style to `whitespace-mode'. * lisp/whitespace.el (whitespace-style, whitespace-big-indent) (whitespace-big-indent-regexp, whitespace-style-value-list) (whitespace-toggle-option-alist, whitespace-interactive-char) (whitespace-toggle-options) (global-whitespace-toggle-options, whitespace-help-text) (whitespace-style-face-p, whitespace-color-on): Add a 'big-indent style to `whitespace-mode' to indicate that the line indentation is too deep. By default, 32 SPACEs or four TABs are considered too many but `whitespace-big-indent-regexp' can be configured.
2014-10-18 00:23:03 +00:00
(defface whitespace-big-indent
'((((class mono)) :inverse-video t :weight bold :underline t)
(t :background "red" :foreground "firebrick"))
"Face used to visualize big indentation."
:group 'whitespace)
Make whitespace-mode highlight missing newlines at the end of buffers * lisp/whitespace.el (whitespace-missing-newline-at-eof): New face (bug#34952). (whitespace-report-region): Add a test for end-of-buffer-without-newline. (whitespace-color-on): Ditto. * doc/emacs/display.texi (Useless Whitespace): Document it.
2020-08-07 07:28:14 +00:00
(defface whitespace-missing-newline-at-eof
'((((class mono)) :inverse-video t :weight bold :underline t)
Tweak how whitespace-mode marks the end of the buffer * lisp/whitespace.el (whitespace-missing-newline-at-eof): Change the colours to not be as angry. (whitespace-color-on): Don't mark the end of the buffer if point is there.
2020-08-08 09:53:09 +00:00
(t :background "#d0d040" :foreground "black"))
Make whitespace-mode highlight missing newlines at the end of buffers * lisp/whitespace.el (whitespace-missing-newline-at-eof): New face (bug#34952). (whitespace-report-region): Add a test for end-of-buffer-without-newline. (whitespace-color-on): Ditto. * doc/emacs/display.texi (Useless Whitespace): Document it.
2020-08-07 07:28:14 +00:00
"Face used to visualize missing newline at the end of the file.")
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
(defvar whitespace-empty 'whitespace-empty
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Symbol face used to visualize empty lines at beginning and/or end of buffer.
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
Used when `whitespace-style' includes the value `empty'.")
lisp/whitespace.el: End obsolescence messages with dot. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation, whitespace-empty) (whitespace-space-after-tab): Fix typo in docstrings.
2014-02-21 16:18:56 +00:00
(make-obsolete-variable 'whitespace-empty "use the face instead." "24.4")
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defface whitespace-empty
Face cleanups. Remove some uses of old-style face spec and :bold/:italic. * faces.el (set-face-attribute): Doc fix. (modify-face): Don't use :bold and :italic. (error, warning, success): Tweak definitions. * cus-edit.el (custom-modified, custom-invalid, custom-rogue) (custom-modified, custom-set, custom-changed, custom-themed) (custom-saved, custom-button, custom-button-mouse) (custom-button-pressed, custom-state, custom-comment-tag) (custom-variable-tag, custom-group-tag-1, custom-group-tag) (custom-group-subtitle): Use new-style face specs. (custom-invalid-face, custom-rogue-face, custom-modified-face) (custom-set-face, custom-changed-face, custom-saved-face) (custom-button-face, custom-button-pressed-face) (custom-documentation-face, custom-state-face) (custom-comment-face, custom-comment-tag-face) (custom-variable-tag-face, custom-variable-button-face) (custom-face-tag-face, custom-group-tag-face-1) (custom-group-tag-face): Remove obsolete face alias. * epa.el (epa-validity-high, epa-validity-medium) (epa-validity-low, epa-mark, epa-field-name, epa-string) (epa-field-name, epa-field-body): * font-lock.el (font-lock-comment-face, font-lock-string-face) (font-lock-keyword-face, font-lock-builtin-face) (font-lock-function-name-face, font-lock-variable-name-face) (font-lock-type-face, font-lock-constant-face): * ido.el (ido-first-match, ido-only-match, ido-subdir) (ido-virtual, ido-indicator, ido-incomplete-regexp): * speedbar.el (speedbar-button-face, speedbar-file-face) (speedbar-directory-face, speedbar-tag-face) (speedbar-selected-face, speedbar-highlight-face) (speedbar-separator-face): * whitespace.el (whitespace-newline, whitespace-space) (whitespace-hspace, whitespace-tab, whitespace-trailing) (whitespace-line, whitespace-space-before-tab) (whitespace-space-after-tab, whitespace-indentation) (whitespace-empty): * emulation/cua-base.el (cua-global-mark): * eshell/em-prompt.el (eshell-prompt): * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face, newsticker-default-face): * net/newst-reader.el (newsticker-feed-face) (newsticker-extra-face, newsticker-enclosure-face): * net/newst-treeview.el (newsticker-treeview-face) (newsticker-treeview-new-face, newsticker-treeview-old-face) (newsticker-treeview-immortal-face) (newsticker-treeview-obsolete-face) (newsticker-treeview-selection-face): * net/rcirc.el (rcirc-my-nick, rcirc-other-nick) (rcirc-bright-nick, rcirc-server, rcirc-timestamp) (rcirc-nick-in-message, rcirc-nick-in-message-full-line) (rcirc-prompt, rcirc-track-keyword, rcirc-url, rcirc-keyword): * nxml/nxml-outln.el (nxml-heading, nxml-outline-indicator) (nxml-outline-active-indicator, nxml-outline-ellipsis): * play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): * progmodes/vera-mode.el (vera-font-lock-number) (vera-font-lock-function, vera-font-lock-interface): * textmodes/table.el (table-cell): Use new-style face specs, and don't use the old :bold and :italic attributes. * erc-button.el (erc-button): * erc-goodies.el (erc-bold-face, erc-inverse-face) (erc-underline-face, fg:erc-color-*): * erc-match.el (erc-current-nick-face, erc-dangerous-host-face) (erc-pal-face, erc-fool-face, erc-keyword-face): * erc-stamp.el (erc-timestamp-face): Likewise. * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) (erc-command-indicator-face, erc-notice-face, erc-action-face) (erc-error-face, erc-my-nick-face, erc-nick-default-face) (erc-nick-msg-face): Use new-style face specs, and avoid :bold. * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-member-attribute, ebrowse-default, ebrowse-file-name) (ebrowse-member-class, ebrowse-progress): Likewise. (ebrowse-tree-mark-face, ebrowse-root-class-face) (ebrowse-file-name-face, ebrowse-default-face) (ebrowse-member-attribute-face, ebrowse-member-class-face) (ebrowse-progress-face): Remove obsolete faces. * progmodes/flymake.el (flymake-errline, flymake-warnline): Inherit from error and warning faces respectively. * textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate): Likewise. (flyspell-incorrect-face, flyspell-duplicate-face): Remove obsolete aliases. * display.texi (Face Attributes): Font family does not accept wildcards. De-document obsolete :bold and :italic attributes. (Defining Faces): Use new-style face spec format.
2012-06-08 16:39:49 +00:00
'((((class mono)) :inverse-video t :weight bold :underline t)
Extend whitespace-empty to the end of the line * lisp/whitespace.el (whitespace-empty): Restore Emacs 26 look by extending the face (bug#42112).
2021-07-31 14:52:44 +00:00
(t :background "yellow" :foreground "firebrick" :extend t))
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
"Face used to visualize empty lines at beginning and/or end of buffer."
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
(defvar whitespace-space-after-tab 'whitespace-space-after-tab
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
"Symbol face used to visualize `tab-width' or more SPACEs after TAB.
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
Used when `whitespace-style' includes the value `space-after-tab'.")
(make-obsolete-variable 'whitespace-space-after-tab
lisp/whitespace.el: End obsolescence messages with dot. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation, whitespace-empty) (whitespace-space-after-tab): Fix typo in docstrings.
2014-02-21 16:18:56 +00:00
"use the face instead." "24.4")
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defface whitespace-space-after-tab
Face cleanups. Remove some uses of old-style face spec and :bold/:italic. * faces.el (set-face-attribute): Doc fix. (modify-face): Don't use :bold and :italic. (error, warning, success): Tweak definitions. * cus-edit.el (custom-modified, custom-invalid, custom-rogue) (custom-modified, custom-set, custom-changed, custom-themed) (custom-saved, custom-button, custom-button-mouse) (custom-button-pressed, custom-state, custom-comment-tag) (custom-variable-tag, custom-group-tag-1, custom-group-tag) (custom-group-subtitle): Use new-style face specs. (custom-invalid-face, custom-rogue-face, custom-modified-face) (custom-set-face, custom-changed-face, custom-saved-face) (custom-button-face, custom-button-pressed-face) (custom-documentation-face, custom-state-face) (custom-comment-face, custom-comment-tag-face) (custom-variable-tag-face, custom-variable-button-face) (custom-face-tag-face, custom-group-tag-face-1) (custom-group-tag-face): Remove obsolete face alias. * epa.el (epa-validity-high, epa-validity-medium) (epa-validity-low, epa-mark, epa-field-name, epa-string) (epa-field-name, epa-field-body): * font-lock.el (font-lock-comment-face, font-lock-string-face) (font-lock-keyword-face, font-lock-builtin-face) (font-lock-function-name-face, font-lock-variable-name-face) (font-lock-type-face, font-lock-constant-face): * ido.el (ido-first-match, ido-only-match, ido-subdir) (ido-virtual, ido-indicator, ido-incomplete-regexp): * speedbar.el (speedbar-button-face, speedbar-file-face) (speedbar-directory-face, speedbar-tag-face) (speedbar-selected-face, speedbar-highlight-face) (speedbar-separator-face): * whitespace.el (whitespace-newline, whitespace-space) (whitespace-hspace, whitespace-tab, whitespace-trailing) (whitespace-line, whitespace-space-before-tab) (whitespace-space-after-tab, whitespace-indentation) (whitespace-empty): * emulation/cua-base.el (cua-global-mark): * eshell/em-prompt.el (eshell-prompt): * net/newst-plainview.el (newsticker-new-item-face) (newsticker-old-item-face, newsticker-immortal-item-face) (newsticker-obsolete-item-face, newsticker-date-face) (newsticker-statistics-face, newsticker-default-face): * net/newst-reader.el (newsticker-feed-face) (newsticker-extra-face, newsticker-enclosure-face): * net/newst-treeview.el (newsticker-treeview-face) (newsticker-treeview-new-face, newsticker-treeview-old-face) (newsticker-treeview-immortal-face) (newsticker-treeview-obsolete-face) (newsticker-treeview-selection-face): * net/rcirc.el (rcirc-my-nick, rcirc-other-nick) (rcirc-bright-nick, rcirc-server, rcirc-timestamp) (rcirc-nick-in-message, rcirc-nick-in-message-full-line) (rcirc-prompt, rcirc-track-keyword, rcirc-url, rcirc-keyword): * nxml/nxml-outln.el (nxml-heading, nxml-outline-indicator) (nxml-outline-active-indicator, nxml-outline-ellipsis): * play/mpuz.el (mpuz-unsolved, mpuz-solved, mpuz-trivial) (mpuz-text): * progmodes/vera-mode.el (vera-font-lock-number) (vera-font-lock-function, vera-font-lock-interface): * textmodes/table.el (table-cell): Use new-style face specs, and don't use the old :bold and :italic attributes. * erc-button.el (erc-button): * erc-goodies.el (erc-bold-face, erc-inverse-face) (erc-underline-face, fg:erc-color-*): * erc-match.el (erc-current-nick-face, erc-dangerous-host-face) (erc-pal-face, erc-fool-face, erc-keyword-face): * erc-stamp.el (erc-timestamp-face): Likewise. * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) (erc-command-indicator-face, erc-notice-face, erc-action-face) (erc-error-face, erc-my-nick-face, erc-nick-default-face) (erc-nick-msg-face): Use new-style face specs, and avoid :bold. * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-member-attribute, ebrowse-default, ebrowse-file-name) (ebrowse-member-class, ebrowse-progress): Likewise. (ebrowse-tree-mark-face, ebrowse-root-class-face) (ebrowse-file-name-face, ebrowse-default-face) (ebrowse-member-attribute-face, ebrowse-member-class-face) (ebrowse-progress-face): Remove obsolete faces. * progmodes/flymake.el (flymake-errline, flymake-warnline): Inherit from error and warning faces respectively. * textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate): Likewise. (flyspell-incorrect-face, flyspell-duplicate-face): Remove obsolete aliases. * display.texi (Face Attributes): Font family does not accept wildcards. De-document obsolete :bold and :italic attributes. (Defining Faces): Use new-style face spec format.
2012-06-08 16:39:49 +00:00
'((((class mono)) :inverse-video t :weight bold :underline t)
(t :background "yellow" :foreground "firebrick"))
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
"Face used to visualize `tab-width' or more SPACEs after TAB."
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defcustom whitespace-hspace-regexp
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
"\\(\u00A0+\\)"
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Specify HARD SPACE characters regexp.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Here are some examples:
\"\\\\(^\\xA0+\\\\)\" \
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
visualize only leading HARD SPACEs.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
\"\\\\(\\xA0+$\\\\)\" \
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
visualize only trailing HARD SPACEs.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
\"\\\\(^\\xA0+\\\\|\\xA0+$\\\\)\" \
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
visualize leading and/or trailing HARD SPACEs.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
\"\\t\\\\(\\xA0+\\\\)\\t\" \
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
visualize only HARD SPACEs between TABs.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
NOTE: Enclose always by \\\\( and \\\\) the elements to highlight.
Use exactly one pair of enclosing \\\\( and \\\\).
New version 11.0.
2008-04-26 11:38:50 +00:00
Used when `whitespace-style' includes `spaces'."
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
:type '(regexp :tag "HARD SPACE Chars")
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defcustom whitespace-space-regexp "\\( +\\)"
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Specify SPACE characters regexp.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(whitespace): Set :version tag to 23.1. (whitespace-turn-off, whitespace-toggle-options): Fix typos. (whitespace-style, whitespace-chars, whitespace-space, whitespace-hspace, whitespace-tab, whitespace-newline, whitespace-trailing, whitespace-line, whitespace-space-before-tab, whitespace-indentation, whitespace-empty, whitespace-space-after-tab, whitespace-hspace-regexp, whitespace-space-regexp, whitespace-tab-regexp, whitespace-trailing-regexp, whitespace-space-before-tab-regexp, whitespace-indentation-regexp, whitespace-empty-at-bob-regexp, whitespace-empty-at-eob-regexp, whitespace-space-after-tab-regexp, whitespace-line-column, whitespace-display-mappings, global-whitespace-toggle-options, whitespace-cleanup, whitespace-cleanup-region, whitespace-interactive-char): Doc fixes.
2008-02-01 14:44:44 +00:00
If you're using `mule' package, there may be other characters
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
besides \" \" that should be considered SPACE.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Here are some examples:
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
\"\\\\(^ +\\\\)\" visualize only leading SPACEs.
\"\\\\( +$\\\\)\" visualize only trailing SPACEs.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
\"\\\\(^ +\\\\| +$\\\\)\" \
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
visualize leading and/or trailing SPACEs.
\"\\t\\\\( +\\\\)\\t\" visualize only SPACEs between TABs.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
NOTE: Enclose always by \\\\( and \\\\) the elements to highlight.
Use exactly one pair of enclosing \\\\( and \\\\).
New version 11.0.
2008-04-26 11:38:50 +00:00
Used when `whitespace-style' includes `spaces'."
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
:type '(regexp :tag "SPACE Chars")
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defcustom whitespace-tab-regexp "\\(\t+\\)"
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Specify TAB characters regexp.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(whitespace): Set :version tag to 23.1. (whitespace-turn-off, whitespace-toggle-options): Fix typos. (whitespace-style, whitespace-chars, whitespace-space, whitespace-hspace, whitespace-tab, whitespace-newline, whitespace-trailing, whitespace-line, whitespace-space-before-tab, whitespace-indentation, whitespace-empty, whitespace-space-after-tab, whitespace-hspace-regexp, whitespace-space-regexp, whitespace-tab-regexp, whitespace-trailing-regexp, whitespace-space-before-tab-regexp, whitespace-indentation-regexp, whitespace-empty-at-bob-regexp, whitespace-empty-at-eob-regexp, whitespace-space-after-tab-regexp, whitespace-line-column, whitespace-display-mappings, global-whitespace-toggle-options, whitespace-cleanup, whitespace-cleanup-region, whitespace-interactive-char): Doc fixes.
2008-02-01 14:44:44 +00:00
If you're using `mule' package, there may be other characters
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
besides \"\\t\" that should be considered TAB.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Here are some examples:
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
\"\\\\(^\\t+\\\\)\" visualize only leading TABs.
\"\\\\(\\t+$\\\\)\" visualize only trailing TABs.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
\"\\\\(^\\t+\\\\|\\t+$\\\\)\" \
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
visualize leading and/or trailing TABs.
\" \\\\(\\t+\\\\) \" visualize only TABs between SPACEs.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
NOTE: Enclose always by \\\\( and \\\\) the elements to highlight.
Use exactly one pair of enclosing \\\\( and \\\\).
New version 11.0.
2008-04-26 11:38:50 +00:00
Used when `whitespace-style' includes `tabs'."
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
:type '(regexp :tag "TAB Chars")
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defcustom whitespace-trailing-regexp
* lisp/whitespace.el (whitespace-trailing-regexp): Don't rely on the internal encoding (e.g. tibetan zero is not whitespace). (global-whitespace-mode): Prefer save-current-buffer. (whitespace-trailing-regexp): Remove useless save-match-data. (whitespace-empty-at-bob-regexp): Minor simplification.
2011-05-04 01:02:09 +00:00
"\\([\t \u00A0]+\\)$"
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Specify trailing characters regexp.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
There may be other characters besides:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
* lisp/whitespace.el (whitespace-trailing-regexp): Don't rely on the internal encoding (e.g. tibetan zero is not whitespace). (global-whitespace-mode): Prefer save-current-buffer. (whitespace-trailing-regexp): Remove useless save-match-data. (whitespace-empty-at-bob-regexp): Minor simplification.
2011-05-04 01:02:09 +00:00
\" \" \"\\t\" \"\\u00A0\"
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
that should be considered blank.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
whitespace-trailing-regexp docstring fix.
2008-04-28 23:12:09 +00:00
NOTE: Enclose always by \"\\\\(\" and \"\\\\)$\" the elements to highlight.
whitespace-trailing-regexp option fix.
2008-04-27 11:50:47 +00:00
Use exactly one pair of enclosing elements above.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
Used when `whitespace-style' includes `trailing'."
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
:type '(regexp :tag "Trailing Chars")
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(defcustom whitespace-space-before-tab-regexp "\\( +\\)\\(\t+\\)"
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Specify SPACEs before TAB regexp.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
Used when `whitespace-style' includes `space-before-tab',
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
`space-before-tab::tab' or `space-before-tab::space'."
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
:type '(regexp :tag "SPACEs Before TAB")
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defcustom whitespace-indentation-regexp
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
'("^\t*\\(\\( \\{%d\\}\\)+\\)[^\n\t]"
. "^ *\\(\t+\\)[^\n]")
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
"Specify regexp for `tab-width' or more SPACEs at beginning of line.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
It is a cons where the cons car is used for SPACEs visualization
and the cons cdr is used for TABs visualization.
New version 11.0.
2008-04-26 11:38:50 +00:00
Used when `whitespace-style' includes `indentation',
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
`indentation::tab' or `indentation::space'."
Fix defcustom type in whitespace.el * lisp/whitespace.el (whitespace-space-after-tab-regexp) (whitespace-indentation-regexp): The first string here isn't a regexp, it's a string (that's expanded with format to be a regexp).
2020-09-25 13:35:23 +00:00
:type '(cons (string :tag "Indentation SPACEs")
Use regexp type for regexps in defcustom declarations * lisp/calendar/diary-lib.el (diary-face-attrs): * lisp/cedet/semantic/db-ebrowse.el (semanticdb-ebrowse-file-match): * lisp/cedet/srecode/document.el (srecode-document-autocomment-common-nouns-abbrevs) (srecode-document-autocomment-function-alist) (srecode-document-autocomment-return-first-alist) (srecode-document-autocomment-return-last-alist) (srecode-document-autocomment-param-alist) (srecode-document-autocomment-param-type-alist): * lisp/desktop.el (desktop-clear-preserve-buffers): * lisp/elide-head.el (elide-head-headers-to-hide): * lisp/erc/erc-backend.el (erc-encoding-coding-alist): * lisp/erc/erc-ezbounce.el (erc-ezb-regexp): * lisp/files.el (auto-save-file-name-transforms): * lisp/gnus/deuglify.el (gnus-outlook-deuglify-attrib-cut-regexp) (gnus-outlook-deuglify-attrib-verb-regexp) (gnus-outlook-deuglify-attrib-end-regexp): * lisp/gnus/gnus-fun.el (gnus-x-face-omit-files, gnus-face-omit-files): * lisp/gnus/spam.el (spam-spamassassin-positive-spam-flag-header): * lisp/htmlfontify.el (hfy-src-doc-link-unstyle): * lisp/info-look.el (info-lookup-file-name-alist): * lisp/international/rfc1843.el (rfc1843-newsgroups-regexp): * lisp/mail/feedmail.el (feedmail-queue-slug-suspect-regexp): * lisp/mail/rmail-spam-filter.el (rsf-white-list, rsf-definitions-alist): * lisp/man.el (Man-name-local-regexp): * lisp/net/ange-ftp.el (ange-ftp-dumb-unix-host-regexp): * lisp/net/newst-backend.el (newsticker-auto-mark-filter-list): * lisp/net/rcirc.el (rcirc-authinfo, rcirc-coding-system-alist): * lisp/net/tramp-adb.el (tramp-adb-prompt): * lisp/org/org-agenda.el (org-agenda-hide-tags-regexp) (org-agenda-category-icon-alist): * lisp/org/org-protocol.el (org-protocol-data-separator): * lisp/org/org-table.el (org-table-number-regexp): * lisp/org/ox-latex.el (org-latex-known-warnings): * lisp/progmodes/bug-reference.el (bug-reference-bug-regexp): * lisp/progmodes/hideif.el (hide-ifdef-header-regexp): * lisp/progmodes/idlw-help.el (idlwave-help-doclib-name) (idlwave-help-doclib-keyword): * lisp/progmodes/idlwave.el (idlwave-no-change-comment): * lisp/progmodes/python.el (python-shell-prompt-input-regexps) (python-shell-prompt-output-regexps, python-shell-prompt-regexp) (python-shell-prompt-block-regexp, python-shell-prompt-output-regexp) (python-shell-prompt-pdb-regexp, python-shell-compilation-regexp-alist) (python-pdbtrack-stacktrace-info-regexp): * lisp/progmodes/sql.el (sql-send-terminator, sql-ansi-statement-starters): * lisp/speedbar.el (speedbar-directory-unshown-regexp) (speedbar-file-unshown-regexp): * lisp/textmodes/flyspell.el (flyspell-mark-duplications-exceptions) (flyspell-tex-command-regexp): * lisp/textmodes/paragraphs.el (sentence-end-base): * lisp/textmodes/tildify.el (tildify-pattern, tildify-space-pattern): * lisp/vc/ediff-init.el (ediff-metachars): * lisp/vc/vc-git.el (vc-git-root-log-format): * lisp/vc/vc-hg.el (vc-hg-root-log-format): * lisp/whitespace.el (whitespace-indentation-regexp) (whitespace-space-after-tab-regexp): * lisp/woman.el (woman-manpath-man-regexp) (woman-imenu-generic-expression): Use 'regexp' instead of 'string' as type for values that are regexps in defcustom declarations.
2019-12-21 17:52:06 +00:00
(regexp :tag "Indentation TABs"))
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Fix bob/eob checks * lisp/whitespace.el (whitespace-empty-at-bob-regexp) (whitespace-empty-at-eob-regexp, whitespace-cleanup): Make `empty' checks work at beginning & end of buffer in whitespace-report-region, and only there (i.e. they will never match in regions that don't include the start or end of the buffer). (Bug#24745)
2016-10-20 12:17:58 +00:00
(defcustom whitespace-empty-at-bob-regexp "\\`\\(\\([ \t]*\n\\)+\\)"
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Specify regexp for empty lines at beginning of buffer.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
Used when `whitespace-style' includes `empty'."
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
:type '(regexp :tag "Empty Lines At Beginning Of Buffer")
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Fix whitespace eob cleanup * lisp/whitespace.el (whitespace-empty-at-eob-regexp): Match any number of empty lines at end of buffer. * test/lisp/whitespace-tests.el (whitespace-cleanup-eob): New test. (whitespace-tests--cleanup-string): New helper function for tests.
2016-12-21 04:02:48 +00:00
(defcustom whitespace-empty-at-eob-regexp "^\\([ \t\n]+\\)\\'"
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Specify regexp for empty lines at end of buffer.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
Used when `whitespace-style' includes `empty'."
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
:type '(regexp :tag "Empty Lines At End Of Buffer")
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(defcustom whitespace-space-after-tab-regexp
Fix whitespace-space-after-tab-regexp * lisp/whitespace.el (whitespace-space-after-tab-regexp) (whitespace-regexp): Match all the spaces after tabs for highlighting, not just the first tab-width. Fix whitespace-space-after-tab::space version so that it requires at least tab-width spaces, not just 1. (Bug#24745)
2016-10-21 14:23:08 +00:00
'("\t+\\(\\( \\{%d,\\}\\)+\\)"
. "\\(\t+\\) \\{%d,\\}")
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
"Specify regexp for `tab-width' or more SPACEs after TAB.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
It is a cons where the cons car is used for SPACEs visualization
and the cons cdr is used for TABs visualization.
New version 11.0.
2008-04-26 11:38:50 +00:00
Used when `whitespace-style' includes `space-after-tab',
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
`space-after-tab::tab' or `space-after-tab::space'."
Fix defcustom type in whitespace.el * lisp/whitespace.el (whitespace-space-after-tab-regexp) (whitespace-indentation-regexp): The first string here isn't a regexp, it's a string (that's expanded with format to be a regexp).
2020-09-25 13:35:23 +00:00
:type '(cons (string :tag "SPACEs After TAB")
string)
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Add a 'big-indent style to `whitespace-mode'. * lisp/whitespace.el (whitespace-style, whitespace-big-indent) (whitespace-big-indent-regexp, whitespace-style-value-list) (whitespace-toggle-option-alist, whitespace-interactive-char) (whitespace-toggle-options) (global-whitespace-toggle-options, whitespace-help-text) (whitespace-style-face-p, whitespace-color-on): Add a 'big-indent style to `whitespace-mode' to indicate that the line indentation is too deep. By default, 32 SPACEs or four TABs are considered too many but `whitespace-big-indent-regexp' can be configured.
2014-10-18 00:23:03 +00:00
(defcustom whitespace-big-indent-regexp
"^\\(\\(?:\t\\{4,\\}\\| \\{32,\\}\\)[\t ]*\\)"
"Specify big indentation regexp.
If you're using `mule' package, there may be other characters
besides \"\\t\" that should be considered TAB.
NOTE: Enclose always by \\\\( and \\\\) the elements to highlight.
Use exactly one pair of enclosing \\\\( and \\\\).
Used when `whitespace-style' includes `big-indent'."
* lisp/whitespace.el (whitespace-big-indent-regexp): Add :version.
2014-12-02 23:37:27 +00:00
:version "25.1"
Add a 'big-indent style to `whitespace-mode'. * lisp/whitespace.el (whitespace-style, whitespace-big-indent) (whitespace-big-indent-regexp, whitespace-style-value-list) (whitespace-toggle-option-alist, whitespace-interactive-char) (whitespace-toggle-options) (global-whitespace-toggle-options, whitespace-help-text) (whitespace-style-face-p, whitespace-color-on): Add a 'big-indent style to `whitespace-mode' to indicate that the line indentation is too deep. By default, 32 SPACEs or four TABs are considered too many but `whitespace-big-indent-regexp' can be configured.
2014-10-18 00:23:03 +00:00
:type '(regexp :tag "Detect too much indentation at the beginning of a line")
:group 'whitespace)
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defcustom whitespace-line-column 80
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Specify column beyond which the line is highlighted.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
It must be an integer or nil. If nil, the `fill-column' variable value is
used.
New version 11.0.
2008-04-26 11:38:50 +00:00
Used when `whitespace-style' includes `lines' or `lines-tail'."
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
:type '(choice :tag "Line Length Limit"
(integer :tag "Line Length")
(const :tag "Use fill-column" nil))
Declare whitespace-line-column a safe file-local * lisp/whitespace.el (whitespace-line-column): Declare to be a safe file-local when the value is an integer.
2015-07-08 22:38:29 +00:00
:safe 'integerp
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; Hacked from `visible-whitespace-mappings' in visws.el
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defcustom whitespace-display-mappings
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
'(
Clarify or replace a few \u escapes. * doc/lispref/nonascii.texi (Character Properties) More-detailed commentary for \u escapes. * lisp/progmodes/python.el (python--prettify-symbols-alist): * lisp/replace.el (query-replace-from-to-separator): * lisp/textmodes/rst.el (rst-bullets, rst-re-alist-def) (rst-mode-syntax-table): * lisp/whitespace.el (whitespace-display-mappings): Prefer actual character to \u escape when this makes the code easier to follow in the usual case where Unicode chars can be displayed.
2015-09-21 14:58:41 +00:00
(space-mark ?\ [?·] [?.]) ; space - middle dot
(space-mark ?\xA0 [?¤] [?_]) ; hard space - currency sign
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;; NEWLINE is displayed using the face `whitespace-newline'
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(newline-mark ?\n [?$ ?\n]) ; eol - dollar sign
Clarify or replace a few \u escapes. * doc/lispref/nonascii.texi (Character Properties) More-detailed commentary for \u escapes. * lisp/progmodes/python.el (python--prettify-symbols-alist): * lisp/replace.el (query-replace-from-to-separator): * lisp/textmodes/rst.el (rst-bullets, rst-re-alist-def) (rst-mode-syntax-table): * lisp/whitespace.el (whitespace-display-mappings): Prefer actual character to \u escape when this makes the code easier to follow in the usual case where Unicode chars can be displayed.
2015-09-21 14:58:41 +00:00
;; (newline-mark ?\n [?↵ ?\n] [?$ ?\n]) ; eol - downwards arrow
;; (newline-mark ?\n [?¶ ?\n] [?$ ?\n]) ; eol - pilcrow
;; (newline-mark ?\n [?¯ ?\n] [?$ ?\n]) ; eol - overscore
;; (newline-mark ?\n [?¬ ?\n] [?$ ?\n]) ; eol - negation
;; (newline-mark ?\n [?° ?\n] [?$ ?\n]) ; eol - degrees
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;
;; WARNING: the mapping below has a problem.
;; When a TAB occupies exactly one column, it will display the
;; character ?\xBB at that column followed by a TAB which goes to
;; the next TAB column.
;; If this is a problem for you, please, comment the line below.
Clarify or replace a few \u escapes. * doc/lispref/nonascii.texi (Character Properties) More-detailed commentary for \u escapes. * lisp/progmodes/python.el (python--prettify-symbols-alist): * lisp/replace.el (query-replace-from-to-separator): * lisp/textmodes/rst.el (rst-bullets, rst-re-alist-def) (rst-mode-syntax-table): * lisp/whitespace.el (whitespace-display-mappings): Prefer actual character to \u escape when this makes the code easier to follow in the usual case where Unicode chars can be displayed.
2015-09-21 14:58:41 +00:00
(tab-mark ?\t [?» ?\t] [?\\ ?\t]) ; tab - right guillemet
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
)
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Specify an alist of mappings for displaying characters.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Each element has the following form:
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(KIND CHAR VECTOR...)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Where:
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
KIND is the kind of character.
It can be one of the following symbols:
tab-mark for TAB character
space-mark for SPACE or HARD SPACE character
newline-mark for NEWLINE character
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
CHAR is the character to be mapped.
VECTOR is a vector of characters to be displayed in place of CHAR.
The first display vector that can be displayed is used;
if no display vector for a mapping can be displayed, then
that character is displayed unmodified.
The NEWLINE character is displayed using the face given by
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
`whitespace-newline' variable.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
Used when `whitespace-style' includes `tab-mark', `space-mark' or
`newline-mark'."
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
:type '(repeat
(list :tag "Character Mapping"
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(choice :tag "Char Kind"
(const :tag "Tab" tab-mark)
(const :tag "Space" space-mark)
(const :tag "Newline" newline-mark))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(character :tag "Char")
(repeat :inline t :tag "Vector List"
(vector :tag ""
(repeat :inline t
:tag "Vector Characters"
(character :tag "Char"))))))
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defcustom whitespace-global-modes t
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Modes for which global `whitespace-mode' is automagically turned on.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
Global `whitespace-mode' is controlled by the command
`global-whitespace-mode'.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
If nil, means no modes have `whitespace-mode' automatically
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
turned on.
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
If t, all modes that support `whitespace-mode' have it
automatically turned on.
Else it should be a list of `major-mode' symbol names for which
`whitespace-mode' should be automatically turned on. The sense
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
of the list is negated if it begins with `not'. For example:
(c-mode c++-mode)
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
means that `whitespace-mode' is turned on for buffers in C and
C++ modes only."
New version 9.3.
2008-03-01 19:00:24 +00:00
:type '(choice :tag "Global Modes"
(const :tag "None" nil)
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
(const :tag "All" t)
(set :menu-tag "Mode Specific" :tag "Modes"
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
:value (not)
(const :tag "Except" not)
(repeat :inline t
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
(symbol :tag "Mode"))))
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New version 9.3.
2008-03-01 19:00:24 +00:00
(defcustom whitespace-action nil
* align.el: * allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
2008-12-03 05:48:14 +00:00
"Specify which action is taken when a buffer is visited or written.
New version 9.3.
2008-03-01 19:00:24 +00:00
It's a list containing some or all of the following values:
nil no action is taken.
cleanup cleanup any bogus whitespace always when local
whitespace is turned on.
See `whitespace-cleanup' and
`whitespace-cleanup-region'.
report-on-bogus report if there is any bogus whitespace always
when local whitespace is turned on.
auto-cleanup cleanup any bogus whitespace when buffer is
Eliminate whitespace-kill-buffer-hook functionality.
2008-10-02 00:49:49 +00:00
written.
New version 9.3.
2008-03-01 19:00:24 +00:00
See `whitespace-cleanup' and
`whitespace-cleanup-region'.
abort-on-bogus abort if there is any bogus whitespace and the
Eliminate whitespace-kill-buffer-hook functionality.
2008-10-02 00:49:49 +00:00
buffer is written.
New version 9.3.
2008-03-01 19:00:24 +00:00
Eliminate whitespace-kill-buffer-hook functionality.
2008-10-02 00:49:49 +00:00
warn-if-read-only give a warning if `cleanup' or `auto-cleanup'
Fix bug#360.
2008-09-06 00:19:31 +00:00
is included in `whitespace-action' and the
buffer is read-only.
New version 9.3.
2008-03-01 19:00:24 +00:00
Any other value is treated as nil."
:type '(choice :tag "Actions"
(const :tag "None" nil)
(repeat :tag "Action List"
(choice :tag "Action"
(const :tag "Cleanup When On" cleanup)
(const :tag "Report On Bogus" report-on-bogus)
(const :tag "Auto Cleanup" auto-cleanup)
Fix bug#360.
2008-09-06 00:19:31 +00:00
(const :tag "Abort On Bogus" abort-on-bogus)
Eliminate whitespace-kill-buffer-hook functionality.
2008-10-02 00:49:49 +00:00
(const :tag "Warn If Read-Only" warn-if-read-only))))
New version 9.3.
2008-03-01 19:00:24 +00:00
:group 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; User commands - Local mode
;;;###autoload
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(define-minor-mode whitespace-mode
Fix minor mode docstrings for the new meaning of a nil ARG. * abbrev.el (abbrev-mode): * allout.el (allout-mode): * autoinsert.el (auto-insert-mode): * autoarg.el (autoarg-mode, autoarg-kp-mode): * autorevert.el (auto-revert-mode, auto-revert-tail-mode) (global-auto-revert-mode): * battery.el (display-battery-mode): * composite.el (global-auto-composition-mode) (auto-composition-mode): * delsel.el (delete-selection-mode): * desktop.el (desktop-save-mode): * dired-x.el (dired-omit-mode): * dirtrack.el (dirtrack-mode): * doc-view.el (doc-view-minor-mode): * double.el (double-mode): * electric.el (electric-indent-mode, electric-pair-mode): * emacs-lock.el (emacs-lock-mode): * epa-hook.el (auto-encryption-mode): * follow.el (follow-mode): * font-core.el (font-lock-mode): * frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode): * help.el (temp-buffer-resize-mode): * hilit-chg.el (highlight-changes-mode) (highlight-changes-visible-mode): * hi-lock.el (hi-lock-mode): * hl-line.el (hl-line-mode, global-hl-line-mode): * icomplete.el (icomplete-mode): * ido.el (ido-everywhere): * image-file.el (auto-image-file-mode): * image-mode.el (image-minor-mode): * iswitchb.el (iswitchb-mode): * jka-cmpr-hook.el (auto-compression-mode): * linum.el (linum-mode): * longlines.el (longlines-mode): * master.el (master-mode): * mb-depth.el (minibuffer-depth-indicate-mode): * menu-bar.el (menu-bar-mode): * minibuf-eldef.el (minibuffer-electric-default-mode): * mouse-sel.el (mouse-sel-mode): * msb.el (msb-mode): * mwheel.el (mouse-wheel-mode): * outline.el (outline-minor-mode): * paren.el (show-paren-mode): * recentf.el (recentf-mode): * reveal.el (reveal-mode, global-reveal-mode): * rfn-eshadow.el (file-name-shadow-mode): * ruler-mode.el (ruler-mode): * savehist.el (savehist-mode): * scroll-all.el (scroll-all-mode): * scroll-bar.el (scroll-bar-mode): * server.el (server-mode): * shell.el (shell-dirtrack-mode): * simple.el (auto-fill-mode, transient-mark-mode) (visual-line-mode, overwrite-mode, binary-overwrite-mode) (line-number-mode, column-number-mode, size-indication-mode) (auto-save-mode, normal-erase-is-backspace-mode, visible-mode): * strokes.el (strokes-mode): * time.el (display-time-mode): * t-mouse.el (gpm-mouse-mode): * tool-bar.el (tool-bar-mode): * tooltip.el (tooltip-mode): * type-break.el (type-break-mode-line-message-mode) (type-break-query-mode): * view.el (view-mode): * whitespace.el (whitespace-mode, whitespace-newline-mode) (global-whitespace-mode, global-whitespace-newline-mode): * xt-mouse.el (xterm-mouse-mode): Doc fix. * emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix autogenerated docstring.
2011-10-19 12:54:24 +00:00
"Toggle whitespace visualization (Whitespace mode).
Improve docstring.
2008-08-06 03:35:04 +00:00
See also `whitespace-style', `whitespace-newline' and
Add a customization group link from whitespace-mode * lisp/whitespace.el (whitespace-mode): Add a link to the whitespace customization group to see the faces (bug#18296).
2021-09-04 08:19:39 +00:00
`whitespace-display-mappings'.
This mode uses a number of faces to visualize the whitespace; see
the customization group `whitespace' for details."
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:lighter " ws"
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
:init-value nil
:global nil
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(cond
(noninteractive ; running a batch job
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(setq whitespace-mode nil))
(whitespace-mode ; whitespace-mode on
New version 9.3.
2008-03-01 19:00:24 +00:00
(whitespace-turn-on)
(whitespace-action-when-on))
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(t ; whitespace-mode off
(whitespace-turn-off))))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New newline minor mode visualization.
2008-07-24 04:12:27 +00:00
;;;###autoload
(define-minor-mode whitespace-newline-mode
Fix minor mode docstrings for the new meaning of a nil ARG. * abbrev.el (abbrev-mode): * allout.el (allout-mode): * autoinsert.el (auto-insert-mode): * autoarg.el (autoarg-mode, autoarg-kp-mode): * autorevert.el (auto-revert-mode, auto-revert-tail-mode) (global-auto-revert-mode): * battery.el (display-battery-mode): * composite.el (global-auto-composition-mode) (auto-composition-mode): * delsel.el (delete-selection-mode): * desktop.el (desktop-save-mode): * dired-x.el (dired-omit-mode): * dirtrack.el (dirtrack-mode): * doc-view.el (doc-view-minor-mode): * double.el (double-mode): * electric.el (electric-indent-mode, electric-pair-mode): * emacs-lock.el (emacs-lock-mode): * epa-hook.el (auto-encryption-mode): * follow.el (follow-mode): * font-core.el (font-lock-mode): * frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode): * help.el (temp-buffer-resize-mode): * hilit-chg.el (highlight-changes-mode) (highlight-changes-visible-mode): * hi-lock.el (hi-lock-mode): * hl-line.el (hl-line-mode, global-hl-line-mode): * icomplete.el (icomplete-mode): * ido.el (ido-everywhere): * image-file.el (auto-image-file-mode): * image-mode.el (image-minor-mode): * iswitchb.el (iswitchb-mode): * jka-cmpr-hook.el (auto-compression-mode): * linum.el (linum-mode): * longlines.el (longlines-mode): * master.el (master-mode): * mb-depth.el (minibuffer-depth-indicate-mode): * menu-bar.el (menu-bar-mode): * minibuf-eldef.el (minibuffer-electric-default-mode): * mouse-sel.el (mouse-sel-mode): * msb.el (msb-mode): * mwheel.el (mouse-wheel-mode): * outline.el (outline-minor-mode): * paren.el (show-paren-mode): * recentf.el (recentf-mode): * reveal.el (reveal-mode, global-reveal-mode): * rfn-eshadow.el (file-name-shadow-mode): * ruler-mode.el (ruler-mode): * savehist.el (savehist-mode): * scroll-all.el (scroll-all-mode): * scroll-bar.el (scroll-bar-mode): * server.el (server-mode): * shell.el (shell-dirtrack-mode): * simple.el (auto-fill-mode, transient-mark-mode) (visual-line-mode, overwrite-mode, binary-overwrite-mode) (line-number-mode, column-number-mode, size-indication-mode) (auto-save-mode, normal-erase-is-backspace-mode, visible-mode): * strokes.el (strokes-mode): * time.el (display-time-mode): * t-mouse.el (gpm-mouse-mode): * tool-bar.el (tool-bar-mode): * tooltip.el (tooltip-mode): * type-break.el (type-break-mode-line-message-mode) (type-break-query-mode): * view.el (view-mode): * whitespace.el (whitespace-mode, whitespace-newline-mode) (global-whitespace-mode, global-whitespace-newline-mode): * xt-mouse.el (xterm-mouse-mode): Doc fix. * emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix autogenerated docstring.
2011-10-19 12:54:24 +00:00
"Toggle newline visualization (Whitespace Newline mode).
New newline minor mode visualization.
2008-07-24 04:12:27 +00:00
Improve docstring.
2008-08-06 03:35:04 +00:00
Use `whitespace-newline-mode' only for NEWLINE visualization
exclusively. For other visualizations, including NEWLINE
visualization together with (HARD) SPACEs and/or TABs, please,
use `whitespace-mode'.
See also `whitespace-newline' and `whitespace-display-mappings'."
New newline minor mode visualization.
2008-07-24 04:12:27 +00:00
:lighter " nl"
:init-value nil
:global nil
:group 'whitespace
Better code for whitespace-newline-mode.
2011-10-31 01:15:40 +00:00
(let ((whitespace-style '(face newline-mark newline)))
(whitespace-mode (if whitespace-newline-mode
1 -1)))
Disable whitespace-newline-mode properly.
2011-10-31 00:37:09 +00:00
;; sync states (running a batch job)
(setq whitespace-newline-mode whitespace-mode))
New newline minor mode visualization.
2008-07-24 04:12:27 +00:00
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; User commands - Global mode
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
;;;###autoload
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(define-minor-mode global-whitespace-mode
Fix minor mode docstrings for the new meaning of a nil ARG. * abbrev.el (abbrev-mode): * allout.el (allout-mode): * autoinsert.el (auto-insert-mode): * autoarg.el (autoarg-mode, autoarg-kp-mode): * autorevert.el (auto-revert-mode, auto-revert-tail-mode) (global-auto-revert-mode): * battery.el (display-battery-mode): * composite.el (global-auto-composition-mode) (auto-composition-mode): * delsel.el (delete-selection-mode): * desktop.el (desktop-save-mode): * dired-x.el (dired-omit-mode): * dirtrack.el (dirtrack-mode): * doc-view.el (doc-view-minor-mode): * double.el (double-mode): * electric.el (electric-indent-mode, electric-pair-mode): * emacs-lock.el (emacs-lock-mode): * epa-hook.el (auto-encryption-mode): * follow.el (follow-mode): * font-core.el (font-lock-mode): * frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode): * help.el (temp-buffer-resize-mode): * hilit-chg.el (highlight-changes-mode) (highlight-changes-visible-mode): * hi-lock.el (hi-lock-mode): * hl-line.el (hl-line-mode, global-hl-line-mode): * icomplete.el (icomplete-mode): * ido.el (ido-everywhere): * image-file.el (auto-image-file-mode): * image-mode.el (image-minor-mode): * iswitchb.el (iswitchb-mode): * jka-cmpr-hook.el (auto-compression-mode): * linum.el (linum-mode): * longlines.el (longlines-mode): * master.el (master-mode): * mb-depth.el (minibuffer-depth-indicate-mode): * menu-bar.el (menu-bar-mode): * minibuf-eldef.el (minibuffer-electric-default-mode): * mouse-sel.el (mouse-sel-mode): * msb.el (msb-mode): * mwheel.el (mouse-wheel-mode): * outline.el (outline-minor-mode): * paren.el (show-paren-mode): * recentf.el (recentf-mode): * reveal.el (reveal-mode, global-reveal-mode): * rfn-eshadow.el (file-name-shadow-mode): * ruler-mode.el (ruler-mode): * savehist.el (savehist-mode): * scroll-all.el (scroll-all-mode): * scroll-bar.el (scroll-bar-mode): * server.el (server-mode): * shell.el (shell-dirtrack-mode): * simple.el (auto-fill-mode, transient-mark-mode) (visual-line-mode, overwrite-mode, binary-overwrite-mode) (line-number-mode, column-number-mode, size-indication-mode) (auto-save-mode, normal-erase-is-backspace-mode, visible-mode): * strokes.el (strokes-mode): * time.el (display-time-mode): * t-mouse.el (gpm-mouse-mode): * tool-bar.el (tool-bar-mode): * tooltip.el (tooltip-mode): * type-break.el (type-break-mode-line-message-mode) (type-break-query-mode): * view.el (view-mode): * whitespace.el (whitespace-mode, whitespace-newline-mode) (global-whitespace-mode, global-whitespace-newline-mode): * xt-mouse.el (xterm-mouse-mode): Doc fix. * emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix autogenerated docstring.
2011-10-19 12:54:24 +00:00
"Toggle whitespace visualization globally (Global Whitespace mode).
Improve docstring.
2008-08-06 03:35:04 +00:00
See also `whitespace-style', `whitespace-newline' and
`whitespace-display-mappings'."
(global-whitespace-mode): Fix modeline lighter.
2008-02-01 10:25:35 +00:00
:lighter " WS"
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
:init-value nil
:global t
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
:group 'whitespace
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(cond
(noninteractive ; running a batch job
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(setq global-whitespace-mode nil))
(global-whitespace-mode ; global-whitespace-mode on
* lisp/whitespace.el (whitespace-trailing-regexp): Don't rely on the internal encoding (e.g. tibetan zero is not whitespace). (global-whitespace-mode): Prefer save-current-buffer. (whitespace-trailing-regexp): Remove useless save-match-data. (whitespace-empty-at-bob-regexp): Minor simplification.
2011-05-04 01:02:09 +00:00
(save-current-buffer
New version 9.3.
2008-03-01 19:00:24 +00:00
(add-hook 'find-file-hook 'whitespace-turn-on-if-enabled)
keep highlight when switching between major modes on a file.
2011-04-30 15:15:07 +00:00
(add-hook 'after-change-major-mode-hook 'whitespace-turn-on-if-enabled)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(dolist (buffer (buffer-list)) ; adjust all local mode
(set-buffer buffer)
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(unless whitespace-mode
(whitespace-turn-on-if-enabled)))))
(t ; global-whitespace-mode off
* lisp/whitespace.el (whitespace-trailing-regexp): Don't rely on the internal encoding (e.g. tibetan zero is not whitespace). (global-whitespace-mode): Prefer save-current-buffer. (whitespace-trailing-regexp): Remove useless save-match-data. (whitespace-empty-at-bob-regexp): Minor simplification.
2011-05-04 01:02:09 +00:00
(save-current-buffer
Use find-file-hook instead of find-file-hooks.
2008-02-01 18:52:51 +00:00
(remove-hook 'find-file-hook 'whitespace-turn-on-if-enabled)
keep highlight when switching between major modes on a file.
2011-04-30 15:15:07 +00:00
(remove-hook 'after-change-major-mode-hook 'whitespace-turn-on-if-enabled)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(dolist (buffer (buffer-list)) ; adjust all local mode
(set-buffer buffer)
(global-whitespace-mode): Revert last change. (whitespace-unload-function): Force `global-whitespace-mode' to deactivate local modes in a slightly less intrusive way.
2008-02-02 17:41:55 +00:00
(unless whitespace-mode
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(whitespace-turn-off)))))))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
* lisp/whitespace.el (whitespace-enable-predicate): New variable. (whitespace-enable-predicate): Use it.
2013-03-10 21:39:11 +00:00
(defvar whitespace-enable-predicate
(lambda ()
(and (cond
((eq whitespace-global-modes t))
((listp whitespace-global-modes)
(if (eq (car-safe whitespace-global-modes) 'not)
Make the default `whitespace-enable-predicate' use `derived-mode-p' * lisp/whitespace.el (whitespace-enable-predicate): Use `derived-mode-p' to check modes instead of `eq' (bug#40481).
2021-01-28 07:40:15 +00:00
(not (apply #'derived-mode-p (cdr whitespace-global-modes)))
(apply #'derived-mode-p whitespace-global-modes)))
* lisp/whitespace.el (whitespace-enable-predicate): New variable. (whitespace-enable-predicate): Use it.
2013-03-10 21:39:11 +00:00
(t nil))
* whitespace.el (whitespace-enable-predicate): fix sense of comment. Fixes bug #16564, from change of 2013-03-10.
2014-01-27 12:30:17 +00:00
;; ...we have a display (not running a batch job)
* lisp/whitespace.el (whitespace-enable-predicate): New variable. (whitespace-enable-predicate): Use it.
2013-03-10 21:39:11 +00:00
(not noninteractive)
;; ...the buffer is not internal (name starts with a space)
(not (eq (aref (buffer-name) 0) ?\ ))
;; ...the buffer is not special (name starts with *)
(or (not (eq (aref (buffer-name) 0) ?*))
;; except the scratch buffer.
(string= (buffer-name) "*scratch*"))))
"Predicate to decide which buffers obey `global-whitespace-mode'.
This function is called with no argument and should return non-nil
if the current buffer should obey `global-whitespace-mode'.
This variable is normally modified via `add-function'.")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defun whitespace-turn-on-if-enabled ()
* lisp/whitespace.el (whitespace-enable-predicate): New variable. (whitespace-enable-predicate): Use it.
2013-03-10 21:39:11 +00:00
(when (funcall whitespace-enable-predicate)
(whitespace-turn-on)))
New newline minor mode visualization.
2008-07-24 04:12:27 +00:00
;;;###autoload
(define-minor-mode global-whitespace-newline-mode
Fix minor mode docstrings for the new meaning of a nil ARG. * abbrev.el (abbrev-mode): * allout.el (allout-mode): * autoinsert.el (auto-insert-mode): * autoarg.el (autoarg-mode, autoarg-kp-mode): * autorevert.el (auto-revert-mode, auto-revert-tail-mode) (global-auto-revert-mode): * battery.el (display-battery-mode): * composite.el (global-auto-composition-mode) (auto-composition-mode): * delsel.el (delete-selection-mode): * desktop.el (desktop-save-mode): * dired-x.el (dired-omit-mode): * dirtrack.el (dirtrack-mode): * doc-view.el (doc-view-minor-mode): * double.el (double-mode): * electric.el (electric-indent-mode, electric-pair-mode): * emacs-lock.el (emacs-lock-mode): * epa-hook.el (auto-encryption-mode): * follow.el (follow-mode): * font-core.el (font-lock-mode): * frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode): * help.el (temp-buffer-resize-mode): * hilit-chg.el (highlight-changes-mode) (highlight-changes-visible-mode): * hi-lock.el (hi-lock-mode): * hl-line.el (hl-line-mode, global-hl-line-mode): * icomplete.el (icomplete-mode): * ido.el (ido-everywhere): * image-file.el (auto-image-file-mode): * image-mode.el (image-minor-mode): * iswitchb.el (iswitchb-mode): * jka-cmpr-hook.el (auto-compression-mode): * linum.el (linum-mode): * longlines.el (longlines-mode): * master.el (master-mode): * mb-depth.el (minibuffer-depth-indicate-mode): * menu-bar.el (menu-bar-mode): * minibuf-eldef.el (minibuffer-electric-default-mode): * mouse-sel.el (mouse-sel-mode): * msb.el (msb-mode): * mwheel.el (mouse-wheel-mode): * outline.el (outline-minor-mode): * paren.el (show-paren-mode): * recentf.el (recentf-mode): * reveal.el (reveal-mode, global-reveal-mode): * rfn-eshadow.el (file-name-shadow-mode): * ruler-mode.el (ruler-mode): * savehist.el (savehist-mode): * scroll-all.el (scroll-all-mode): * scroll-bar.el (scroll-bar-mode): * server.el (server-mode): * shell.el (shell-dirtrack-mode): * simple.el (auto-fill-mode, transient-mark-mode) (visual-line-mode, overwrite-mode, binary-overwrite-mode) (line-number-mode, column-number-mode, size-indication-mode) (auto-save-mode, normal-erase-is-backspace-mode, visible-mode): * strokes.el (strokes-mode): * time.el (display-time-mode): * t-mouse.el (gpm-mouse-mode): * tool-bar.el (tool-bar-mode): * tooltip.el (tooltip-mode): * type-break.el (type-break-mode-line-message-mode) (type-break-query-mode): * view.el (view-mode): * whitespace.el (whitespace-mode, whitespace-newline-mode) (global-whitespace-mode, global-whitespace-newline-mode): * xt-mouse.el (xterm-mouse-mode): Doc fix. * emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix autogenerated docstring.
2011-10-19 12:54:24 +00:00
"Toggle global newline visualization (Global Whitespace Newline mode).
New newline minor mode visualization.
2008-07-24 04:12:27 +00:00
Improve docstring.
2008-08-06 03:35:04 +00:00
Use `global-whitespace-newline-mode' only for NEWLINE
visualization exclusively. For other visualizations, including
NEWLINE visualization together with (HARD) SPACEs and/or TABs,
Fix typos in docstrings, error messages, etc.
2010-01-18 04:39:40 +00:00
please use `global-whitespace-mode'.
Improve docstring.
2008-08-06 03:35:04 +00:00
See also `whitespace-newline' and `whitespace-display-mappings'."
New newline minor mode visualization.
2008-07-24 04:12:27 +00:00
:lighter " NL"
:init-value nil
:global t
:group 'whitespace
(let ((whitespace-style '(newline-mark newline)))
Merge from emacs-23 branch.
2011-01-15 20:03:38 +00:00
(global-whitespace-mode (if global-whitespace-newline-mode
1 -1))
New newline minor mode visualization.
2008-07-24 04:12:27 +00:00
;; sync states (running a batch job)
(setq global-whitespace-newline-mode global-whitespace-mode)))
Obsolete `global-whitespace-newline-mode' * lisp/whitespace.el (global-whitespace-newline-mode): Make obsolete since it doesn't work correctly, and seems superfluous (bug#12496).
2021-06-01 07:15:13 +00:00
(make-obsolete 'global-whitespace-newline-mode
; End recently added sentences with a period.
2021-06-01 16:59:46 +00:00
"use `global-whitespace-mode' with `whitespace-style' set to `(newline-mark newline)' instead."
Obsolete `global-whitespace-newline-mode' * lisp/whitespace.el (global-whitespace-newline-mode): Make obsolete since it doesn't work correctly, and seems superfluous (bug#12496).
2021-06-01 07:15:13 +00:00
"28.1")
New newline minor mode visualization.
2008-07-24 04:12:27 +00:00
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; User commands - Toggle
New version 11.0.
2008-04-26 11:38:50 +00:00
(defconst whitespace-style-value-list
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
'(face
tabs
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
spaces
trailing
lines
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
lines-tail
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
newline
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
empty
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
indentation
indentation::tab
indentation::space
Add a 'big-indent style to `whitespace-mode'. * lisp/whitespace.el (whitespace-style, whitespace-big-indent) (whitespace-big-indent-regexp, whitespace-style-value-list) (whitespace-toggle-option-alist, whitespace-interactive-char) (whitespace-toggle-options) (global-whitespace-toggle-options, whitespace-help-text) (whitespace-style-face-p, whitespace-color-on): Add a 'big-indent style to `whitespace-mode' to indicate that the line indentation is too deep. By default, 32 SPACEs or four TABs are considered too many but `whitespace-big-indent-regexp' can be configured.
2014-10-18 00:23:03 +00:00
big-indent
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
space-after-tab
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
space-after-tab::tab
space-after-tab::space
space-before-tab
space-before-tab::tab
space-before-tab::space
New version 11.0.
2008-04-26 11:38:50 +00:00
help-newline ; value used by `whitespace-insert-option-mark'
tab-mark
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
space-mark
newline-mark
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
)
New version 11.0.
2008-04-26 11:38:50 +00:00
"List of valid `whitespace-style' values.")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defconst whitespace-toggle-option-alist
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
'((?f . face)
(?t . tabs)
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(?s . spaces)
(?r . trailing)
(?l . lines)
(?L . lines-tail)
(?n . newline)
(?e . empty)
(?\C-i . indentation)
(?I . indentation::tab)
(?i . indentation::space)
Add a 'big-indent style to `whitespace-mode'. * lisp/whitespace.el (whitespace-style, whitespace-big-indent) (whitespace-big-indent-regexp, whitespace-style-value-list) (whitespace-toggle-option-alist, whitespace-interactive-char) (whitespace-toggle-options) (global-whitespace-toggle-options, whitespace-help-text) (whitespace-style-face-p, whitespace-color-on): Add a 'big-indent style to `whitespace-mode' to indicate that the line indentation is too deep. By default, 32 SPACEs or four TABs are considered too many but `whitespace-big-indent-regexp' can be configured.
2014-10-18 00:23:03 +00:00
(?\C-t . big-indent)
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(?\C-a . space-after-tab)
(?A . space-after-tab::tab)
(?a . space-after-tab::space)
(?\C-b . space-before-tab)
(?B . space-before-tab::tab)
(?b . space-before-tab::space)
(?T . tab-mark)
(?S . space-mark)
(?N . newline-mark)
New version 11.0.
2008-04-26 11:38:50 +00:00
(?x . whitespace-style)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
)
"Alist of toggle options.
Each element has the form:
(CHAR . SYMBOL)
Where:
CHAR is a char which the user will have to type.
SYMBOL is a valid symbol associated with CHAR.
New version 11.0.
2008-04-26 11:38:50 +00:00
See `whitespace-style-value-list'.")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
(defvar whitespace-active-style nil
"Used to save locally `whitespace-style' value.")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New version 12. Bug#4177
2009-09-25 02:23:51 +00:00
(defvar whitespace-point (point)
"Used to save locally current point value.
Disambiguate function and variable references in docstrings. * lisp/comint.el (comint-history-isearch-message): Fix ambiguous doc string cross-reference(s). * lisp/ffap.el (ffap-string-at-point-region, ffap-next) (ffap-string-at-point, ffap-string-around) (ffap-copy-string-as-kill, ffap-highlight-overlay) (ffap-literally): Fix ambiguous doc string cross-reference(s). * lisp/font-lock.el (font-lock-keywords-alist) (font-lock-removed-keywords-alist): Fix ambiguous doc string cross-reference(s). * lisp/help-mode.el (help-xref-symbol-regexp): Add "call" as a hint for a cross-reference to a function. * lisp/info.el (Info-find-emacs-command-nodes): Fix ambiguous doc string cross-reference(s). * lisp/isearch.el (isearch-message-function, isearch-fail-pos): Fix ambiguous doc string cross-reference(s). * lisp/misearch.el (multi-isearch-next-buffer-function): Fix ambiguous doc string cross-reference(s). * lisp/newcomment.el (comment-box): Fix ambiguous doc string cross-reference(s). * lisp/printing.el (pr-txt-printer-alist, pr-ps-printer-alist) (pr-setting-database): Fix ambiguous doc string cross-reference(s). * lisp/ps-print.el (ps-even-or-odd-pages, ps-spool-buffer-with-faces) (ps-n-up-filling-database): Fix ambiguous doc string cross-reference(s). * lisp/server.el (server-buffer, server-log): Fix ambiguous doc string cross-reference(s). * lisp/simple.el (newline, delete-backward-char, delete-forward-char) (minibuffer-history-isearch-message, kill-line, track-eol) (temporary-goal-column): Fix ambiguous doc string cross-reference(s). * lisp/whitespace.el (whitespace-point) (whitespace-font-lock-refontify, whitespace-bob-marker) (whitespace-eob-marker): Fix ambiguous doc string cross-reference(s). * lisp/calc/calc.el (calc-highlight-selections-with-faces) (calc-dispatch): Fix ambiguous doc string cross-reference(s). * lisp/emacs-lisp/edebug.el (edebug-read, edebug-eval-defun): Fix ambiguous doc string cross-reference(s). * lisp/gnus/gnus-start.el (gnus-check-new-newsgroups): Fix ambiguous doc string cross-reference(s). * lisp/gnus/gnus-sum.el (gnus-summary-newsgroup-prefix): Fix ambiguous doc string cross-reference(s). * lisp/international/mule.el (add-to-coding-system-list): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/cc-fonts.el (c-font-lock-keywords-3) (c++-font-lock-keywords-3, objc-font-lock-keywords-3) (java-font-lock-keywords-3, idl-font-lock-keywords-3) (pike-font-lock-keywords-3): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/compile.el (compile): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/etags.el (tags-table-files) (tags-table-files-function, tags-included-tables-function): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/gdb-mi.el (gdb, gdb-setup-windows) (gdb-restore-windows): Fix ambiguous doc string cross-reference(s). * lisp/textmodes/flyspell.el (flyspell-mark-duplications-flag) (flyspell-default-deplacement-commands): Fix ambiguous doc string cross-reference(s). * lisp/textmodes/ispell.el (ispell-accept-output): Fix ambiguous doc string cross-reference(s). * lisp/textmodes/sgml-mode.el (html-tag-help): Fix ambiguous doc string cross-reference(s). * lisp/vc/compare-w.el (compare-ignore-whitespace) (compare-ignore-case, compare-windows-dehighlight): Fix ambiguous doc string cross-reference(s). * lisp/vc/diff.el (diff): Fix ambiguous doc string cross-reference(s). * src/insdel.c (Fcombine_after_change_execute, syms_of_insdel): Fix ambiguous doc string cross-reference(s). * src/keyboard.c (Fcommand_execute, syms_of_keyboard): Fix ambiguous doc string cross-reference(s). * src/window.c (Fwindow_point, syms_of_window): Fix ambiguous doc string cross-reference(s). Fixes: debbugs:12686
2013-01-11 23:08:55 +00:00
Used by function `whitespace-trailing-regexp' (which see).")
* lisp/whitespace.el: Use font-lock-flush. Minimize refontifications. Side benefit: it works without jit-lock. (whitespace-point--used): New buffer-local var. (whitespace-color-on): Initialize it and flush it. Use font-lock-flush. (whitespace-color-off): Use font-lock-flush. (whitespace-point--used, whitespace-point--flush-used): New functions. (whitespace-trailing-regexp, whitespace-empty-at-bob-regexp) (whitespace-empty-at-eob-regexp): Use them. (whitespace-post-command-hook): Rewrite.
2014-05-29 03:54:37 +00:00
(defvar-local whitespace-point--used nil
"Region whose highlighting depends on `whitespace-point'.")
New version 12. Bug#4177
2009-09-25 02:23:51 +00:00
(defvar whitespace-font-lock-refontify nil
"Used to save locally the font-lock refontify state.
Disambiguate function and variable references in docstrings. * lisp/comint.el (comint-history-isearch-message): Fix ambiguous doc string cross-reference(s). * lisp/ffap.el (ffap-string-at-point-region, ffap-next) (ffap-string-at-point, ffap-string-around) (ffap-copy-string-as-kill, ffap-highlight-overlay) (ffap-literally): Fix ambiguous doc string cross-reference(s). * lisp/font-lock.el (font-lock-keywords-alist) (font-lock-removed-keywords-alist): Fix ambiguous doc string cross-reference(s). * lisp/help-mode.el (help-xref-symbol-regexp): Add "call" as a hint for a cross-reference to a function. * lisp/info.el (Info-find-emacs-command-nodes): Fix ambiguous doc string cross-reference(s). * lisp/isearch.el (isearch-message-function, isearch-fail-pos): Fix ambiguous doc string cross-reference(s). * lisp/misearch.el (multi-isearch-next-buffer-function): Fix ambiguous doc string cross-reference(s). * lisp/newcomment.el (comment-box): Fix ambiguous doc string cross-reference(s). * lisp/printing.el (pr-txt-printer-alist, pr-ps-printer-alist) (pr-setting-database): Fix ambiguous doc string cross-reference(s). * lisp/ps-print.el (ps-even-or-odd-pages, ps-spool-buffer-with-faces) (ps-n-up-filling-database): Fix ambiguous doc string cross-reference(s). * lisp/server.el (server-buffer, server-log): Fix ambiguous doc string cross-reference(s). * lisp/simple.el (newline, delete-backward-char, delete-forward-char) (minibuffer-history-isearch-message, kill-line, track-eol) (temporary-goal-column): Fix ambiguous doc string cross-reference(s). * lisp/whitespace.el (whitespace-point) (whitespace-font-lock-refontify, whitespace-bob-marker) (whitespace-eob-marker): Fix ambiguous doc string cross-reference(s). * lisp/calc/calc.el (calc-highlight-selections-with-faces) (calc-dispatch): Fix ambiguous doc string cross-reference(s). * lisp/emacs-lisp/edebug.el (edebug-read, edebug-eval-defun): Fix ambiguous doc string cross-reference(s). * lisp/gnus/gnus-start.el (gnus-check-new-newsgroups): Fix ambiguous doc string cross-reference(s). * lisp/gnus/gnus-sum.el (gnus-summary-newsgroup-prefix): Fix ambiguous doc string cross-reference(s). * lisp/international/mule.el (add-to-coding-system-list): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/cc-fonts.el (c-font-lock-keywords-3) (c++-font-lock-keywords-3, objc-font-lock-keywords-3) (java-font-lock-keywords-3, idl-font-lock-keywords-3) (pike-font-lock-keywords-3): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/compile.el (compile): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/etags.el (tags-table-files) (tags-table-files-function, tags-included-tables-function): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/gdb-mi.el (gdb, gdb-setup-windows) (gdb-restore-windows): Fix ambiguous doc string cross-reference(s). * lisp/textmodes/flyspell.el (flyspell-mark-duplications-flag) (flyspell-default-deplacement-commands): Fix ambiguous doc string cross-reference(s). * lisp/textmodes/ispell.el (ispell-accept-output): Fix ambiguous doc string cross-reference(s). * lisp/textmodes/sgml-mode.el (html-tag-help): Fix ambiguous doc string cross-reference(s). * lisp/vc/compare-w.el (compare-ignore-whitespace) (compare-ignore-case, compare-windows-dehighlight): Fix ambiguous doc string cross-reference(s). * lisp/vc/diff.el (diff): Fix ambiguous doc string cross-reference(s). * src/insdel.c (Fcombine_after_change_execute, syms_of_insdel): Fix ambiguous doc string cross-reference(s). * src/keyboard.c (Fcommand_execute, syms_of_keyboard): Fix ambiguous doc string cross-reference(s). * src/window.c (Fwindow_point, syms_of_window): Fix ambiguous doc string cross-reference(s). Fixes: debbugs:12686
2013-01-11 23:08:55 +00:00
Used by function `whitespace-post-command-hook' (which see).")
New version 12. Bug#4177
2009-09-25 02:23:51 +00:00
Fix slow cursor movement.
2010-08-21 04:43:04 +00:00
(defvar whitespace-bob-marker nil
"Used to save locally the bob marker value.
Disambiguate function and variable references in docstrings. * lisp/comint.el (comint-history-isearch-message): Fix ambiguous doc string cross-reference(s). * lisp/ffap.el (ffap-string-at-point-region, ffap-next) (ffap-string-at-point, ffap-string-around) (ffap-copy-string-as-kill, ffap-highlight-overlay) (ffap-literally): Fix ambiguous doc string cross-reference(s). * lisp/font-lock.el (font-lock-keywords-alist) (font-lock-removed-keywords-alist): Fix ambiguous doc string cross-reference(s). * lisp/help-mode.el (help-xref-symbol-regexp): Add "call" as a hint for a cross-reference to a function. * lisp/info.el (Info-find-emacs-command-nodes): Fix ambiguous doc string cross-reference(s). * lisp/isearch.el (isearch-message-function, isearch-fail-pos): Fix ambiguous doc string cross-reference(s). * lisp/misearch.el (multi-isearch-next-buffer-function): Fix ambiguous doc string cross-reference(s). * lisp/newcomment.el (comment-box): Fix ambiguous doc string cross-reference(s). * lisp/printing.el (pr-txt-printer-alist, pr-ps-printer-alist) (pr-setting-database): Fix ambiguous doc string cross-reference(s). * lisp/ps-print.el (ps-even-or-odd-pages, ps-spool-buffer-with-faces) (ps-n-up-filling-database): Fix ambiguous doc string cross-reference(s). * lisp/server.el (server-buffer, server-log): Fix ambiguous doc string cross-reference(s). * lisp/simple.el (newline, delete-backward-char, delete-forward-char) (minibuffer-history-isearch-message, kill-line, track-eol) (temporary-goal-column): Fix ambiguous doc string cross-reference(s). * lisp/whitespace.el (whitespace-point) (whitespace-font-lock-refontify, whitespace-bob-marker) (whitespace-eob-marker): Fix ambiguous doc string cross-reference(s). * lisp/calc/calc.el (calc-highlight-selections-with-faces) (calc-dispatch): Fix ambiguous doc string cross-reference(s). * lisp/emacs-lisp/edebug.el (edebug-read, edebug-eval-defun): Fix ambiguous doc string cross-reference(s). * lisp/gnus/gnus-start.el (gnus-check-new-newsgroups): Fix ambiguous doc string cross-reference(s). * lisp/gnus/gnus-sum.el (gnus-summary-newsgroup-prefix): Fix ambiguous doc string cross-reference(s). * lisp/international/mule.el (add-to-coding-system-list): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/cc-fonts.el (c-font-lock-keywords-3) (c++-font-lock-keywords-3, objc-font-lock-keywords-3) (java-font-lock-keywords-3, idl-font-lock-keywords-3) (pike-font-lock-keywords-3): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/compile.el (compile): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/etags.el (tags-table-files) (tags-table-files-function, tags-included-tables-function): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/gdb-mi.el (gdb, gdb-setup-windows) (gdb-restore-windows): Fix ambiguous doc string cross-reference(s). * lisp/textmodes/flyspell.el (flyspell-mark-duplications-flag) (flyspell-default-deplacement-commands): Fix ambiguous doc string cross-reference(s). * lisp/textmodes/ispell.el (ispell-accept-output): Fix ambiguous doc string cross-reference(s). * lisp/textmodes/sgml-mode.el (html-tag-help): Fix ambiguous doc string cross-reference(s). * lisp/vc/compare-w.el (compare-ignore-whitespace) (compare-ignore-case, compare-windows-dehighlight): Fix ambiguous doc string cross-reference(s). * lisp/vc/diff.el (diff): Fix ambiguous doc string cross-reference(s). * src/insdel.c (Fcombine_after_change_execute, syms_of_insdel): Fix ambiguous doc string cross-reference(s). * src/keyboard.c (Fcommand_execute, syms_of_keyboard): Fix ambiguous doc string cross-reference(s). * src/window.c (Fwindow_point, syms_of_window): Fix ambiguous doc string cross-reference(s). Fixes: debbugs:12686
2013-01-11 23:08:55 +00:00
Used by function `whitespace-post-command-hook' (which see).")
Fix slow cursor movement.
2010-08-21 04:43:04 +00:00
(defvar whitespace-eob-marker nil
"Used to save locally the eob marker value.
Disambiguate function and variable references in docstrings. * lisp/comint.el (comint-history-isearch-message): Fix ambiguous doc string cross-reference(s). * lisp/ffap.el (ffap-string-at-point-region, ffap-next) (ffap-string-at-point, ffap-string-around) (ffap-copy-string-as-kill, ffap-highlight-overlay) (ffap-literally): Fix ambiguous doc string cross-reference(s). * lisp/font-lock.el (font-lock-keywords-alist) (font-lock-removed-keywords-alist): Fix ambiguous doc string cross-reference(s). * lisp/help-mode.el (help-xref-symbol-regexp): Add "call" as a hint for a cross-reference to a function. * lisp/info.el (Info-find-emacs-command-nodes): Fix ambiguous doc string cross-reference(s). * lisp/isearch.el (isearch-message-function, isearch-fail-pos): Fix ambiguous doc string cross-reference(s). * lisp/misearch.el (multi-isearch-next-buffer-function): Fix ambiguous doc string cross-reference(s). * lisp/newcomment.el (comment-box): Fix ambiguous doc string cross-reference(s). * lisp/printing.el (pr-txt-printer-alist, pr-ps-printer-alist) (pr-setting-database): Fix ambiguous doc string cross-reference(s). * lisp/ps-print.el (ps-even-or-odd-pages, ps-spool-buffer-with-faces) (ps-n-up-filling-database): Fix ambiguous doc string cross-reference(s). * lisp/server.el (server-buffer, server-log): Fix ambiguous doc string cross-reference(s). * lisp/simple.el (newline, delete-backward-char, delete-forward-char) (minibuffer-history-isearch-message, kill-line, track-eol) (temporary-goal-column): Fix ambiguous doc string cross-reference(s). * lisp/whitespace.el (whitespace-point) (whitespace-font-lock-refontify, whitespace-bob-marker) (whitespace-eob-marker): Fix ambiguous doc string cross-reference(s). * lisp/calc/calc.el (calc-highlight-selections-with-faces) (calc-dispatch): Fix ambiguous doc string cross-reference(s). * lisp/emacs-lisp/edebug.el (edebug-read, edebug-eval-defun): Fix ambiguous doc string cross-reference(s). * lisp/gnus/gnus-start.el (gnus-check-new-newsgroups): Fix ambiguous doc string cross-reference(s). * lisp/gnus/gnus-sum.el (gnus-summary-newsgroup-prefix): Fix ambiguous doc string cross-reference(s). * lisp/international/mule.el (add-to-coding-system-list): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/cc-fonts.el (c-font-lock-keywords-3) (c++-font-lock-keywords-3, objc-font-lock-keywords-3) (java-font-lock-keywords-3, idl-font-lock-keywords-3) (pike-font-lock-keywords-3): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/compile.el (compile): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/etags.el (tags-table-files) (tags-table-files-function, tags-included-tables-function): Fix ambiguous doc string cross-reference(s). * lisp/progmodes/gdb-mi.el (gdb, gdb-setup-windows) (gdb-restore-windows): Fix ambiguous doc string cross-reference(s). * lisp/textmodes/flyspell.el (flyspell-mark-duplications-flag) (flyspell-default-deplacement-commands): Fix ambiguous doc string cross-reference(s). * lisp/textmodes/ispell.el (ispell-accept-output): Fix ambiguous doc string cross-reference(s). * lisp/textmodes/sgml-mode.el (html-tag-help): Fix ambiguous doc string cross-reference(s). * lisp/vc/compare-w.el (compare-ignore-whitespace) (compare-ignore-case, compare-windows-dehighlight): Fix ambiguous doc string cross-reference(s). * lisp/vc/diff.el (diff): Fix ambiguous doc string cross-reference(s). * src/insdel.c (Fcombine_after_change_execute, syms_of_insdel): Fix ambiguous doc string cross-reference(s). * src/keyboard.c (Fcommand_execute, syms_of_keyboard): Fix ambiguous doc string cross-reference(s). * src/window.c (Fwindow_point, syms_of_window): Fix ambiguous doc string cross-reference(s). Fixes: debbugs:12686
2013-01-11 23:08:55 +00:00
Used by function `whitespace-post-command-hook' (which see).")
Fix slow cursor movement.
2010-08-21 04:43:04 +00:00
(defvar whitespace-buffer-changed nil
"Used to indicate locally if buffer changed.
Used by `whitespace-post-command-hook' and `whitespace-buffer-changed'
functions (which see).")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;;###autoload
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defun whitespace-toggle-options (arg)
"Toggle local `whitespace-mode' options.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
If local whitespace-mode is off, toggle the option given by ARG
and turn on local whitespace-mode.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
If local whitespace-mode is on, toggle the option given by ARG
and restart local whitespace-mode.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Interactively, it reads one of the following chars:
CHAR MEANING
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(VIA FACES)
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
f toggle face visualization
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
t toggle TAB visualization
s toggle SPACE and HARD SPACE visualization
r toggle trailing blanks visualization
l toggle \"long lines\" visualization
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
L toggle \"long lines\" tail visualization
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
n toggle NEWLINE visualization
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
e toggle empty line at bob and/or eob visualization
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
C-i toggle indentation SPACEs visualization (via `indent-tabs-mode')
I toggle indentation SPACEs visualization
i toggle indentation TABs visualization
Add a 'big-indent style to `whitespace-mode'. * lisp/whitespace.el (whitespace-style, whitespace-big-indent) (whitespace-big-indent-regexp, whitespace-style-value-list) (whitespace-toggle-option-alist, whitespace-interactive-char) (whitespace-toggle-options) (global-whitespace-toggle-options, whitespace-help-text) (whitespace-style-face-p, whitespace-color-on): Add a 'big-indent style to `whitespace-mode' to indicate that the line indentation is too deep. By default, 32 SPACEs or four TABs are considered too many but `whitespace-big-indent-regexp' can be configured.
2014-10-18 00:23:03 +00:00
C-t toggle big indentation visualization
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
C-a toggle SPACEs after TAB visualization (via `indent-tabs-mode')
A toggle SPACEs after TAB: SPACEs visualization
a toggle SPACEs after TAB: TABs visualization
C-b toggle SPACEs before TAB visualization (via `indent-tabs-mode')
B toggle SPACEs before TAB: SPACEs visualization
b toggle SPACEs before TAB: TABs visualization
(VIA DISPLAY TABLE)
T toggle TAB visualization
S toggle SPACEs before TAB visualization
N toggle NEWLINE visualization
New version 11.0.
2008-04-26 11:38:50 +00:00
x restore `whitespace-style' value
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
? display brief help
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
Non-interactively, ARG should be a symbol or a list of symbols.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
The valid symbols are:
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
face toggle face visualization
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
tabs toggle TAB visualization
spaces toggle SPACE and HARD SPACE visualization
trailing toggle trailing blanks visualization
lines toggle \"long lines\" visualization
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
lines-tail toggle \"long lines\" tail visualization
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
newline toggle NEWLINE visualization
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
empty toggle empty line at bob and/or eob visualization
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
indentation toggle indentation SPACEs visualization
indentation::tab toggle indentation SPACEs visualization
indentation::space toggle indentation TABs visualization
Add a 'big-indent style to `whitespace-mode'. * lisp/whitespace.el (whitespace-style, whitespace-big-indent) (whitespace-big-indent-regexp, whitespace-style-value-list) (whitespace-toggle-option-alist, whitespace-interactive-char) (whitespace-toggle-options) (global-whitespace-toggle-options, whitespace-help-text) (whitespace-style-face-p, whitespace-color-on): Add a 'big-indent style to `whitespace-mode' to indicate that the line indentation is too deep. By default, 32 SPACEs or four TABs are considered too many but `whitespace-big-indent-regexp' can be configured.
2014-10-18 00:23:03 +00:00
big-indent toggle big indentation visualization
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
space-after-tab toggle SPACEs after TAB visualization
space-after-tab::tab toggle SPACEs after TAB: SPACEs visualization
space-after-tab::space toggle SPACEs after TAB: TABs visualization
space-before-tab toggle SPACEs before TAB visualization
space-before-tab::tab toggle SPACEs before TAB: SPACEs visualization
space-before-tab::space toggle SPACEs before TAB: TABs visualization
tab-mark toggle TAB visualization
space-mark toggle SPACEs before TAB visualization
newline-mark toggle NEWLINE visualization
New version 11.0.
2008-04-26 11:38:50 +00:00
whitespace-style restore `whitespace-style' value
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
See `whitespace-style' and `indent-tabs-mode' for documentation."
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(interactive (whitespace-interactive-char t))
New version 11.0.
2008-04-26 11:38:50 +00:00
(let ((whitespace-style
(whitespace-toggle-list t arg whitespace-active-style)))
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(whitespace-mode 0)
(whitespace-mode 1)))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
(defvar whitespace-toggle-style nil
"Used to toggle the global `whitespace-style' value.")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;;###autoload
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defun global-whitespace-toggle-options (arg)
"Toggle global `whitespace-mode' options.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
If global whitespace-mode is off, toggle the option given by ARG
and turn on global whitespace-mode.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
If global whitespace-mode is on, toggle the option given by ARG
and restart global whitespace-mode.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(whitespace): Set :version tag to 23.1. (whitespace-turn-off, whitespace-toggle-options): Fix typos. (whitespace-style, whitespace-chars, whitespace-space, whitespace-hspace, whitespace-tab, whitespace-newline, whitespace-trailing, whitespace-line, whitespace-space-before-tab, whitespace-indentation, whitespace-empty, whitespace-space-after-tab, whitespace-hspace-regexp, whitespace-space-regexp, whitespace-tab-regexp, whitespace-trailing-regexp, whitespace-space-before-tab-regexp, whitespace-indentation-regexp, whitespace-empty-at-bob-regexp, whitespace-empty-at-eob-regexp, whitespace-space-after-tab-regexp, whitespace-line-column, whitespace-display-mappings, global-whitespace-toggle-options, whitespace-cleanup, whitespace-cleanup-region, whitespace-interactive-char): Doc fixes.
2008-02-01 14:44:44 +00:00
Interactively, it accepts one of the following chars:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
CHAR MEANING
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(VIA FACES)
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
f toggle face visualization
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
t toggle TAB visualization
s toggle SPACE and HARD SPACE visualization
r toggle trailing blanks visualization
l toggle \"long lines\" visualization
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
L toggle \"long lines\" tail visualization
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
n toggle NEWLINE visualization
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
e toggle empty line at bob and/or eob visualization
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
C-i toggle indentation SPACEs visualization (via `indent-tabs-mode')
I toggle indentation SPACEs visualization
i toggle indentation TABs visualization
Add a 'big-indent style to `whitespace-mode'. * lisp/whitespace.el (whitespace-style, whitespace-big-indent) (whitespace-big-indent-regexp, whitespace-style-value-list) (whitespace-toggle-option-alist, whitespace-interactive-char) (whitespace-toggle-options) (global-whitespace-toggle-options, whitespace-help-text) (whitespace-style-face-p, whitespace-color-on): Add a 'big-indent style to `whitespace-mode' to indicate that the line indentation is too deep. By default, 32 SPACEs or four TABs are considered too many but `whitespace-big-indent-regexp' can be configured.
2014-10-18 00:23:03 +00:00
C-t toggle big indentation visualization
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
C-a toggle SPACEs after TAB visualization (via `indent-tabs-mode')
A toggle SPACEs after TAB: SPACEs visualization
a toggle SPACEs after TAB: TABs visualization
C-b toggle SPACEs before TAB visualization (via `indent-tabs-mode')
B toggle SPACEs before TAB: SPACEs visualization
b toggle SPACEs before TAB: TABs visualization
(VIA DISPLAY TABLE)
T toggle TAB visualization
S toggle SPACEs before TAB visualization
N toggle NEWLINE visualization
New version 11.0.
2008-04-26 11:38:50 +00:00
x restore `whitespace-style' value
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
? display brief help
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
Non-interactively, ARG should be a symbol or a list of symbols.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
The valid symbols are:
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
face toggle face visualization
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
tabs toggle TAB visualization
spaces toggle SPACE and HARD SPACE visualization
trailing toggle trailing blanks visualization
lines toggle \"long lines\" visualization
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
lines-tail toggle \"long lines\" tail visualization
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
newline toggle NEWLINE visualization
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
empty toggle empty line at bob and/or eob visualization
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
indentation toggle indentation SPACEs visualization
indentation::tab toggle indentation SPACEs visualization
indentation::space toggle indentation TABs visualization
Add a 'big-indent style to `whitespace-mode'. * lisp/whitespace.el (whitespace-style, whitespace-big-indent) (whitespace-big-indent-regexp, whitespace-style-value-list) (whitespace-toggle-option-alist, whitespace-interactive-char) (whitespace-toggle-options) (global-whitespace-toggle-options, whitespace-help-text) (whitespace-style-face-p, whitespace-color-on): Add a 'big-indent style to `whitespace-mode' to indicate that the line indentation is too deep. By default, 32 SPACEs or four TABs are considered too many but `whitespace-big-indent-regexp' can be configured.
2014-10-18 00:23:03 +00:00
big-indent toggle big indentation visualization
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
space-after-tab toggle SPACEs after TAB visualization
space-after-tab::tab toggle SPACEs after TAB: SPACEs visualization
space-after-tab::space toggle SPACEs after TAB: TABs visualization
space-before-tab toggle SPACEs before TAB visualization
space-before-tab::tab toggle SPACEs before TAB: SPACEs visualization
space-before-tab::space toggle SPACEs before TAB: TABs visualization
tab-mark toggle TAB visualization
space-mark toggle SPACEs before TAB visualization
newline-mark toggle NEWLINE visualization
New version 11.0.
2008-04-26 11:38:50 +00:00
whitespace-style restore `whitespace-style' value
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
See `whitespace-style' and `indent-tabs-mode' for documentation."
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(interactive (whitespace-interactive-char nil))
New version 11.0.
2008-04-26 11:38:50 +00:00
(let ((whitespace-style
(whitespace-toggle-list nil arg whitespace-toggle-style)))
(setq whitespace-toggle-style whitespace-style)
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(global-whitespace-mode 0)
(global-whitespace-mode 1)))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; User commands - Cleanup
;;;###autoload
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defun whitespace-cleanup ()
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
"Cleanup some blank problems in all buffer or at region.
It usually applies to the whole buffer, but in transient mark
mode when the mark is active, it applies to the region. It also
Fix typo.
2008-10-18 15:51:35 +00:00
applies to the region when it is not in transient mark mode, the
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
mark is active and \\[universal-argument] was pressed just before
calling `whitespace-cleanup' interactively.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
See also `whitespace-cleanup-region'.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
(whitespace): Set :version tag to 23.1. (whitespace-turn-off, whitespace-toggle-options): Fix typos. (whitespace-style, whitespace-chars, whitespace-space, whitespace-hspace, whitespace-tab, whitespace-newline, whitespace-trailing, whitespace-line, whitespace-space-before-tab, whitespace-indentation, whitespace-empty, whitespace-space-after-tab, whitespace-hspace-regexp, whitespace-space-regexp, whitespace-tab-regexp, whitespace-trailing-regexp, whitespace-space-before-tab-regexp, whitespace-indentation-regexp, whitespace-empty-at-bob-regexp, whitespace-empty-at-eob-regexp, whitespace-space-after-tab-regexp, whitespace-line-column, whitespace-display-mappings, global-whitespace-toggle-options, whitespace-cleanup, whitespace-cleanup-region, whitespace-interactive-char): Doc fixes.
2008-02-01 14:44:44 +00:00
The problems cleaned up are:
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
1. empty lines at beginning of buffer.
2. empty lines at end of buffer.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value `empty', remove all
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
empty lines at beginning and/or end of buffer.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
3. `tab-width' or more SPACEs at beginning of line.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value `indentation':
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
replace `tab-width' or more SPACEs at beginning of line by
TABs, if `indent-tabs-mode' is non-nil; otherwise, replace TABs by
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
SPACEs.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value `indentation::tab',
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
replace `tab-width' or more SPACEs at beginning of line by TABs.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value `indentation::space',
replace TABs by SPACEs.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
4. SPACEs before TAB.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value `space-before-tab':
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
otherwise, replace TABs by SPACEs.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
`space-before-tab::tab', replace SPACEs by TABs.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
`space-before-tab::space', replace TABs by SPACEs.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
5. SPACEs or TABs at end of line.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value `trailing', remove
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
all SPACEs or TABs at end of line.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
6. `tab-width' or more SPACEs after TAB.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value `space-after-tab':
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
otherwise, replace TABs by SPACEs.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
`space-after-tab::tab', replace SPACEs by TABs.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
`space-after-tab::space', replace TABs by SPACEs.
New version 11.0.
2008-04-26 11:38:50 +00:00
See `whitespace-style', `indent-tabs-mode' and `tab-width' for
documentation."
Fix bug#360.
2008-09-06 00:19:31 +00:00
(interactive "@")
(cond
;; read-only buffer
(buffer-read-only
(whitespace-warn-read-only "cleanup"))
;; region active
((and (or transient-mark-mode
current-prefix-arg)
mark-active)
;; PROBLEMs 1 and 2 are not handled in region
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
;; PROBLEM 3: `tab-width' or more SPACEs at bol
Fix bug#360.
2008-09-06 00:19:31 +00:00
;; PROBLEM 4: SPACEs before TAB
;; PROBLEM 5: SPACEs or TABs at eol
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
;; PROBLEM 6: `tab-width' or more SPACEs after TAB
Fix bug#360.
2008-09-06 00:19:31 +00:00
(whitespace-cleanup-region (region-beginning) (region-end)))
;; whole buffer
(t
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
(save-excursion
Remove redundant `save-match-data' in whitespace.el * lisp/whitespace.el (whitespace-cleanup, whitespace-cleanup-region): (whitespace-report-region): Remove redundant `save-match-data' calls.
2016-12-24 14:41:46 +00:00
;; PROBLEM 1: empty lines at bob
;; PROBLEM 2: empty lines at eob
;; ACTION: remove all empty lines at bob and/or eob
(when (memq 'empty whitespace-style)
(let (overwrite-mode) ; enforce no overwrite
(goto-char (point-min))
(when (looking-at whitespace-empty-at-bob-regexp)
(delete-region (match-beginning 1) (match-end 1)))
(when (re-search-forward
whitespace-empty-at-eob-regexp nil t)
(delete-region (match-beginning 1) (match-end 1))))))
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
;; PROBLEM 3: `tab-width' or more SPACEs at bol
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
;; PROBLEM 4: SPACEs before TAB
;; PROBLEM 5: SPACEs or TABs at eol
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
;; PROBLEM 6: `tab-width' or more SPACEs after TAB
Fix bug#360.
2008-09-06 00:19:31 +00:00
(whitespace-cleanup-region (point-min) (point-max)))))
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
;;;###autoload
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defun whitespace-cleanup-region (start end)
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
"Cleanup some blank problems at region.
(whitespace): Set :version tag to 23.1. (whitespace-turn-off, whitespace-toggle-options): Fix typos. (whitespace-style, whitespace-chars, whitespace-space, whitespace-hspace, whitespace-tab, whitespace-newline, whitespace-trailing, whitespace-line, whitespace-space-before-tab, whitespace-indentation, whitespace-empty, whitespace-space-after-tab, whitespace-hspace-regexp, whitespace-space-regexp, whitespace-tab-regexp, whitespace-trailing-regexp, whitespace-space-before-tab-regexp, whitespace-indentation-regexp, whitespace-empty-at-bob-regexp, whitespace-empty-at-eob-regexp, whitespace-space-after-tab-regexp, whitespace-line-column, whitespace-display-mappings, global-whitespace-toggle-options, whitespace-cleanup, whitespace-cleanup-region, whitespace-interactive-char): Doc fixes.
2008-02-01 14:44:44 +00:00
The problems cleaned up are:
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
1. `tab-width' or more SPACEs at beginning of line.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value `indentation':
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
replace `tab-width' or more SPACEs at beginning of line by TABs,
if `indent-tabs-mode' is non-nil; otherwise, replace TABs by
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
SPACEs.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value `indentation::tab',
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
replace `tab-width' or more SPACEs at beginning of line by TABs.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value `indentation::space',
replace TABs by SPACEs.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
2. SPACEs before TAB.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value `space-before-tab':
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
otherwise, replace TABs by SPACEs.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
`space-before-tab::tab', replace SPACEs by TABs.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
`space-before-tab::space', replace TABs by SPACEs.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
3. SPACEs or TABs at end of line.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value `trailing', remove
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
all SPACEs or TABs at end of line.
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
4. `tab-width' or more SPACEs after TAB.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value `space-after-tab':
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
otherwise, replace TABs by SPACEs.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
`space-after-tab::tab', replace SPACEs by TABs.
New version 11.0.
2008-04-26 11:38:50 +00:00
If `whitespace-style' includes the value
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
`space-after-tab::space', replace TABs by SPACEs.
New version 11.0.
2008-04-26 11:38:50 +00:00
See `whitespace-style', `indent-tabs-mode' and `tab-width' for
documentation."
Fix bug#360.
2008-09-06 00:19:31 +00:00
(interactive "@r")
(if buffer-read-only
;; read-only buffer
(whitespace-warn-read-only "cleanup region")
;; non-read-only buffer
(let ((rstart (min start end))
(rend (copy-marker (max start end)))
overwrite-mode ; enforce no overwrite
tmp)
(save-excursion
Remove redundant `save-match-data' in whitespace.el * lisp/whitespace.el (whitespace-cleanup, whitespace-cleanup-region): (whitespace-report-region): Remove redundant `save-match-data' calls.
2016-12-24 14:41:46 +00:00
;; PROBLEM 1: `tab-width' or more SPACEs at bol
(cond
;; ACTION: replace `tab-width' or more SPACEs at bol by TABs, if
;; `indent-tabs-mode' is non-nil; otherwise, replace TABs
;; by SPACEs.
((memq 'indentation whitespace-style)
(let ((regexp (whitespace-indentation-regexp)))
(goto-char rstart)
(while (re-search-forward regexp rend t)
(setq tmp (current-indentation))
(goto-char (match-beginning 0))
(delete-horizontal-space)
(unless (eolp)
(indent-to tmp)))))
;; ACTION: replace `tab-width' or more SPACEs at bol by TABs.
((memq 'indentation::tab whitespace-style)
(whitespace-replace-action
'tabify rstart rend
(whitespace-indentation-regexp 'tab) 0))
;; ACTION: replace TABs by SPACEs.
((memq 'indentation::space whitespace-style)
(whitespace-replace-action
'untabify rstart rend
(whitespace-indentation-regexp 'space) 0)))
;; PROBLEM 3: SPACEs or TABs at eol
;; ACTION: remove all SPACEs or TABs at eol
(when (memq 'trailing whitespace-style)
(whitespace-replace-action
'delete-region rstart rend
whitespace-trailing-regexp 1))
;; PROBLEM 4: `tab-width' or more SPACEs after TAB
(cond
;; ACTION: replace `tab-width' or more SPACEs by TABs, if
;; `indent-tabs-mode' is non-nil; otherwise, replace TABs
;; by SPACEs.
((memq 'space-after-tab whitespace-style)
(whitespace-replace-action
Fix reading of tab settings in whitespace-mode lisp/whitespace.el (whitespace-indent-tabs-mode) whitespace-tab-width): Remove these variables. The underlying variables `indent-tabs-mode' and `tab-width' are already buffer-local when needed, and whitespace-mode never changes them. (whitespace-ensure-local-variables): Remove this function, which only existed to set the above variables. (whitespace-cleanup-region, whitespace-regexp) (whitespace-indentation-regexp, whitespace-report-region) (whitespace-turn-on, whitespace-color-on): Adjust these functions to use `indent-tabs-mode' and `tab-width' directly, and not call `whitespace-ensure-local-variables'.
2017-03-02 12:50:06 +00:00
(if indent-tabs-mode 'tabify 'untabify)
Remove redundant `save-match-data' in whitespace.el * lisp/whitespace.el (whitespace-cleanup, whitespace-cleanup-region): (whitespace-report-region): Remove redundant `save-match-data' calls.
2016-12-24 14:41:46 +00:00
rstart rend (whitespace-space-after-tab-regexp) 1))
;; ACTION: replace `tab-width' or more SPACEs by TABs.
((memq 'space-after-tab::tab whitespace-style)
(whitespace-replace-action
'tabify rstart rend
(whitespace-space-after-tab-regexp 'tab) 1))
;; ACTION: replace TABs by SPACEs.
((memq 'space-after-tab::space whitespace-style)
(whitespace-replace-action
'untabify rstart rend
(whitespace-space-after-tab-regexp 'space) 1)))
;; PROBLEM 2: SPACEs before TAB
(cond
;; ACTION: replace SPACEs before TAB by TABs, if
;; `indent-tabs-mode' is non-nil; otherwise, replace TABs
;; by SPACEs.
((memq 'space-before-tab whitespace-style)
(whitespace-replace-action
Fix reading of tab settings in whitespace-mode lisp/whitespace.el (whitespace-indent-tabs-mode) whitespace-tab-width): Remove these variables. The underlying variables `indent-tabs-mode' and `tab-width' are already buffer-local when needed, and whitespace-mode never changes them. (whitespace-ensure-local-variables): Remove this function, which only existed to set the above variables. (whitespace-cleanup-region, whitespace-regexp) (whitespace-indentation-regexp, whitespace-report-region) (whitespace-turn-on, whitespace-color-on): Adjust these functions to use `indent-tabs-mode' and `tab-width' directly, and not call `whitespace-ensure-local-variables'.
2017-03-02 12:50:06 +00:00
(if indent-tabs-mode 'tabify 'untabify)
Remove redundant `save-match-data' in whitespace.el * lisp/whitespace.el (whitespace-cleanup, whitespace-cleanup-region): (whitespace-report-region): Remove redundant `save-match-data' calls.
2016-12-24 14:41:46 +00:00
rstart rend whitespace-space-before-tab-regexp
Fix reading of tab settings in whitespace-mode lisp/whitespace.el (whitespace-indent-tabs-mode) whitespace-tab-width): Remove these variables. The underlying variables `indent-tabs-mode' and `tab-width' are already buffer-local when needed, and whitespace-mode never changes them. (whitespace-ensure-local-variables): Remove this function, which only existed to set the above variables. (whitespace-cleanup-region, whitespace-regexp) (whitespace-indentation-regexp, whitespace-report-region) (whitespace-turn-on, whitespace-color-on): Adjust these functions to use `indent-tabs-mode' and `tab-width' directly, and not call `whitespace-ensure-local-variables'.
2017-03-02 12:50:06 +00:00
(if indent-tabs-mode 0 2)))
Remove redundant `save-match-data' in whitespace.el * lisp/whitespace.el (whitespace-cleanup, whitespace-cleanup-region): (whitespace-report-region): Remove redundant `save-match-data' calls.
2016-12-24 14:41:46 +00:00
;; ACTION: replace SPACEs before TAB by TABs.
((memq 'space-before-tab::tab whitespace-style)
(whitespace-replace-action
'tabify rstart rend
whitespace-space-before-tab-regexp 0))
;; ACTION: replace TABs by SPACEs.
((memq 'space-before-tab::space whitespace-style)
(whitespace-replace-action
'untabify rstart rend
whitespace-space-before-tab-regexp 2))))
Fix bug#360.
2008-09-06 00:19:31 +00:00
(set-marker rend nil)))) ; point marker to nowhere
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(defun whitespace-replace-action (action rstart rend regexp index)
"Do ACTION in the string matched by REGEXP between RSTART and REND.
INDEX is the level group matched by REGEXP and used by ACTION.
See also `tab-width'."
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
(goto-char rstart)
(while (re-search-forward regexp rend t)
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(goto-char (match-end index))
(funcall action (match-beginning index) (match-end index))))
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
New version 9.3.
2008-03-01 19:00:24 +00:00
;;;; User command - report
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(defun whitespace-regexp (regexp &optional kind)
Fix reading of tab settings in whitespace-mode lisp/whitespace.el (whitespace-indent-tabs-mode) whitespace-tab-width): Remove these variables. The underlying variables `indent-tabs-mode' and `tab-width' are already buffer-local when needed, and whitespace-mode never changes them. (whitespace-ensure-local-variables): Remove this function, which only existed to set the above variables. (whitespace-cleanup-region, whitespace-regexp) (whitespace-indentation-regexp, whitespace-report-region) (whitespace-turn-on, whitespace-color-on): Adjust these functions to use `indent-tabs-mode' and `tab-width' directly, and not call `whitespace-ensure-local-variables'.
2017-03-02 12:50:06 +00:00
"Return REGEXP depending on `indent-tabs-mode'."
Fix whitespace-space-after-tab-regexp * lisp/whitespace.el (whitespace-space-after-tab-regexp) (whitespace-regexp): Match all the spaces after tabs for highlighting, not just the first tab-width. Fix whitespace-space-after-tab::space version so that it requires at least tab-width spaces, not just 1. (Bug#24745)
2016-10-21 14:23:08 +00:00
(format
(cond
((or (eq kind 'tab)
Fix reading of tab settings in whitespace-mode lisp/whitespace.el (whitespace-indent-tabs-mode) whitespace-tab-width): Remove these variables. The underlying variables `indent-tabs-mode' and `tab-width' are already buffer-local when needed, and whitespace-mode never changes them. (whitespace-ensure-local-variables): Remove this function, which only existed to set the above variables. (whitespace-cleanup-region, whitespace-regexp) (whitespace-indentation-regexp, whitespace-report-region) (whitespace-turn-on, whitespace-color-on): Adjust these functions to use `indent-tabs-mode' and `tab-width' directly, and not call `whitespace-ensure-local-variables'.
2017-03-02 12:50:06 +00:00
indent-tabs-mode)
Fix whitespace-space-after-tab-regexp * lisp/whitespace.el (whitespace-space-after-tab-regexp) (whitespace-regexp): Match all the spaces after tabs for highlighting, not just the first tab-width. Fix whitespace-space-after-tab::space version so that it requires at least tab-width spaces, not just 1. (Bug#24745)
2016-10-21 14:23:08 +00:00
(car regexp))
((or (eq kind 'space)
Fix reading of tab settings in whitespace-mode lisp/whitespace.el (whitespace-indent-tabs-mode) whitespace-tab-width): Remove these variables. The underlying variables `indent-tabs-mode' and `tab-width' are already buffer-local when needed, and whitespace-mode never changes them. (whitespace-ensure-local-variables): Remove this function, which only existed to set the above variables. (whitespace-cleanup-region, whitespace-regexp) (whitespace-indentation-regexp, whitespace-report-region) (whitespace-turn-on, whitespace-color-on): Adjust these functions to use `indent-tabs-mode' and `tab-width' directly, and not call `whitespace-ensure-local-variables'.
2017-03-02 12:50:06 +00:00
(not indent-tabs-mode))
Fix whitespace-space-after-tab-regexp * lisp/whitespace.el (whitespace-space-after-tab-regexp) (whitespace-regexp): Match all the spaces after tabs for highlighting, not just the first tab-width. Fix whitespace-space-after-tab::space version so that it requires at least tab-width spaces, not just 1. (Bug#24745)
2016-10-21 14:23:08 +00:00
(cdr regexp)))
Fix reading of tab settings in whitespace-mode lisp/whitespace.el (whitespace-indent-tabs-mode) whitespace-tab-width): Remove these variables. The underlying variables `indent-tabs-mode' and `tab-width' are already buffer-local when needed, and whitespace-mode never changes them. (whitespace-ensure-local-variables): Remove this function, which only existed to set the above variables. (whitespace-cleanup-region, whitespace-regexp) (whitespace-indentation-regexp, whitespace-report-region) (whitespace-turn-on, whitespace-color-on): Adjust these functions to use `indent-tabs-mode' and `tab-width' directly, and not call `whitespace-ensure-local-variables'.
2017-03-02 12:50:06 +00:00
tab-width))
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(defun whitespace-indentation-regexp (&optional kind)
Fix reading of tab settings in whitespace-mode lisp/whitespace.el (whitespace-indent-tabs-mode) whitespace-tab-width): Remove these variables. The underlying variables `indent-tabs-mode' and `tab-width' are already buffer-local when needed, and whitespace-mode never changes them. (whitespace-ensure-local-variables): Remove this function, which only existed to set the above variables. (whitespace-cleanup-region, whitespace-regexp) (whitespace-indentation-regexp, whitespace-report-region) (whitespace-turn-on, whitespace-color-on): Adjust these functions to use `indent-tabs-mode' and `tab-width' directly, and not call `whitespace-ensure-local-variables'.
2017-03-02 12:50:06 +00:00
"Return the indentation regexp depending on `indent-tabs-mode'."
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(whitespace-regexp whitespace-indentation-regexp kind))
(defun whitespace-space-after-tab-regexp (&optional kind)
Fix reading of tab settings in whitespace-mode lisp/whitespace.el (whitespace-indent-tabs-mode) whitespace-tab-width): Remove these variables. The underlying variables `indent-tabs-mode' and `tab-width' are already buffer-local when needed, and whitespace-mode never changes them. (whitespace-ensure-local-variables): Remove this function, which only existed to set the above variables. (whitespace-cleanup-region, whitespace-regexp) (whitespace-indentation-regexp, whitespace-report-region) (whitespace-turn-on, whitespace-color-on): Adjust these functions to use `indent-tabs-mode' and `tab-width' directly, and not call `whitespace-ensure-local-variables'.
2017-03-02 12:50:06 +00:00
"Return the space-after-tab regexp depending on `indent-tabs-mode'."
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(whitespace-regexp whitespace-space-after-tab-regexp kind))
New version 9.3.
2008-03-01 19:00:24 +00:00
(defconst whitespace-report-list
(list
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(cons 'empty whitespace-empty-at-bob-regexp)
(cons 'empty whitespace-empty-at-eob-regexp)
whitespace-trailing-regexp option fix.
2008-04-27 11:50:47 +00:00
(cons 'trailing whitespace-trailing-regexp)
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(cons 'indentation nil)
(cons 'indentation::tab nil)
(cons 'indentation::space nil)
(cons 'space-before-tab whitespace-space-before-tab-regexp)
(cons 'space-before-tab::tab whitespace-space-before-tab-regexp)
(cons 'space-before-tab::space whitespace-space-before-tab-regexp)
(cons 'space-after-tab nil)
(cons 'space-after-tab::tab nil)
(cons 'space-after-tab::space nil)
New version 9.3.
2008-03-01 19:00:24 +00:00
)
"List of whitespace bogus symbol and corresponding regexp.")
(defconst whitespace-report-text
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
'( ;; `indent-tabs-mode' has non-nil value
"\
Whitespace Report
Current Setting Whitespace Problem
empty [] [] empty lines at beginning of buffer
empty [] [] empty lines at end of buffer
trailing [] [] SPACEs or TABs at end of line
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
indentation [] [] >= `tab-width' SPACEs at beginning of line
indentation::tab [] [] >= `tab-width' SPACEs at beginning of line
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
indentation::space [] [] TABs at beginning of line
space-before-tab [] [] SPACEs before TAB
space-before-tab::tab [] [] SPACEs before TAB: SPACEs
space-before-tab::space [] [] SPACEs before TAB: TABs
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
space-after-tab [] [] >= `tab-width' SPACEs after TAB
space-after-tab::tab [] [] >= `tab-width' SPACEs after TAB: SPACEs
space-after-tab::space [] [] >= `tab-width' SPACEs after TAB: TABs
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
indent-tabs-mode =
tab-width = \n\n"
. ;; `indent-tabs-mode' has nil value
"\
Whitespace Report
Current Setting Whitespace Problem
empty [] [] empty lines at beginning of buffer
empty [] [] empty lines at end of buffer
trailing [] [] SPACEs or TABs at end of line
indentation [] [] TABs at beginning of line
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
indentation::tab [] [] >= `tab-width' SPACEs at beginning of line
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
indentation::space [] [] TABs at beginning of line
space-before-tab [] [] SPACEs before TAB
space-before-tab::tab [] [] SPACEs before TAB: SPACEs
space-before-tab::space [] [] SPACEs before TAB: TABs
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
space-after-tab [] [] >= `tab-width' SPACEs after TAB
space-after-tab::tab [] [] >= `tab-width' SPACEs after TAB: SPACEs
space-after-tab::space [] [] >= `tab-width' SPACEs after TAB: TABs
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
indent-tabs-mode =
tab-width = \n\n")
"Text for whitespace bogus report.
It is a cons of strings, where the car part is used when
`indent-tabs-mode' is non-nil, and the cdr part is used when
`indent-tabs-mode' is nil.")
New version 9.3.
2008-03-01 19:00:24 +00:00
(defconst whitespace-report-buffer-name "*Whitespace Report*"
"The buffer name for whitespace bogus report.")
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;;;###autoload
New version 9.3.
2008-03-01 19:00:24 +00:00
(defun whitespace-report (&optional force report-if-bogus)
"Report some whitespace problems in buffer.
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
Improve documentation for whitespace-report{,-region} * whitespace.el (whitespace-report-region): Simplify documentation. (whitespace-report): Refer to whitespace-report-region's documentation. This commit message also covers the previous commit, which was erroneously committed with the log message "."; sorry.
2014-05-29 22:43:26 +00:00
Perform `whitespace-report-region' on the current buffer."
New version 9.3.
2008-03-01 19:00:24 +00:00
(interactive (list current-prefix-arg))
(whitespace-report-region (point-min) (point-max)
force report-if-bogus))
;;;###autoload
(defun whitespace-report-region (start end &optional force report-if-bogus)
"Report some whitespace problems in a region.
Return nil if there is no whitespace problem; otherwise, return
non-nil.
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
If FORCE is non-nil or \\[universal-argument] was pressed just
before calling `whitespace-report-region' interactively, it
Stop force parameter of whitespace-report-region having global effect * lisp/whitespace.el (whitespace-report-region): Force parameter previously changed whitespace-style globally. Fix this, and use whitespace-active-style, to take account of any changes the user may have made. Simplify the documentation: the force parameter simply forces all classes of whitespace problem to be considered. (Bug#24745)
2016-10-25 22:20:59 +00:00
forces all classes of whitespace problem to be considered
significant.
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
Improve non-interactive use of whitespace reporting whitespace.el (whitespace-report-region): Allow report-if-bogus to take the value `never', for non-interactive use.
2014-05-29 22:51:47 +00:00
If REPORT-IF-BOGUS is t, it reports only when there are any
whitespace problems in buffer; if it is `never', it does not
report problems.
New version 9.3.
2008-03-01 19:00:24 +00:00
Report if some of the following whitespace problems exist:
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
* If `indent-tabs-mode' is non-nil:
empty 1. empty lines at beginning of buffer.
empty 2. empty lines at end of buffer.
trailing 3. SPACEs or TABs at end of line.
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
indentation 4. line starts with `tab-width' or more SPACEs.
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
space-before-tab 5. SPACEs before TAB.
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
space-after-tab 6. `tab-width' or more SPACEs after TAB.
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
* If `indent-tabs-mode' is nil:
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
empty 1. empty lines at beginning of buffer.
empty 2. empty lines at end of buffer.
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
trailing 3. SPACEs or TABs at end of line.
indentation 4. TABS at beginning of line.
space-before-tab 5. SPACEs before TAB.
Document use of `tab-width' * lisp/whitespace.el: When talking about `8 or more spaces', mention `tab-width' instead of 8. (Bug#24745)
2016-10-25 22:04:18 +00:00
space-after-tab 6. `tab-width' or more SPACEs after TAB.
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
See `whitespace-style' for documentation.
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
See also `whitespace-cleanup' and `whitespace-cleanup-region' for
cleaning up these problems."
New version 9.3.
2008-03-01 19:00:24 +00:00
(interactive "r")
(setq force (or current-prefix-arg force))
(save-excursion
Remove redundant `save-match-data' in whitespace.el * lisp/whitespace.el (whitespace-cleanup, whitespace-cleanup-region): (whitespace-report-region): Remove redundant `save-match-data' calls.
2016-12-24 14:41:46 +00:00
(let* ((has-bogus nil)
(rstart (min start end))
(rend (max start end))
;; Fall back to whitespace-style so we can run before
;; before the mode is active.
(style (copy-sequence
(or whitespace-active-style whitespace-style)))
(bogus-list
(mapcar
#'(lambda (option)
(when force
Replace add-to-list to lexical variable with push (bug#39373) Since 'add-to-list', being a plain function, cannot access lexical variables, such use must be rewritten for correctness. (Some instances actually do work thanks to a compiler macro, but it's not something code should rely on.) * lisp/autoinsert.el (auto-insert-alist): * lisp/cedet/mode-local.el (mode-local-print-bindings): * lisp/net/tramp-cache.el (tramp-flush-connection-properties) (tramp-list-connections): * lisp/net/zeroconf.el (zeroconf-list-service-names) (zeroconf-list-service-types, zeroconf-list-services): * lisp/org/org.el (org-reload): * lisp/whitespace.el (whitespace-report-region): * test/lisp/emacs-lisp/map-tests.el (test-map-do): Replace add-to-list with push.
2020-02-01 17:07:32 +00:00
(push (car option) style))
Remove redundant `save-match-data' in whitespace.el * lisp/whitespace.el (whitespace-cleanup, whitespace-cleanup-region): (whitespace-report-region): Remove redundant `save-match-data' calls.
2016-12-24 14:41:46 +00:00
(goto-char rstart)
(let ((regexp
(cond
((eq (car option) 'indentation)
(whitespace-indentation-regexp))
((eq (car option) 'indentation::tab)
(whitespace-indentation-regexp 'tab))
((eq (car option) 'indentation::space)
(whitespace-indentation-regexp 'space))
((eq (car option) 'space-after-tab)
(whitespace-space-after-tab-regexp))
((eq (car option) 'space-after-tab::tab)
(whitespace-space-after-tab-regexp 'tab))
((eq (car option) 'space-after-tab::space)
(whitespace-space-after-tab-regexp 'space))
Make whitespace-mode highlight missing newlines at the end of buffers * lisp/whitespace.el (whitespace-missing-newline-at-eof): New face (bug#34952). (whitespace-report-region): Add a test for end-of-buffer-without-newline. (whitespace-color-on): Ditto. * doc/emacs/display.texi (Useless Whitespace): Document it.
2020-08-07 07:28:14 +00:00
((eq (car option) 'missing-newline-at-eof)
"[^\n]\\'")
Remove redundant `save-match-data' in whitespace.el * lisp/whitespace.el (whitespace-cleanup, whitespace-cleanup-region): (whitespace-report-region): Remove redundant `save-match-data' calls.
2016-12-24 14:41:46 +00:00
(t
(cdr option)))))
(when (re-search-forward regexp rend t)
(unless has-bogus
(setq has-bogus (memq (car option) style)))
t)))
whitespace-report-list)))
Replace insignificant backquotes Replace most insignificant occurrences of '`' with a straight quote, sharp quote or nothing. This includes backquotes in 'pcase' patterns. * admin/admin.el: * lisp/apropos.el: * lisp/arc-mode.el: * lisp/auth-source.el: * lisp/avoid.el: * lisp/bindings.el: * lisp/bs.el: * lisp/calculator.el: * lisp/calendar/todo-mode.el: * lisp/cedet/semantic.el: * lisp/cedet/semantic/analyze/debug.el: * lisp/cedet/semantic/bovine.el: * lisp/cedet/semantic/dep.el: * lisp/cedet/semantic/grammar.el: * lisp/cedet/semantic/wisent/comp.el: * lisp/cedet/semantic/wisent/grammar.el: * lisp/cedet/srecode/mode.el: * lisp/cus-edit.el: * lisp/doc-view.el: * lisp/elec-pair.el: * lisp/electric.el: * lisp/emacs-lisp/autoload.el: * lisp/emacs-lisp/benchmark.el: * lisp/emacs-lisp/byte-opt.el: * lisp/emacs-lisp/bytecomp.el: * lisp/emacs-lisp/cconv.el: * lisp/emacs-lisp/cl-extra.el: * lisp/emacs-lisp/cl-generic.el: * lisp/emacs-lisp/cl-macs.el: * lisp/emacs-lisp/copyright.el: * lisp/emacs-lisp/debug.el: * lisp/emacs-lisp/eieio-compat.el: * lisp/emacs-lisp/ert.el: * lisp/emacs-lisp/generator.el: * lisp/emacs-lisp/inline.el: * lisp/emacs-lisp/macroexp.el: * lisp/emacs-lisp/map.el: * lisp/emacs-lisp/package-x.el: * lisp/emacs-lisp/package.el: * lisp/emacs-lisp/radix-tree.el: * lisp/emacs-lisp/smie.el: * lisp/epa.el: * lisp/erc/erc-dcc.el: * lisp/erc/erc-track.el: * lisp/erc/erc.el: * lisp/eshell/em-ls.el: * lisp/eshell/esh-cmd.el: * lisp/files.el: * lisp/filesets.el: * lisp/font-lock.el: * lisp/frameset.el: * lisp/gnus/gnus-agent.el: * lisp/gnus/gnus-art.el: * lisp/gnus/gnus-cite.el: * lisp/gnus/gnus-group.el: * lisp/gnus/gnus-msg.el: * lisp/gnus/gnus-salt.el: * lisp/gnus/gnus-srvr.el: * lisp/gnus/gnus-sum.el: * lisp/gnus/gnus-topic.el: * lisp/gnus/gnus-util.el: * lisp/gnus/gnus.el: * lisp/gnus/message.el: * lisp/gnus/mm-util.el: * lisp/gnus/mml.el: * lisp/gnus/nnheader.el: * lisp/gnus/nnimap.el: * lisp/gnus/nnmairix.el: * lisp/gnus/spam.el: * lisp/hexl.el: * lisp/hi-lock.el: * lisp/ibuf-ext.el: * lisp/ibuffer.el: * lisp/ido.el: * lisp/info.el: * lisp/international/mule-cmds.el: * lisp/international/mule-util.el: * lisp/json.el: * lisp/jsonrpc.el: * lisp/language/cyrillic.el: * lisp/language/european.el: * lisp/language/georgian.el: * lisp/language/tibetan.el: * lisp/language/utf-8-lang.el: * lisp/language/vietnamese.el: * lisp/ldefs-boot.el: * lisp/mail/mail-extr.el: * lisp/man.el: * lisp/menu-bar.el: * lisp/mh-e/mh-acros.el: * lisp/mh-e/mh-folder.el: * lisp/mh-e/mh-mime.el: * lisp/mh-e/mh-show.el: * lisp/mh-e/mh-speed.el: * lisp/minibuffer.el: * lisp/mpc.el: * lisp/net/ange-ftp.el: * lisp/net/hmac-def.el: * lisp/net/newst-backend.el: * lisp/net/quickurl.el: * lisp/net/tramp-archive.el: * lisp/net/tramp-compat.el: * lisp/notifications.el: * lisp/obsolete/pgg-parse.el: * lisp/obsolete/vc-arch.el: * lisp/obsolete/xesam.el: * lisp/org/ob-C.el: * lisp/org/ob-core.el: * lisp/org/ob-exp.el: * lisp/org/ob-groovy.el: * lisp/org/ob-haskell.el: * lisp/org/ob-io.el: * lisp/org/ob-lisp.el: * lisp/org/ob-lob.el: * lisp/org/ob-lua.el: * lisp/org/ob-octave.el: * lisp/org/ob-perl.el: * lisp/org/ob-python.el: * lisp/org/ob-ref.el: * lisp/org/ob-ruby.el: * lisp/org/ob-sql.el: * lisp/org/org-agenda.el: * lisp/org/org-capture.el: * lisp/org/org-clock.el: * lisp/org/org-colview.el: * lisp/org/org-duration.el: * lisp/org/org-element.el: * lisp/org/org-entities.el: * lisp/org/org-gnus.el: * lisp/org/org-indent.el: * lisp/org/org-info.el: * lisp/org/org-inlinetask.el: * lisp/org/org-lint.el: * lisp/org/org-list.el: * lisp/org/org-mouse.el: * lisp/org/org-plot.el: * lisp/org/org-src.el: * lisp/org/org-table.el: * lisp/org/org.el: * lisp/org/ox-ascii.el: * lisp/org/ox-html.el: * lisp/org/ox-latex.el: * lisp/org/ox-man.el: * lisp/org/ox-md.el: * lisp/org/ox-org.el: * lisp/org/ox-publish.el: * lisp/org/ox-texinfo.el: * lisp/org/ox.el: * lisp/play/bubbles.el: * lisp/play/gamegrid.el: * lisp/progmodes/autoconf.el: * lisp/progmodes/cc-defs.el: * lisp/progmodes/cc-engine.el: * lisp/progmodes/cc-fonts.el: * lisp/progmodes/cc-langs.el: * lisp/progmodes/cperl-mode.el: * lisp/progmodes/ebrowse.el: * lisp/progmodes/elisp-mode.el: * lisp/progmodes/flymake-cc.el: * lisp/progmodes/flymake.el: * lisp/progmodes/fortran.el: * lisp/progmodes/grep.el: * lisp/progmodes/gud.el: * lisp/progmodes/idlwave.el: * lisp/progmodes/js.el: * lisp/progmodes/m4-mode.el: * lisp/progmodes/make-mode.el: * lisp/progmodes/mixal-mode.el: * lisp/progmodes/modula2.el: * lisp/progmodes/octave.el: * lisp/progmodes/opascal.el: * lisp/progmodes/prolog.el: * lisp/progmodes/ps-mode.el: * lisp/progmodes/python.el: * lisp/progmodes/ruby-mode.el: * lisp/progmodes/sh-script.el: * lisp/progmodes/sql.el: * lisp/progmodes/verilog-mode.el: * lisp/ps-mule.el: * lisp/rtree.el: * lisp/ruler-mode.el: * lisp/ses.el: * lisp/simple.el: * lisp/startup.el: * lisp/subr.el: * lisp/term/ns-win.el: * lisp/textmodes/bibtex.el: * lisp/textmodes/conf-mode.el: * lisp/textmodes/css-mode.el: * lisp/textmodes/refill.el: * lisp/textmodes/sgml-mode.el: * lisp/textmodes/tex-mode.el: * lisp/tutorial.el: * lisp/url/url-dav.el: * lisp/url/url-gw.el: * lisp/url/url-http.el: * lisp/url/url-methods.el: * lisp/url/url-privacy.el: * lisp/vc/cvs-status.el: * lisp/vc/diff-mode.el: * lisp/vc/ediff-init.el: * lisp/vc/ediff-ptch.el: * lisp/vc/log-edit.el: * lisp/vc/log-view.el: * lisp/vc/pcvs-info.el: * lisp/vc/pcvs.el: * lisp/vc/smerge-mode.el: * lisp/vc/vc-git.el: * lisp/vc/vc-hg.el: * lisp/vc/vc-mtn.el: * lisp/vc/vc-rcs.el: * lisp/whitespace.el: * lisp/window.el: * test/lisp/electric-tests.el: * test/lisp/emacs-lisp/cl-lib-tests.el: * test/lisp/emacs-lisp/ert-tests.el: * test/lisp/epg-tests.el: * test/lisp/jsonrpc-tests.el: * test/src/data-tests.el: * test/src/json-tests.el: Replace most insignificant backquotes.
2018-11-05 00:22:15 +00:00
(when (pcase report-if-bogus ('nil t) ('never nil) (_ has-bogus))
Remove redundant `save-match-data' in whitespace.el * lisp/whitespace.el (whitespace-cleanup, whitespace-cleanup-region): (whitespace-report-region): Remove redundant `save-match-data' calls.
2016-12-24 14:41:46 +00:00
(whitespace-kill-buffer whitespace-report-buffer-name)
Fix reading of tab settings in whitespace-mode lisp/whitespace.el (whitespace-indent-tabs-mode) whitespace-tab-width): Remove these variables. The underlying variables `indent-tabs-mode' and `tab-width' are already buffer-local when needed, and whitespace-mode never changes them. (whitespace-ensure-local-variables): Remove this function, which only existed to set the above variables. (whitespace-cleanup-region, whitespace-regexp) (whitespace-indentation-regexp, whitespace-report-region) (whitespace-turn-on, whitespace-color-on): Adjust these functions to use `indent-tabs-mode' and `tab-width' directly, and not call `whitespace-ensure-local-variables'.
2017-03-02 12:50:06 +00:00
;; `indent-tabs-mode' may be local to current buffer
;; `tab-width' may be local to current buffer
(let ((ws-indent-tabs-mode indent-tabs-mode)
(ws-tab-width tab-width))
Remove redundant `save-match-data' in whitespace.el * lisp/whitespace.el (whitespace-cleanup, whitespace-cleanup-region): (whitespace-report-region): Remove redundant `save-match-data' calls.
2016-12-24 14:41:46 +00:00
(with-current-buffer (get-buffer-create
whitespace-report-buffer-name)
(erase-buffer)
(insert (if ws-indent-tabs-mode
(car whitespace-report-text)
(cdr whitespace-report-text)))
(goto-char (point-min))
(forward-line 3)
(dolist (option whitespace-report-list)
(forward-line 1)
(whitespace-mark-x
27 (memq (car option) style))
(whitespace-mark-x 7 (car bogus-list))
(setq bogus-list (cdr bogus-list)))
(forward-line 1)
(whitespace-insert-value ws-indent-tabs-mode)
(whitespace-insert-value ws-tab-width)
(when has-bogus
(goto-char (point-max))
(insert (substitute-command-keys
" Type `\\[whitespace-cleanup]'")
" to cleanup the buffer.\n\n"
(substitute-command-keys
" Type `\\[whitespace-cleanup-region]'")
" to cleanup a region.\n\n"))
(whitespace-display-window (current-buffer)))))
has-bogus)))
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Internal functions
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defvar whitespace-font-lock-keywords nil
* lisp/whitespace.el (whitespace-font-lock-keywords): Change description. (whitespace-color-on): Don't save `font-lock-keywords' value, save the constructed keywords instead. (whitespace-color-off): Use `font-lock-remove-keywords'. Fixes: debbugs:13817
2013-03-19 05:06:49 +00:00
"Used to save the value `whitespace-color-on' adds to `font-lock-keywords'.")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defconst whitespace-help-text
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
"\
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
Whitespace Toggle Options | scroll up : SPC or > |
| scroll down: M-SPC or < |
FACES \\__________________________/
[] f - toggle face visualization
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
[] t - toggle TAB visualization
[] s - toggle SPACE and HARD SPACE visualization
[] r - toggle trailing blanks visualization
[] l - toggle \"long lines\" visualization
[] L - toggle \"long lines\" tail visualization
[] n - toggle NEWLINE visualization
[] e - toggle empty line at bob and/or eob visualization
[] C-i - toggle indentation SPACEs visualization (via `indent-tabs-mode')
[] I - toggle indentation SPACEs visualization
[] i - toggle indentation TABs visualization
Add a 'big-indent style to `whitespace-mode'. * lisp/whitespace.el (whitespace-style, whitespace-big-indent) (whitespace-big-indent-regexp, whitespace-style-value-list) (whitespace-toggle-option-alist, whitespace-interactive-char) (whitespace-toggle-options) (global-whitespace-toggle-options, whitespace-help-text) (whitespace-style-face-p, whitespace-color-on): Add a 'big-indent style to `whitespace-mode' to indicate that the line indentation is too deep. By default, 32 SPACEs or four TABs are considered too many but `whitespace-big-indent-regexp' can be configured.
2014-10-18 00:23:03 +00:00
[] C-t - toggle big indentation visualization
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
[] C-a - toggle SPACEs after TAB visualization (via `indent-tabs-mode')
[] A - toggle SPACEs after TAB: SPACEs visualization
[] a - toggle SPACEs after TAB: TABs visualization
[] C-b - toggle SPACEs before TAB visualization (via `indent-tabs-mode')
[] B - toggle SPACEs before TAB: SPACEs visualization
[] b - toggle SPACEs before TAB: TABs visualization
DISPLAY TABLE
[] T - toggle TAB visualization
[] S - toggle SPACE and HARD SPACE visualization
[] N - toggle NEWLINE visualization
New version 11.0.
2008-04-26 11:38:50 +00:00
x - restore `whitespace-style' value
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
? - display this text\n\n"
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
"Text for whitespace toggle options.")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defconst whitespace-help-buffer-name "*Whitespace Toggle Options*"
"The buffer name for whitespace toggle options.")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(defun whitespace-insert-value (value)
"Insert VALUE at column 20 of next line."
(forward-line 1)
(move-to-column 20 t)
(insert (format "%s" value)))
New version 9.3.
2008-03-01 19:00:24 +00:00
(defun whitespace-mark-x (nchars condition)
Go back to grave quoting in source-code docstrings etc. This reverts almost all my recent changes to use curved quotes in docstrings and/or strings used for error diagnostics. There are a few exceptions, e.g., Bahá’í proper names. * admin/unidata/unidata-gen.el (unidata-gen-table): * lisp/abbrev.el (expand-region-abbrevs): * lisp/align.el (align-region): * lisp/allout.el (allout-mode, allout-solicit-alternate-bullet) (outlineify-sticky): * lisp/apropos.el (apropos-library): * lisp/bookmark.el (bookmark-default-annotation-text): * lisp/button.el (button-category-symbol, button-put) (make-text-button): * lisp/calc/calc-aent.el (math-read-if, math-read-factor): * lisp/calc/calc-embed.el (calc-do-embedded): * lisp/calc/calc-ext.el (calc-user-function-list): * lisp/calc/calc-graph.el (calc-graph-show-dumb): * lisp/calc/calc-help.el (calc-describe-key) (calc-describe-thing, calc-full-help): * lisp/calc/calc-lang.el (calc-c-language) (math-parse-fortran-vector-end, math-parse-tex-sum) (math-parse-eqn-matrix, math-parse-eqn-prime) (calc-yacas-language, calc-maxima-language, calc-giac-language) (math-read-giac-subscr, math-read-math-subscr) (math-read-big-rec, math-read-big-balance): * lisp/calc/calc-misc.el (calc-help, report-calc-bug): * lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes) (calc-auto-recompute): * lisp/calc/calc-prog.el (calc-fix-token-name) (calc-read-parse-table-part, calc-user-define-invocation) (math-do-arg-check): * lisp/calc/calc-store.el (calc-edit-variable): * lisp/calc/calc-units.el (math-build-units-table-buffer): * lisp/calc/calc-vec.el (math-read-brackets): * lisp/calc/calc-yank.el (calc-edit-mode): * lisp/calc/calc.el (calc, calc-do, calc-user-invocation): * lisp/calendar/appt.el (appt-display-message): * lisp/calendar/diary-lib.el (diary-check-diary-file) (diary-mail-entries, diary-from-outlook): * lisp/calendar/icalendar.el (icalendar-export-region) (icalendar--convert-float-to-ical) (icalendar--convert-date-to-ical) (icalendar--convert-ical-to-diary) (icalendar--convert-recurring-to-diary) (icalendar--add-diary-entry): * lisp/calendar/time-date.el (format-seconds): * lisp/calendar/timeclock.el (timeclock-mode-line-display) (timeclock-make-hours-explicit, timeclock-log-data): * lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category) (todo-item-mark, todo-check-format) (todo-insert-item--next-param, todo-edit-item--next-key) (todo-mode): * lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules): * lisp/cedet/mode-local.el (describe-mode-local-overload) (mode-local-print-binding, mode-local-describe-bindings-2): * lisp/cedet/semantic/complete.el (semantic-displayor-show-request): * lisp/cedet/srecode/srt-mode.el (srecode-macro-help): * lisp/cus-start.el (standard): * lisp/cus-theme.el (describe-theme-1): * lisp/custom.el (custom-add-dependencies, custom-check-theme) (custom--sort-vars-1, load-theme): * lisp/descr-text.el (describe-text-properties-1, describe-char): * lisp/dired-x.el (dired-do-run-mail): * lisp/dired.el (dired-log): * lisp/emacs-lisp/advice.el (ad-read-advised-function) (ad-read-advice-class, ad-read-advice-name, ad-enable-advice) (ad-disable-advice, ad-remove-advice, ad-set-argument) (ad-set-arguments, ad--defalias-fset, ad-activate) (ad-deactivate): * lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand) (byte-compile-unfold-lambda, byte-optimize-form-code-walker) (byte-optimize-while, byte-optimize-apply): * lisp/emacs-lisp/byte-run.el (defun, defsubst): * lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode) (byte-compile-log-file, byte-compile-format-warn) (byte-compile-nogroup-warn, byte-compile-arglist-warn) (byte-compile-cl-warn) (byte-compile-warn-about-unresolved-functions) (byte-compile-file, byte-compile--declare-var) (byte-compile-file-form-defmumble, byte-compile-form) (byte-compile-normal-call, byte-compile-check-variable) (byte-compile-variable-ref, byte-compile-variable-set) (byte-compile-subr-wrong-args, byte-compile-setq-default) (byte-compile-negation-optimizer) (byte-compile-condition-case--old) (byte-compile-condition-case--new, byte-compile-save-excursion) (byte-compile-defvar, byte-compile-autoload) (byte-compile-lambda-form) (byte-compile-make-variable-buffer-local, display-call-tree) (batch-byte-compile): * lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use): * lisp/emacs-lisp/chart.el (chart-space-usage): * lisp/emacs-lisp/check-declare.el (check-declare-scan) (check-declare-warn, check-declare-file) (check-declare-directory): * lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine) (checkdoc-message-text-engine): * lisp/emacs-lisp/cl-extra.el (cl-parse-integer) (cl--describe-class): * lisp/emacs-lisp/cl-generic.el (cl-defgeneric) (cl--generic-describe, cl-generic-generalizers): * lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody) (cl-symbol-macrolet): * lisp/emacs-lisp/cl.el (cl-unload-function, flet): * lisp/emacs-lisp/copyright.el (copyright) (copyright-update-directory): * lisp/emacs-lisp/edebug.el (edebug-read-list): * lisp/emacs-lisp/eieio-base.el (eieio-persistent-read): * lisp/emacs-lisp/eieio-core.el (eieio--slot-override) (eieio-oref): * lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor): * lisp/emacs-lisp/eieio-speedbar.el: (eieio-speedbar-child-make-tag-lines) (eieio-speedbar-child-description): * lisp/emacs-lisp/eieio.el (defclass, change-class): * lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms) (elint-init-form, elint-check-defalias-form) (elint-check-let-form): * lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu) (ert-results-pop-to-backtrace-for-test-at-point) (ert-results-pop-to-messages-for-test-at-point) (ert-results-pop-to-should-forms-for-test-at-point) (ert-describe-test): * lisp/emacs-lisp/find-func.el (find-function-search-for-symbol) (find-function-library): * lisp/emacs-lisp/generator.el (iter-yield): * lisp/emacs-lisp/gv.el (gv-define-simple-setter): * lisp/emacs-lisp/lisp-mnt.el (lm-verify): * lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning): * lisp/emacs-lisp/map-ynp.el (map-y-or-n-p): * lisp/emacs-lisp/nadvice.el (advice--make-docstring) (advice--make, define-advice): * lisp/emacs-lisp/package-x.el (package-upload-file): * lisp/emacs-lisp/package.el (package-version-join) (package-disabled-p, package-activate-1, package-activate) (package--download-one-archive) (package--download-and-read-archives) (package-compute-transaction, package-install-from-archive) (package-install, package-install-selected-packages) (package-delete, package-autoremove, describe-package-1) (package-install-button-action, package-delete-button-action) (package-menu-hide-package, package-menu--list-to-prompt) (package-menu--perform-transaction) (package-menu--find-and-notify-upgrades): * lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1): * lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode): * lisp/emacs-lisp/ring.el (ring-previous, ring-next): * lisp/emacs-lisp/rx.el (rx-check, rx-anything) (rx-check-any-string, rx-check-any, rx-check-not, rx-=) (rx-repeat, rx-check-backref, rx-syntax, rx-check-category) (rx-form): * lisp/emacs-lisp/smie.el (smie-config-save): * lisp/emacs-lisp/subr-x.el (internal--check-binding): * lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag): * lisp/emacs-lisp/testcover.el (testcover-1value): * lisp/emacs-lisp/timer.el (timer-event-handler): * lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments) (viper-toggle-search-style, viper-kill-buffer) (viper-brac-function): * lisp/emulation/viper-macs.el (viper-record-kbd-macro): * lisp/env.el (setenv): * lisp/erc/erc-button.el (erc-nick-popup): * lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english): * lisp/eshell/em-dirs.el (eshell/cd): * lisp/eshell/em-glob.el (eshell-glob-regexp) (eshell-glob-entries): * lisp/eshell/em-pred.el (eshell-parse-modifiers): * lisp/eshell/esh-opt.el (eshell-show-usage): * lisp/facemenu.el (facemenu-add-new-face) (facemenu-add-new-color): * lisp/faces.el (read-face-name, read-face-font, describe-face) (x-resolve-font-name): * lisp/files-x.el (modify-file-local-variable): * lisp/files.el (locate-user-emacs-file, find-alternate-file) (set-auto-mode, hack-one-local-variable--obsolete) (dir-locals-set-directory-class, write-file, basic-save-buffer) (delete-directory, copy-directory, recover-session) (recover-session-finish, insert-directory) (file-modes-char-to-who, file-modes-symbolic-to-number) (move-file-to-trash): * lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer): * lisp/find-cmd.el (find-generic, find-to-string): * lisp/finder.el (finder-commentary): * lisp/font-lock.el (font-lock-fontify-buffer): * lisp/format.el (format-write-file, format-find-file) (format-insert-file): * lisp/frame.el (get-device-terminal, select-frame-by-name): * lisp/fringe.el (fringe--check-style): * lisp/gnus/nnmairix.el (nnmairix-widget-create-query): * lisp/help-fns.el (help-fns--key-bindings) (help-fns--compiler-macro, help-fns--parent-mode) (help-fns--obsolete, help-fns--interactive-only) (describe-function-1, describe-variable): * lisp/help.el (describe-mode) (describe-minor-mode-from-indicator): * lisp/image.el (image-type): * lisp/international/ccl.el (ccl-dump): * lisp/international/fontset.el (x-must-resolve-font-name): * lisp/international/mule-cmds.el (prefer-coding-system) (select-safe-coding-system-interactively) (select-safe-coding-system, activate-input-method) (toggle-input-method, describe-current-input-method) (describe-language-environment): * lisp/international/mule-conf.el (code-offset): * lisp/international/mule-diag.el (describe-character-set) (list-input-methods-1): * lisp/mail/feedmail.el (feedmail-run-the-queue): * lisp/mouse.el (minor-mode-menu-from-indicator): * lisp/mpc.el (mpc-playlist-rename): * lisp/msb.el (msb--choose-menu): * lisp/net/ange-ftp.el (ange-ftp-shell-command): * lisp/net/imap.el (imap-interactive-login): * lisp/net/mairix.el (mairix-widget-create-query): * lisp/net/newst-backend.el (newsticker--sentinel-work): * lisp/net/newst-treeview.el (newsticker--treeview-load): * lisp/net/rlogin.el (rlogin): * lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer): * lisp/obsolete/otodo-mode.el (todo-more-important-p): * lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region): * lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region): * lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region): * lisp/org/ob-core.el (org-babel-goto-named-src-block) (org-babel-goto-named-result): * lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap): * lisp/org/ob-ref.el (org-babel-ref-resolve): * lisp/org/org-agenda.el (org-agenda-prepare): * lisp/org/org-clock.el (org-clock-notify-once-if-expired) (org-clock-resolve): * lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag): * lisp/org/org-feed.el (org-feed-parse-atom-entry): * lisp/org/org-habit.el (org-habit-parse-todo): * lisp/org/org-mouse.el (org-mouse-popup-global-menu) (org-mouse-context-menu): * lisp/org/org-table.el (org-table-edit-formulas): * lisp/org/ox.el (org-export-async-start): * lisp/proced.el (proced-log): * lisp/progmodes/ada-mode.el (ada-get-indent-case) (ada-check-matching-start, ada-goto-matching-start): * lisp/progmodes/ada-prj.el (ada-prj-display-page): * lisp/progmodes/ada-xref.el (ada-find-executable): * lisp/progmodes/ebrowse.el (ebrowse-tags-apropos): * lisp/progmodes/etags.el (etags-tags-apropos-additional): * lisp/progmodes/flymake.el (flymake-parse-err-lines) (flymake-start-syntax-check-process): * lisp/progmodes/python.el (python-shell-get-process-or-error) (python-define-auxiliary-skeleton): * lisp/progmodes/sql.el (sql-comint): * lisp/progmodes/verilog-mode.el (verilog-load-file-at-point): * lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate): * lisp/recentf.el (recentf-open-files): * lisp/replace.el (query-replace-read-from) (occur-after-change-function, occur-1): * lisp/scroll-bar.el (scroll-bar-columns): * lisp/server.el (server-get-auth-key): * lisp/simple.el (execute-extended-command) (undo-outer-limit-truncate, list-processes--refresh) (compose-mail, set-variable, choose-completion-string) (define-alternatives): * lisp/startup.el (site-run-file, tty-handle-args, command-line) (command-line-1): * lisp/subr.el (noreturn, define-error, add-to-list) (read-char-choice, version-to-list): * lisp/term/common-win.el (x-handle-xrm-switch) (x-handle-name-switch, x-handle-args): * lisp/term/x-win.el (x-handle-parent-id, x-handle-smid): * lisp/textmodes/reftex-ref.el (reftex-label): * lisp/textmodes/reftex-toc.el (reftex-toc-rename-label): * lisp/textmodes/two-column.el (2C-split): * lisp/tutorial.el (tutorial--describe-nonstandard-key) (tutorial--find-changed-keys): * lisp/type-break.el (type-break-noninteractive-query): * lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes) (wdired-do-perm-changes): * lisp/whitespace.el (whitespace-report-region): Prefer grave quoting in source-code strings used to generate help and diagnostics. * lisp/faces.el (face-documentation): No need to convert quotes, since the result is a docstring. * lisp/info.el (Info-virtual-index-find-node) (Info-virtual-index, info-apropos): Simplify by generating only curved quotes, since info files are typically that ways nowadays anyway. * lisp/international/mule-diag.el (list-input-methods): Don’t assume text quoting style is curved. * lisp/org/org-bibtex.el (org-bibtex-fields): Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
"Insert the mark (`X' or ` ') after NCHARS depending on CONDITION."
New version 9.3.
2008-03-01 19:00:24 +00:00
(forward-char nchars)
(insert (if condition "X" " ")))
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defun whitespace-insert-option-mark (the-list the-value)
Go back to grave quoting in source-code docstrings etc. This reverts almost all my recent changes to use curved quotes in docstrings and/or strings used for error diagnostics. There are a few exceptions, e.g., Bahá’í proper names. * admin/unidata/unidata-gen.el (unidata-gen-table): * lisp/abbrev.el (expand-region-abbrevs): * lisp/align.el (align-region): * lisp/allout.el (allout-mode, allout-solicit-alternate-bullet) (outlineify-sticky): * lisp/apropos.el (apropos-library): * lisp/bookmark.el (bookmark-default-annotation-text): * lisp/button.el (button-category-symbol, button-put) (make-text-button): * lisp/calc/calc-aent.el (math-read-if, math-read-factor): * lisp/calc/calc-embed.el (calc-do-embedded): * lisp/calc/calc-ext.el (calc-user-function-list): * lisp/calc/calc-graph.el (calc-graph-show-dumb): * lisp/calc/calc-help.el (calc-describe-key) (calc-describe-thing, calc-full-help): * lisp/calc/calc-lang.el (calc-c-language) (math-parse-fortran-vector-end, math-parse-tex-sum) (math-parse-eqn-matrix, math-parse-eqn-prime) (calc-yacas-language, calc-maxima-language, calc-giac-language) (math-read-giac-subscr, math-read-math-subscr) (math-read-big-rec, math-read-big-balance): * lisp/calc/calc-misc.el (calc-help, report-calc-bug): * lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes) (calc-auto-recompute): * lisp/calc/calc-prog.el (calc-fix-token-name) (calc-read-parse-table-part, calc-user-define-invocation) (math-do-arg-check): * lisp/calc/calc-store.el (calc-edit-variable): * lisp/calc/calc-units.el (math-build-units-table-buffer): * lisp/calc/calc-vec.el (math-read-brackets): * lisp/calc/calc-yank.el (calc-edit-mode): * lisp/calc/calc.el (calc, calc-do, calc-user-invocation): * lisp/calendar/appt.el (appt-display-message): * lisp/calendar/diary-lib.el (diary-check-diary-file) (diary-mail-entries, diary-from-outlook): * lisp/calendar/icalendar.el (icalendar-export-region) (icalendar--convert-float-to-ical) (icalendar--convert-date-to-ical) (icalendar--convert-ical-to-diary) (icalendar--convert-recurring-to-diary) (icalendar--add-diary-entry): * lisp/calendar/time-date.el (format-seconds): * lisp/calendar/timeclock.el (timeclock-mode-line-display) (timeclock-make-hours-explicit, timeclock-log-data): * lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category) (todo-item-mark, todo-check-format) (todo-insert-item--next-param, todo-edit-item--next-key) (todo-mode): * lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules): * lisp/cedet/mode-local.el (describe-mode-local-overload) (mode-local-print-binding, mode-local-describe-bindings-2): * lisp/cedet/semantic/complete.el (semantic-displayor-show-request): * lisp/cedet/srecode/srt-mode.el (srecode-macro-help): * lisp/cus-start.el (standard): * lisp/cus-theme.el (describe-theme-1): * lisp/custom.el (custom-add-dependencies, custom-check-theme) (custom--sort-vars-1, load-theme): * lisp/descr-text.el (describe-text-properties-1, describe-char): * lisp/dired-x.el (dired-do-run-mail): * lisp/dired.el (dired-log): * lisp/emacs-lisp/advice.el (ad-read-advised-function) (ad-read-advice-class, ad-read-advice-name, ad-enable-advice) (ad-disable-advice, ad-remove-advice, ad-set-argument) (ad-set-arguments, ad--defalias-fset, ad-activate) (ad-deactivate): * lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand) (byte-compile-unfold-lambda, byte-optimize-form-code-walker) (byte-optimize-while, byte-optimize-apply): * lisp/emacs-lisp/byte-run.el (defun, defsubst): * lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode) (byte-compile-log-file, byte-compile-format-warn) (byte-compile-nogroup-warn, byte-compile-arglist-warn) (byte-compile-cl-warn) (byte-compile-warn-about-unresolved-functions) (byte-compile-file, byte-compile--declare-var) (byte-compile-file-form-defmumble, byte-compile-form) (byte-compile-normal-call, byte-compile-check-variable) (byte-compile-variable-ref, byte-compile-variable-set) (byte-compile-subr-wrong-args, byte-compile-setq-default) (byte-compile-negation-optimizer) (byte-compile-condition-case--old) (byte-compile-condition-case--new, byte-compile-save-excursion) (byte-compile-defvar, byte-compile-autoload) (byte-compile-lambda-form) (byte-compile-make-variable-buffer-local, display-call-tree) (batch-byte-compile): * lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use): * lisp/emacs-lisp/chart.el (chart-space-usage): * lisp/emacs-lisp/check-declare.el (check-declare-scan) (check-declare-warn, check-declare-file) (check-declare-directory): * lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine) (checkdoc-message-text-engine): * lisp/emacs-lisp/cl-extra.el (cl-parse-integer) (cl--describe-class): * lisp/emacs-lisp/cl-generic.el (cl-defgeneric) (cl--generic-describe, cl-generic-generalizers): * lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody) (cl-symbol-macrolet): * lisp/emacs-lisp/cl.el (cl-unload-function, flet): * lisp/emacs-lisp/copyright.el (copyright) (copyright-update-directory): * lisp/emacs-lisp/edebug.el (edebug-read-list): * lisp/emacs-lisp/eieio-base.el (eieio-persistent-read): * lisp/emacs-lisp/eieio-core.el (eieio--slot-override) (eieio-oref): * lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor): * lisp/emacs-lisp/eieio-speedbar.el: (eieio-speedbar-child-make-tag-lines) (eieio-speedbar-child-description): * lisp/emacs-lisp/eieio.el (defclass, change-class): * lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms) (elint-init-form, elint-check-defalias-form) (elint-check-let-form): * lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu) (ert-results-pop-to-backtrace-for-test-at-point) (ert-results-pop-to-messages-for-test-at-point) (ert-results-pop-to-should-forms-for-test-at-point) (ert-describe-test): * lisp/emacs-lisp/find-func.el (find-function-search-for-symbol) (find-function-library): * lisp/emacs-lisp/generator.el (iter-yield): * lisp/emacs-lisp/gv.el (gv-define-simple-setter): * lisp/emacs-lisp/lisp-mnt.el (lm-verify): * lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning): * lisp/emacs-lisp/map-ynp.el (map-y-or-n-p): * lisp/emacs-lisp/nadvice.el (advice--make-docstring) (advice--make, define-advice): * lisp/emacs-lisp/package-x.el (package-upload-file): * lisp/emacs-lisp/package.el (package-version-join) (package-disabled-p, package-activate-1, package-activate) (package--download-one-archive) (package--download-and-read-archives) (package-compute-transaction, package-install-from-archive) (package-install, package-install-selected-packages) (package-delete, package-autoremove, describe-package-1) (package-install-button-action, package-delete-button-action) (package-menu-hide-package, package-menu--list-to-prompt) (package-menu--perform-transaction) (package-menu--find-and-notify-upgrades): * lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1): * lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode): * lisp/emacs-lisp/ring.el (ring-previous, ring-next): * lisp/emacs-lisp/rx.el (rx-check, rx-anything) (rx-check-any-string, rx-check-any, rx-check-not, rx-=) (rx-repeat, rx-check-backref, rx-syntax, rx-check-category) (rx-form): * lisp/emacs-lisp/smie.el (smie-config-save): * lisp/emacs-lisp/subr-x.el (internal--check-binding): * lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag): * lisp/emacs-lisp/testcover.el (testcover-1value): * lisp/emacs-lisp/timer.el (timer-event-handler): * lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments) (viper-toggle-search-style, viper-kill-buffer) (viper-brac-function): * lisp/emulation/viper-macs.el (viper-record-kbd-macro): * lisp/env.el (setenv): * lisp/erc/erc-button.el (erc-nick-popup): * lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english): * lisp/eshell/em-dirs.el (eshell/cd): * lisp/eshell/em-glob.el (eshell-glob-regexp) (eshell-glob-entries): * lisp/eshell/em-pred.el (eshell-parse-modifiers): * lisp/eshell/esh-opt.el (eshell-show-usage): * lisp/facemenu.el (facemenu-add-new-face) (facemenu-add-new-color): * lisp/faces.el (read-face-name, read-face-font, describe-face) (x-resolve-font-name): * lisp/files-x.el (modify-file-local-variable): * lisp/files.el (locate-user-emacs-file, find-alternate-file) (set-auto-mode, hack-one-local-variable--obsolete) (dir-locals-set-directory-class, write-file, basic-save-buffer) (delete-directory, copy-directory, recover-session) (recover-session-finish, insert-directory) (file-modes-char-to-who, file-modes-symbolic-to-number) (move-file-to-trash): * lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer): * lisp/find-cmd.el (find-generic, find-to-string): * lisp/finder.el (finder-commentary): * lisp/font-lock.el (font-lock-fontify-buffer): * lisp/format.el (format-write-file, format-find-file) (format-insert-file): * lisp/frame.el (get-device-terminal, select-frame-by-name): * lisp/fringe.el (fringe--check-style): * lisp/gnus/nnmairix.el (nnmairix-widget-create-query): * lisp/help-fns.el (help-fns--key-bindings) (help-fns--compiler-macro, help-fns--parent-mode) (help-fns--obsolete, help-fns--interactive-only) (describe-function-1, describe-variable): * lisp/help.el (describe-mode) (describe-minor-mode-from-indicator): * lisp/image.el (image-type): * lisp/international/ccl.el (ccl-dump): * lisp/international/fontset.el (x-must-resolve-font-name): * lisp/international/mule-cmds.el (prefer-coding-system) (select-safe-coding-system-interactively) (select-safe-coding-system, activate-input-method) (toggle-input-method, describe-current-input-method) (describe-language-environment): * lisp/international/mule-conf.el (code-offset): * lisp/international/mule-diag.el (describe-character-set) (list-input-methods-1): * lisp/mail/feedmail.el (feedmail-run-the-queue): * lisp/mouse.el (minor-mode-menu-from-indicator): * lisp/mpc.el (mpc-playlist-rename): * lisp/msb.el (msb--choose-menu): * lisp/net/ange-ftp.el (ange-ftp-shell-command): * lisp/net/imap.el (imap-interactive-login): * lisp/net/mairix.el (mairix-widget-create-query): * lisp/net/newst-backend.el (newsticker--sentinel-work): * lisp/net/newst-treeview.el (newsticker--treeview-load): * lisp/net/rlogin.el (rlogin): * lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer): * lisp/obsolete/otodo-mode.el (todo-more-important-p): * lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region): * lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region): * lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region): * lisp/org/ob-core.el (org-babel-goto-named-src-block) (org-babel-goto-named-result): * lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap): * lisp/org/ob-ref.el (org-babel-ref-resolve): * lisp/org/org-agenda.el (org-agenda-prepare): * lisp/org/org-clock.el (org-clock-notify-once-if-expired) (org-clock-resolve): * lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag): * lisp/org/org-feed.el (org-feed-parse-atom-entry): * lisp/org/org-habit.el (org-habit-parse-todo): * lisp/org/org-mouse.el (org-mouse-popup-global-menu) (org-mouse-context-menu): * lisp/org/org-table.el (org-table-edit-formulas): * lisp/org/ox.el (org-export-async-start): * lisp/proced.el (proced-log): * lisp/progmodes/ada-mode.el (ada-get-indent-case) (ada-check-matching-start, ada-goto-matching-start): * lisp/progmodes/ada-prj.el (ada-prj-display-page): * lisp/progmodes/ada-xref.el (ada-find-executable): * lisp/progmodes/ebrowse.el (ebrowse-tags-apropos): * lisp/progmodes/etags.el (etags-tags-apropos-additional): * lisp/progmodes/flymake.el (flymake-parse-err-lines) (flymake-start-syntax-check-process): * lisp/progmodes/python.el (python-shell-get-process-or-error) (python-define-auxiliary-skeleton): * lisp/progmodes/sql.el (sql-comint): * lisp/progmodes/verilog-mode.el (verilog-load-file-at-point): * lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate): * lisp/recentf.el (recentf-open-files): * lisp/replace.el (query-replace-read-from) (occur-after-change-function, occur-1): * lisp/scroll-bar.el (scroll-bar-columns): * lisp/server.el (server-get-auth-key): * lisp/simple.el (execute-extended-command) (undo-outer-limit-truncate, list-processes--refresh) (compose-mail, set-variable, choose-completion-string) (define-alternatives): * lisp/startup.el (site-run-file, tty-handle-args, command-line) (command-line-1): * lisp/subr.el (noreturn, define-error, add-to-list) (read-char-choice, version-to-list): * lisp/term/common-win.el (x-handle-xrm-switch) (x-handle-name-switch, x-handle-args): * lisp/term/x-win.el (x-handle-parent-id, x-handle-smid): * lisp/textmodes/reftex-ref.el (reftex-label): * lisp/textmodes/reftex-toc.el (reftex-toc-rename-label): * lisp/textmodes/two-column.el (2C-split): * lisp/tutorial.el (tutorial--describe-nonstandard-key) (tutorial--find-changed-keys): * lisp/type-break.el (type-break-noninteractive-query): * lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes) (wdired-do-perm-changes): * lisp/whitespace.el (whitespace-report-region): Prefer grave quoting in source-code strings used to generate help and diagnostics. * lisp/faces.el (face-documentation): No need to convert quotes, since the result is a docstring. * lisp/info.el (Info-virtual-index-find-node) (Info-virtual-index, info-apropos): Simplify by generating only curved quotes, since info files are typically that ways nowadays anyway. * lisp/international/mule-diag.el (list-input-methods): Don’t assume text quoting style is curved. * lisp/org/org-bibtex.el (org-bibtex-fields): Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
"Insert the option mark (`X' or ` ') in toggle options buffer."
New version 11.0.
2008-04-26 11:38:50 +00:00
(goto-char (point-min))
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(forward-line 2)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(dolist (sym the-list)
New version 11.0.
2008-04-26 11:38:50 +00:00
(if (eq sym 'help-newline)
(forward-line 2)
(forward-line 1)
(whitespace-mark-x 2 (memq sym the-value)))))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
(defun whitespace-help-on (style)
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
"Display the whitespace toggle options."
(unless (get-buffer whitespace-help-buffer-name)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(delete-other-windows)
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(let ((buffer (get-buffer-create whitespace-help-buffer-name)))
* x-dnd.el (x-dnd-maybe-call-test-function): * window.el (split-window-vertically): * whitespace.el (whitespace-help-on): * vc-rcs.el (vc-rcs-consult-headers): * userlock.el (ask-user-about-lock-help) (ask-user-about-supersession-help): * type-break.el (type-break-force-mode-line-update): * time-stamp.el (time-stamp-conv-warn): * terminal.el (te-set-output-log, te-more-break, te-filter) (te-sentinel,terminal-emulator): * term.el (make-term, term-exec, term-sentinel, term-read-input-ring) (term-write-input-ring, term-check-source, term-start-output-log): (term-display-buffer-line, term-dynamic-list-completions): (term-ansi-make-term, serial-term): * subr.el (selective-display): * strokes.el (strokes-xpm-to-compressed-string, strokes-decode-buffer) (strokes-encode-buffer, strokes-xpm-for-compressed-string): * speedbar.el (speedbar-buffers-tail-notes, speedbar-buffers-item-info) (speedbar-reconfigure-keymaps, speedbar-add-localized-speedbar-support) (speedbar-remove-localized-speedbar-support) (speedbar-set-mode-line-format, speedbar-create-tag-hierarchy) (speedbar-update-special-contents, speedbar-buffer-buttons-engine) (speedbar-buffers-line-directory): * simple.el (shell-command-on-region, append-to-buffer) (prepend-to-buffer): * shadowfile.el (shadow-save-todo-file): * scroll-bar.el (scroll-bar-set-window-start, scroll-bar-drag-1) (scroll-bar-maybe-set-window-start): * sb-image.el (speedbar-image-dump): * saveplace.el (save-place-alist-to-file, save-places-to-alist) (load-save-place-alist-from-file): * ps-samp.el (ps-print-message-from-summary): * ps-print.el (ps-flush-output, ps-insert-file, ps-get-boundingbox) (ps-background-image, ps-begin-job, ps-do-despool): * ps-bdf.el (bdf-find-file, bdf-read-font-info): * printing.el (pr-interface, pr-ps-file-print, pr-find-buffer-visiting) (pr-ps-message-from-summary, pr-lpr-message-from-summary): (pr-call-process, pr-file-list, pr-interface-save): * novice.el (disabled-command-function) (enable-command, disable-command): * mouse.el (mouse-buffer-menu-alist): * mouse-copy.el (mouse-kill-preserving-secondary): * macros.el (kbd-macro-query): * ledit.el (ledit-go-to-lisp, ledit-go-to-liszt): * informat.el (batch-info-validate): * ido.el (ido-copy-current-word, ido-initiate-auto-merge): * hippie-exp.el (try-expand-dabbrev-visible): * help-mode.el (help-make-xrefs): * help-fns.el (describe-variable): * generic-x.el (bat-generic-mode-run-as-comint): * finder.el (finder-mouse-select): * find-dired.el (find-dired-sentinel): * filesets.el (filesets-file-close): * files.el (list-directory): * faces.el (list-faces-display, describe-face): * facemenu.el (list-colors-display): * ezimage.el (ezimage-image-association-dump, ezimage-image-dump): * epg.el (epg--process-filter, epg-cancel): * epa.el (epa--marked-keys, epa--select-keys, epa-display-info) (epa--read-signature-type): * emerge.el (emerge-copy-as-kill-A, emerge-copy-as-kill-B) (emerge-file-names): * ehelp.el (electric-helpify): * ediff.el (ediff-regions-wordwise, ediff-regions-linewise): * ediff-vers.el (rcs-ediff-view-revision): * ediff-util.el (ediff-setup): * ediff-mult.el (ediff-append-custom-diff): * ediff-diff.el (ediff-exec-process, ediff-process-sentinel) (ediff-wordify): * echistory.el (Electric-command-history-redo-expression): * dos-w32.el (find-file-not-found-set-buffer-file-coding-system): * disp-table.el (describe-display-table): * dired.el (dired-find-buffer-nocreate): * dired-aux.el (dired-rename-subdir, dired-dwim-target-directory): * dabbrev.el (dabbrev--same-major-mode-p): * chistory.el (list-command-history): * apropos.el (apropos-documentation): * allout.el (allout-obtain-passphrase): (allout-copy-exposed-to-buffer): (allout-verify-passphrase): Use with-current-buffer.
2009-11-13 22:19:45 +00:00
(with-current-buffer buffer
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(erase-buffer)
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(insert whitespace-help-text)
(whitespace-insert-option-mark
New version 11.0.
2008-04-26 11:38:50 +00:00
whitespace-style-value-list style)
New version 9.3.
2008-03-01 19:00:24 +00:00
(whitespace-display-window buffer)))))
(defun whitespace-display-window (buffer)
"Display BUFFER in a new window."
(goto-char (point-min))
(set-buffer-modified-p nil)
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
(when (< (window-height) (* 2 window-min-height))
(kill-buffer buffer)
(error "Window height is too small; \
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
can't split window to display whitespace toggle options"))
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
(let ((win (split-window)))
(set-window-buffer win buffer)
(shrink-window-if-larger-than-buffer win)))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(defun whitespace-kill-buffer (buffer-name)
"Kill buffer BUFFER-NAME and windows related with it."
(let ((buffer (get-buffer buffer-name)))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(when buffer
(delete-windows-on buffer)
(kill-buffer buffer))))
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(defun whitespace-help-off ()
"Remove the buffer and window of the whitespace toggle options."
(whitespace-kill-buffer whitespace-help-buffer-name))
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
(defun whitespace-help-scroll (&optional up)
"Scroll help window, if it exists.
If UP is non-nil, scroll up; otherwise, scroll down."
lisp/*.el: Lexical-binding cleanup.
2011-04-19 13:44:55 +00:00
(condition-case nil
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
(let ((buffer (get-buffer whitespace-help-buffer-name)))
(if buffer
(with-selected-window (get-buffer-window buffer)
(if up
(scroll-up 3)
(scroll-down 3)))
(ding)))
;; handler
((error)
;; just ignore error
)))
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defun whitespace-interactive-char (local-p)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
"Interactive function to read a char and return a symbol.
If LOCAL-P is non-nil, it uses a local context; otherwise, it
uses a global context.
(whitespace): Set :version tag to 23.1. (whitespace-turn-off, whitespace-toggle-options): Fix typos. (whitespace-style, whitespace-chars, whitespace-space, whitespace-hspace, whitespace-tab, whitespace-newline, whitespace-trailing, whitespace-line, whitespace-space-before-tab, whitespace-indentation, whitespace-empty, whitespace-space-after-tab, whitespace-hspace-regexp, whitespace-space-regexp, whitespace-tab-regexp, whitespace-trailing-regexp, whitespace-space-before-tab-regexp, whitespace-indentation-regexp, whitespace-empty-at-bob-regexp, whitespace-empty-at-eob-regexp, whitespace-space-after-tab-regexp, whitespace-line-column, whitespace-display-mappings, global-whitespace-toggle-options, whitespace-cleanup, whitespace-cleanup-region, whitespace-interactive-char): Doc fixes.
2008-02-01 14:44:44 +00:00
It accepts one of the following chars:
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
CHAR MEANING
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(VIA FACES)
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
f toggle face visualization
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
t toggle TAB visualization
s toggle SPACE and HARD SPACE visualization
r toggle trailing blanks visualization
l toggle \"long lines\" visualization
Handle *long* lines tail visualization.
2008-01-26 01:47:21 +00:00
L toggle \"long lines\" tail visualization
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
n toggle NEWLINE visualization
New commands for cleaning up some blank problems like trailing blanks.
2008-01-25 14:09:57 +00:00
e toggle empty line at bob and/or eob visualization
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
C-i toggle indentation SPACEs visualization (via `indent-tabs-mode')
I toggle indentation SPACEs visualization
i toggle indentation TABs visualization
C-a toggle SPACEs after TAB visualization (via `indent-tabs-mode')
A toggle SPACEs after TAB: SPACEs visualization
a toggle SPACEs after TAB: TABs visualization
C-b toggle SPACEs before TAB visualization (via `indent-tabs-mode')
B toggle SPACEs before TAB: SPACEs visualization
b toggle SPACEs before TAB: TABs visualization
(VIA DISPLAY TABLE)
T toggle TAB visualization
S toggle SPACE and HARD SPACE visualization
N toggle NEWLINE visualization
New version 11.0.
2008-04-26 11:38:50 +00:00
x restore `whitespace-style' value
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
? display brief help
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
See also `whitespace-toggle-option-alist'."
(let* ((is-off (not (if local-p
whitespace-mode
global-whitespace-mode)))
New version 11.0.
2008-04-26 11:38:50 +00:00
(style (cond (is-off whitespace-style) ; use default value
(local-p whitespace-active-style)
(t whitespace-toggle-style)))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(prompt
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(format "Whitespace Toggle %s (type ? for further options)-"
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(if local-p "Local" "Global")))
ch sym)
;; read a valid option and get the corresponding symbol
(save-window-excursion
(condition-case data
(progn
(while
;; while condition
(progn
(setq ch (read-char prompt))
(not
(setq sym
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(cdr
(assq ch whitespace-toggle-option-alist)))))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; while body
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
(cond
((eq ch ?\?) (whitespace-help-on style))
((eq ch ?\ ) (whitespace-help-scroll t))
((eq ch ?\M- ) (whitespace-help-scroll))
((eq ch ?>) (whitespace-help-scroll t))
((eq ch ?<) (whitespace-help-scroll))
(t (ding))))
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(whitespace-help-off)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(message " ")) ; clean echo area
;; handler
((quit error)
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(whitespace-help-off)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(error (error-message-string data)))))
Fix typos in docstrings, error messages, etc.
2010-01-18 04:39:40 +00:00
(list sym))) ; return the appropriate symbol
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
(defun whitespace-toggle-list (local-p arg the-list)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
"Toggle options in THE-LIST based on list ARG.
If LOCAL-P is non-nil, it uses a local context; otherwise, it
uses a global context.
ARG is a list of options to be toggled.
THE-LIST is a list of options. This list will be toggled and the
New version 11.0.
2008-04-26 11:38:50 +00:00
resultant list will be returned."
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(unless (if local-p whitespace-mode global-whitespace-mode)
New version 11.0.
2008-04-26 11:38:50 +00:00
(setq the-list whitespace-style))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(setq the-list (copy-sequence the-list)) ; keep original list
(dolist (sym (if (listp arg) arg (list arg)))
(cond
New version 11.0.
2008-04-26 11:38:50 +00:00
;; ignore help value
((eq sym 'help-newline))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; restore default values
New version 11.0.
2008-04-26 11:38:50 +00:00
((eq sym 'whitespace-style)
(setq the-list whitespace-style))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; toggle valid values
New version 11.0.
2008-04-26 11:38:50 +00:00
((memq sym whitespace-style-value-list)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(setq the-list (if (memq sym the-list)
(delq sym the-list)
(cons sym the-list))))))
the-list)
New version 11.0.
2008-04-26 11:38:50 +00:00
(whitespace-display-table, whitespace-display-table-was-local): Move definitions before use.
2008-04-22 02:55:30 +00:00
(defvar whitespace-display-table nil
"Used to save a local display table.")
(defvar whitespace-display-table-was-local nil
"Used to remember whether a buffer initially had a local display table.")
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defun whitespace-turn-on ()
"Turn on whitespace visualization."
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
;; prepare local hooks
Eliminate whitespace-kill-buffer-hook functionality.
2008-10-02 00:49:49 +00:00
(add-hook 'write-file-functions 'whitespace-write-file-hook nil t)
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
;; create whitespace local buffer environment
Prefer setq-local in whitespace.el * lisp/whitespace.el (whitespace-turn-on, whitespace-color-on): Prefer setq-local.
2020-12-07 10:14:22 +00:00
(setq-local whitespace-font-lock-keywords nil)
(setq-local whitespace-display-table nil)
(setq-local whitespace-display-table-was-local nil)
(setq-local whitespace-active-style
(if (listp whitespace-style)
whitespace-style
(list whitespace-style)))
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
;; turn on whitespace
New version 11.0.
2008-04-26 11:38:50 +00:00
(when whitespace-active-style
(whitespace-color-on)
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(whitespace-display-char-on)))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defun whitespace-turn-off ()
(whitespace): Set :version tag to 23.1. (whitespace-turn-off, whitespace-toggle-options): Fix typos. (whitespace-style, whitespace-chars, whitespace-space, whitespace-hspace, whitespace-tab, whitespace-newline, whitespace-trailing, whitespace-line, whitespace-space-before-tab, whitespace-indentation, whitespace-empty, whitespace-space-after-tab, whitespace-hspace-regexp, whitespace-space-regexp, whitespace-tab-regexp, whitespace-trailing-regexp, whitespace-space-before-tab-regexp, whitespace-indentation-regexp, whitespace-empty-at-bob-regexp, whitespace-empty-at-eob-regexp, whitespace-space-after-tab-regexp, whitespace-line-column, whitespace-display-mappings, global-whitespace-toggle-options, whitespace-cleanup, whitespace-cleanup-region, whitespace-interactive-char): Doc fixes.
2008-02-01 14:44:44 +00:00
"Turn off whitespace visualization."
Eliminate whitespace-kill-buffer-hook functionality.
2008-10-02 00:49:49 +00:00
(remove-hook 'write-file-functions 'whitespace-write-file-hook t)
New version 11.0.
2008-04-26 11:38:50 +00:00
(when whitespace-active-style
(whitespace-color-off)
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(whitespace-display-char-off)))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
New version 11.0.
2008-04-26 11:38:50 +00:00
(defun whitespace-style-face-p ()
"Return t if there is some visualization via face."
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
(and (memq 'face whitespace-active-style)
(or (memq 'tabs whitespace-active-style)
(memq 'spaces whitespace-active-style)
(memq 'trailing whitespace-active-style)
(memq 'lines whitespace-active-style)
(memq 'lines-tail whitespace-active-style)
(memq 'newline whitespace-active-style)
(memq 'empty whitespace-active-style)
(memq 'indentation whitespace-active-style)
(memq 'indentation::tab whitespace-active-style)
(memq 'indentation::space whitespace-active-style)
Add a 'big-indent style to `whitespace-mode'. * lisp/whitespace.el (whitespace-style, whitespace-big-indent) (whitespace-big-indent-regexp, whitespace-style-value-list) (whitespace-toggle-option-alist, whitespace-interactive-char) (whitespace-toggle-options) (global-whitespace-toggle-options, whitespace-help-text) (whitespace-style-face-p, whitespace-color-on): Add a 'big-indent style to `whitespace-mode' to indicate that the line indentation is too deep. By default, 32 SPACEs or four TABs are considered too many but `whitespace-big-indent-regexp' can be configured.
2014-10-18 00:23:03 +00:00
(memq 'big-indent whitespace-active-style)
Fix some bugs. New version 13.1.
2010-08-25 02:27:58 +00:00
(memq 'space-after-tab whitespace-active-style)
(memq 'space-after-tab::tab whitespace-active-style)
(memq 'space-after-tab::space whitespace-active-style)
(memq 'space-before-tab whitespace-active-style)
(memq 'space-before-tab::tab whitespace-active-style)
lisp/*.el: Force non-nil result to t, to match docstring * lisp/ido.el (ido-ignore-item-p): * lisp/simple.el (use-region-p): * lisp/whitespace.el (whitespace-style-face-p) (whitespace-style-mark-p): * lisp/calendar/cal-islam.el (calendar-islamic-leap-year-p): * lisp/mail/rmail.el (rmail-is-text-p): * lisp/mh-e/mh-alias.el (mh-alias-for-from-p): * lisp/net/imap.el (imap-message-flag-permanent-p): * lisp/progmodes/tcl.el (tcl-real-comment-p): * lisp/textmodes/table.el (table--point-in-cell-p): Normalize boolean result.
2019-10-14 21:52:21 +00:00
(memq 'space-before-tab::space whitespace-active-style))
t))
New version 11.0.
2008-04-26 11:38:50 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defun whitespace-color-on ()
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
"Turn on color visualization."
New version 11.0.
2008-04-26 11:38:50 +00:00
(when (whitespace-style-face-p)
New version 12. Bug#4177
2009-09-25 02:23:51 +00:00
;; save current point and refontify when necessary
Prefer setq-local in whitespace.el * lisp/whitespace.el (whitespace-turn-on, whitespace-color-on): Prefer setq-local.
2020-12-07 10:14:22 +00:00
(setq-local whitespace-point (point))
* lisp/whitespace.el: Use font-lock-flush. Minimize refontifications. Side benefit: it works without jit-lock. (whitespace-point--used): New buffer-local var. (whitespace-color-on): Initialize it and flush it. Use font-lock-flush. (whitespace-color-off): Use font-lock-flush. (whitespace-point--used, whitespace-point--flush-used): New functions. (whitespace-trailing-regexp, whitespace-empty-at-bob-regexp) (whitespace-empty-at-eob-regexp): Use them. (whitespace-post-command-hook): Rewrite.
2014-05-29 03:54:37 +00:00
(setq whitespace-point--used
(let ((ol (make-overlay (point) (point) nil nil t)))
(delete-overlay ol) ol))
Prefer setq-local in whitespace.el * lisp/whitespace.el (whitespace-turn-on, whitespace-color-on): Prefer setq-local.
2020-12-07 10:14:22 +00:00
(setq-local whitespace-font-lock-refontify 0)
(setq-local whitespace-bob-marker (point-min-marker))
(setq-local whitespace-eob-marker (point-max-marker))
(setq-local whitespace-buffer-changed nil)
New version 12. Bug#4177
2009-09-25 02:23:51 +00:00
(add-hook 'post-command-hook #'whitespace-post-command-hook nil t)
Fix slow cursor movement.
2010-08-21 04:43:04 +00:00
(add-hook 'before-change-functions #'whitespace-buffer-changed nil t)
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
;; Add whitespace-mode color into font lock.
* lisp/whitespace.el (whitespace-font-lock-keywords): Change description. (whitespace-color-on): Don't save `font-lock-keywords' value, save the constructed keywords instead. (whitespace-color-off): Use `font-lock-remove-keywords'. Fixes: debbugs:13817
2013-03-19 05:06:49 +00:00
(setq
whitespace-font-lock-keywords
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
`(
* lisp/whitespace.el: Use font-lock-flush. Minimize refontifications. Side benefit: it works without jit-lock. (whitespace-point--used): New buffer-local var. (whitespace-color-on): Initialize it and flush it. Use font-lock-flush. (whitespace-color-off): Use font-lock-flush. (whitespace-point--used, whitespace-point--flush-used): New functions. (whitespace-trailing-regexp, whitespace-empty-at-bob-regexp) (whitespace-empty-at-eob-regexp): Use them. (whitespace-post-command-hook): Rewrite.
2014-05-29 03:54:37 +00:00
(whitespace-point--flush-used)
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
,@(when (memq 'spaces whitespace-active-style)
;; Show SPACEs.
`((,whitespace-space-regexp 1 whitespace-space t)
;; Show HARD SPACEs.
(,whitespace-hspace-regexp 1 whitespace-hspace t)))
,@(when (memq 'tabs whitespace-active-style)
;; Show TABs.
`((,whitespace-tab-regexp 1 whitespace-tab t)))
,@(when (memq 'trailing whitespace-active-style)
;; Show trailing blanks.
`((,#'whitespace-trailing-regexp 1 whitespace-trailing t)))
,@(when (or (memq 'lines whitespace-active-style)
(memq 'lines-tail whitespace-active-style))
;; Show "long" lines.
whitespace: Turn long lines regexp into a function (bug#36837) * lisp/whitespace.el (whitespace-color-on): Turn long lines regexp into a function to ensure it uses current 'whitespace-line-column' and 'fill-column' values. (Bug#36837) (whitespace-lines-regexp): New function.
2019-08-29 17:32:08 +00:00
`((,#'whitespace-lines-regexp
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
,(if (memq 'lines whitespace-active-style)
0 ; whole line
2) ; line tail
* lisp/whitespace.el (whitespace-color-on): Use `prepend' OVERRIDE value for `whitespace-line' face. Fixes: debbugs:13875
2013-03-19 04:23:36 +00:00
whitespace-line prepend)))
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
,@(when (or (memq 'space-before-tab whitespace-active-style)
(memq 'space-before-tab::tab whitespace-active-style)
(memq 'space-before-tab::space whitespace-active-style))
`((,whitespace-space-before-tab-regexp
,(cond
((memq 'space-before-tab whitespace-active-style)
;; Show SPACEs before TAB (indent-tabs-mode).
Fix reading of tab settings in whitespace-mode lisp/whitespace.el (whitespace-indent-tabs-mode) whitespace-tab-width): Remove these variables. The underlying variables `indent-tabs-mode' and `tab-width' are already buffer-local when needed, and whitespace-mode never changes them. (whitespace-ensure-local-variables): Remove this function, which only existed to set the above variables. (whitespace-cleanup-region, whitespace-regexp) (whitespace-indentation-regexp, whitespace-report-region) (whitespace-turn-on, whitespace-color-on): Adjust these functions to use `indent-tabs-mode' and `tab-width' directly, and not call `whitespace-ensure-local-variables'.
2017-03-02 12:50:06 +00:00
(if indent-tabs-mode 1 2))
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
((memq 'space-before-tab::tab whitespace-active-style)
1)
((memq 'space-before-tab::space whitespace-active-style)
2))
whitespace-space-before-tab t)))
,@(when (or (memq 'indentation whitespace-active-style)
(memq 'indentation::tab whitespace-active-style)
(memq 'indentation::space whitespace-active-style))
`((,(cond
((memq 'indentation whitespace-active-style)
;; Show indentation SPACEs (indent-tabs-mode).
(whitespace-indentation-regexp))
((memq 'indentation::tab whitespace-active-style)
;; Show indentation SPACEs (SPACEs).
(whitespace-indentation-regexp 'tab))
((memq 'indentation::space whitespace-active-style)
;; Show indentation SPACEs (TABs).
(whitespace-indentation-regexp 'space)))
1 whitespace-indentation t)))
Add a 'big-indent style to `whitespace-mode'. * lisp/whitespace.el (whitespace-style, whitespace-big-indent) (whitespace-big-indent-regexp, whitespace-style-value-list) (whitespace-toggle-option-alist, whitespace-interactive-char) (whitespace-toggle-options) (global-whitespace-toggle-options, whitespace-help-text) (whitespace-style-face-p, whitespace-color-on): Add a 'big-indent style to `whitespace-mode' to indicate that the line indentation is too deep. By default, 32 SPACEs or four TABs are considered too many but `whitespace-big-indent-regexp' can be configured.
2014-10-18 00:23:03 +00:00
,@(when (memq 'big-indent whitespace-active-style)
;; Show big indentation.
`((,whitespace-big-indent-regexp 1 'whitespace-big-indent t)))
* lisp/whitespace.el: Fix double evaluation. (whitespace-space, whitespace-hspace, whitespace-tab) (whitespace-newline, whitespace-trailing, whitespace-line) (whitespace-space-before-tab, whitespace-indentation) (whitespace-empty, whitespace-space-after-tab): Turn defcustoms into obsolete defvars. (whitespace-hspace-regexp): Fix regexp for emacs-unicode. (whitespace-color-on): Use a single font-lock-add-keywords call. Fix double-evaluation of face variables.
2013-03-18 01:50:32 +00:00
,@(when (memq 'empty whitespace-active-style)
;; Show empty lines at beginning of buffer.
`((,#'whitespace-empty-at-bob-regexp
1 whitespace-empty t)
;; Show empty lines at end of buffer.
(,#'whitespace-empty-at-eob-regexp
1 whitespace-empty t)))
,@(when (or (memq 'space-after-tab whitespace-active-style)
(memq 'space-after-tab::tab whitespace-active-style)
(memq 'space-after-tab::space whitespace-active-style))
`((,(cond
((memq 'space-after-tab whitespace-active-style)
;; Show SPACEs after TAB (indent-tabs-mode).
(whitespace-space-after-tab-regexp))
((memq 'space-after-tab::tab whitespace-active-style)
;; Show SPACEs after TAB (SPACEs).
(whitespace-space-after-tab-regexp 'tab))
((memq 'space-after-tab::space whitespace-active-style)
;; Show SPACEs after TAB (TABs).
(whitespace-space-after-tab-regexp 'space)))
Make whitespace-mode highlight missing newlines at the end of buffers * lisp/whitespace.el (whitespace-missing-newline-at-eof): New face (bug#34952). (whitespace-report-region): Add a test for end-of-buffer-without-newline. (whitespace-color-on): Ditto. * doc/emacs/display.texi (Useless Whitespace): Document it.
2020-08-07 07:28:14 +00:00
1 whitespace-space-after-tab t)))
,@(when (memq 'missing-newline-at-eof whitespace-active-style)
;; Show missing newline.
Tweak how whitespace-mode marks the end of the buffer * lisp/whitespace.el (whitespace-missing-newline-at-eof): Change the colours to not be as angry. (whitespace-color-on): Don't mark the end of the buffer if point is there.
2020-08-08 09:53:09 +00:00
`(("[^\n]\\'" 0
;; Don't mark the end of the buffer is point is there --
;; it probably means that the user is typing something
;; at the end of the buffer.
(and (/= whitespace-point (point-max))
'whitespace-missing-newline-at-eof)
t)))))
* lisp/whitespace.el (whitespace-font-lock-keywords): Change description. (whitespace-color-on): Don't save `font-lock-keywords' value, save the constructed keywords instead. (whitespace-color-off): Use `font-lock-remove-keywords'. Fixes: debbugs:13817
2013-03-19 05:06:49 +00:00
(font-lock-add-keywords nil whitespace-font-lock-keywords t)
* lisp/whitespace.el: Use font-lock-flush. Minimize refontifications. Side benefit: it works without jit-lock. (whitespace-point--used): New buffer-local var. (whitespace-color-on): Initialize it and flush it. Use font-lock-flush. (whitespace-color-off): Use font-lock-flush. (whitespace-point--used, whitespace-point--flush-used): New functions. (whitespace-trailing-regexp, whitespace-empty-at-bob-regexp) (whitespace-empty-at-eob-regexp): Use them. (whitespace-post-command-hook): Rewrite.
2014-05-29 03:54:37 +00:00
(font-lock-flush)))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defun whitespace-color-off ()
Fix problem with cleanning blank faces when turniing off blank-mode. Eliminate -face suffix.
2008-01-21 12:45:58 +00:00
"Turn off color visualization."
New version 11.0.
2008-04-26 11:38:50 +00:00
;; turn off font lock
* lisp/whitespace.el: Use font-lock-flush. Minimize refontifications. Side benefit: it works without jit-lock. (whitespace-point--used): New buffer-local var. (whitespace-color-on): Initialize it and flush it. Use font-lock-flush. (whitespace-color-off): Use font-lock-flush. (whitespace-point--used, whitespace-point--flush-used): New functions. (whitespace-trailing-regexp, whitespace-empty-at-bob-regexp) (whitespace-empty-at-eob-regexp): Use them. (whitespace-post-command-hook): Rewrite.
2014-05-29 03:54:37 +00:00
(kill-local-variable 'whitespace-point--used)
New version 11.0.
2008-04-26 11:38:50 +00:00
(when (whitespace-style-face-p)
Fix slow cursor movement.
2010-08-21 04:43:04 +00:00
(remove-hook 'post-command-hook #'whitespace-post-command-hook t)
(remove-hook 'before-change-functions #'whitespace-buffer-changed t)
* lisp/whitespace.el (whitespace-font-lock-keywords): Change description. (whitespace-color-on): Don't save `font-lock-keywords' value, save the constructed keywords instead. (whitespace-color-off): Use `font-lock-remove-keywords'. Fixes: debbugs:13817
2013-03-19 05:06:49 +00:00
(font-lock-remove-keywords nil whitespace-font-lock-keywords)
* lisp/whitespace.el: Use font-lock-flush. Minimize refontifications. Side benefit: it works without jit-lock. (whitespace-point--used): New buffer-local var. (whitespace-color-on): Initialize it and flush it. Use font-lock-flush. (whitespace-color-off): Use font-lock-flush. (whitespace-point--used, whitespace-point--flush-used): New functions. (whitespace-trailing-regexp, whitespace-empty-at-bob-regexp) (whitespace-empty-at-eob-regexp): Use them. (whitespace-post-command-hook): Rewrite.
2014-05-29 03:54:37 +00:00
(font-lock-flush)))
(defun whitespace-point--used (start end)
(let ((ostart (overlay-start whitespace-point--used)))
(if ostart
(move-overlay whitespace-point--used
(min start ostart)
(max end (overlay-end whitespace-point--used)))
(move-overlay whitespace-point--used start end))))
(defun whitespace-point--flush-used (limit)
(let ((ostart (overlay-start whitespace-point--used)))
;; Strip parts of whitespace-point--used we're about to refresh.
(when ostart
(let ((oend (overlay-end whitespace-point--used)))
(if (<= (point) ostart)
(if (<= oend limit)
(delete-overlay whitespace-point--used)
(move-overlay whitespace-point--used limit oend)))
(if (<= oend limit)
(move-overlay whitespace-point--used ostart (point))))))
nil)
New version 12. Bug#4177
2009-09-25 02:23:51 +00:00
(defun whitespace-trailing-regexp (limit)
Fix doc string.
2009-09-28 01:57:33 +00:00
"Match trailing spaces which do not contain the point at end of line."
New version 12. Bug#4177
2009-09-25 02:23:51 +00:00
(let ((status t))
(while (if (re-search-forward whitespace-trailing-regexp limit t)
* lisp/whitespace.el: Use font-lock-flush. Minimize refontifications. Side benefit: it works without jit-lock. (whitespace-point--used): New buffer-local var. (whitespace-color-on): Initialize it and flush it. Use font-lock-flush. (whitespace-color-off): Use font-lock-flush. (whitespace-point--used, whitespace-point--flush-used): New functions. (whitespace-trailing-regexp, whitespace-empty-at-bob-regexp) (whitespace-empty-at-eob-regexp): Use them. (whitespace-post-command-hook): Rewrite.
2014-05-29 03:54:37 +00:00
(when (= whitespace-point (match-end 1)) ; Loop if point at eol.
(whitespace-point--used (match-beginning 0) (match-end 0))
t)
Adjust comment.
2011-10-31 01:39:04 +00:00
(setq status nil))) ;; end of buffer
New version 12. Bug#4177
2009-09-25 02:23:51 +00:00
status))
whitespace: Turn long lines regexp into a function (bug#36837) * lisp/whitespace.el (whitespace-color-on): Turn long lines regexp into a function to ensure it uses current 'whitespace-line-column' and 'fill-column' values. (Bug#36837) (whitespace-lines-regexp): New function.
2019-08-29 17:32:08 +00:00
(defun whitespace-lines-regexp (limit)
(re-search-forward
(let ((line-column (or whitespace-line-column fill-column)))
(format
"^\\([^\t\n]\\{%s\\}\\|[^\t\n]\\{0,%s\\}\t\\)\\{%d\\}%s\\(.+\\)$"
tab-width
(1- tab-width)
(/ line-column tab-width)
(let ((rem (% line-column tab-width)))
(if (zerop rem)
""
(format ".\\{%d\\}" rem)))))
limit t))
New version 12. Bug#4177
2009-09-25 02:23:51 +00:00
(defun whitespace-empty-at-bob-regexp (limit)
Fix doc string.
2009-09-28 01:57:33 +00:00
"Match spaces at beginning of buffer which do not contain the point at \
New version 12. Bug#4177
2009-09-25 02:23:51 +00:00
beginning of buffer."
Fix slow cursor movement.
2010-08-21 04:43:04 +00:00
(let ((b (point))
r)
(cond
;; at bob
((= b 1)
* lisp/whitespace.el: Use font-lock-flush. Minimize refontifications. Side benefit: it works without jit-lock. (whitespace-point--used): New buffer-local var. (whitespace-color-on): Initialize it and flush it. Use font-lock-flush. (whitespace-color-off): Use font-lock-flush. (whitespace-point--used, whitespace-point--flush-used): New functions. (whitespace-trailing-regexp, whitespace-empty-at-bob-regexp) (whitespace-empty-at-eob-regexp): Use them. (whitespace-post-command-hook): Rewrite.
2014-05-29 03:54:37 +00:00
(setq r (and (looking-at whitespace-empty-at-bob-regexp)
(or (/= whitespace-point 1)
(progn (whitespace-point--used (match-beginning 0)
(match-end 0))
nil))))
* lisp/whitespace.el (whitespace-trailing-regexp): Don't rely on the internal encoding (e.g. tibetan zero is not whitespace). (global-whitespace-mode): Prefer save-current-buffer. (whitespace-trailing-regexp): Remove useless save-match-data. (whitespace-empty-at-bob-regexp): Minor simplification.
2011-05-04 01:02:09 +00:00
(set-marker whitespace-bob-marker (if r (match-end 1) b)))
Fix slow cursor movement.
2010-08-21 04:43:04 +00:00
;; inside bob empty region
((<= limit whitespace-bob-marker)
(setq r (looking-at whitespace-empty-at-bob-regexp))
(if r
(when (< (match-end 1) limit)
(set-marker whitespace-bob-marker (match-end 1)))
(set-marker whitespace-bob-marker b)))
;; intersection with end of bob empty region
((<= b whitespace-bob-marker)
(setq r (looking-at whitespace-empty-at-bob-regexp))
* lisp/whitespace.el (whitespace-trailing-regexp): Don't rely on the internal encoding (e.g. tibetan zero is not whitespace). (global-whitespace-mode): Prefer save-current-buffer. (whitespace-trailing-regexp): Remove useless save-match-data. (whitespace-empty-at-bob-regexp): Minor simplification.
2011-05-04 01:02:09 +00:00
(set-marker whitespace-bob-marker (if r (match-end 1) b)))
Fix slow cursor movement.
2010-08-21 04:43:04 +00:00
;; it is not inside bob empty region
(t
(setq r nil)))
;; move to end of matching
(and r (goto-char (match-end 1)))
r))
(defsubst whitespace-looking-back (regexp limit)
(save-excursion
(when (/= 0 (skip-chars-backward " \t\n" limit))
(unless (bolp)
(forward-line 1))
(looking-at regexp))))
New version 12. Bug#4177
2009-09-25 02:23:51 +00:00
(defun whitespace-empty-at-eob-regexp (limit)
Fix doc string.
2009-09-28 01:57:33 +00:00
"Match spaces at end of buffer which do not contain the point at end of \
New version 12. Bug#4177
2009-09-25 02:23:51 +00:00
buffer."
Fix slow cursor movement.
2010-08-21 04:43:04 +00:00
(let ((b (point))
(e (1+ (buffer-size)))
r)
(cond
;; at eob
((= limit e)
* lisp/whitespace.el: Use font-lock-flush. Minimize refontifications. Side benefit: it works without jit-lock. (whitespace-point--used): New buffer-local var. (whitespace-color-on): Initialize it and flush it. Use font-lock-flush. (whitespace-color-off): Use font-lock-flush. (whitespace-point--used, whitespace-point--flush-used): New functions. (whitespace-trailing-regexp, whitespace-empty-at-bob-regexp) (whitespace-empty-at-eob-regexp): Use them. (whitespace-post-command-hook): Rewrite.
2014-05-29 03:54:37 +00:00
(goto-char limit)
(setq r (whitespace-looking-back whitespace-empty-at-eob-regexp b))
(when (and r (= whitespace-point e))
(setq r nil)
(whitespace-point--used (match-beginning 0) (match-end 0)))
Fix slow cursor movement.
2010-08-21 04:43:04 +00:00
(if r
(set-marker whitespace-eob-marker (match-beginning 1))
(set-marker whitespace-eob-marker limit)
(goto-char b))) ; return back to initial position
;; inside eob empty region
((>= b whitespace-eob-marker)
(goto-char limit)
(setq r (whitespace-looking-back whitespace-empty-at-eob-regexp b))
(if r
(when (> (match-beginning 1) b)
(set-marker whitespace-eob-marker (match-beginning 1)))
(set-marker whitespace-eob-marker limit)
(goto-char b))) ; return back to initial position
;; intersection with beginning of eob empty region
((>= limit whitespace-eob-marker)
(goto-char limit)
(setq r (whitespace-looking-back whitespace-empty-at-eob-regexp b))
(if r
(set-marker whitespace-eob-marker (match-beginning 1))
(set-marker whitespace-eob-marker limit)
(goto-char b))) ; return back to initial position
;; it is not inside eob empty region
(t
(setq r nil)))
r))
lisp/*.el: Lexical-binding cleanup.
2011-04-19 13:44:55 +00:00
(defun whitespace-buffer-changed (_beg _end)
Fix slow cursor movement.
2010-08-21 04:43:04 +00:00
"Set `whitespace-buffer-changed' variable to t."
(setq whitespace-buffer-changed t))
New version 12. Bug#4177
2009-09-25 02:23:51 +00:00
(defun whitespace-post-command-hook ()
"Save current point into `whitespace-point' variable.
Also refontify when necessary."
* lisp/whitespace.el: Use font-lock-flush. Minimize refontifications. Side benefit: it works without jit-lock. (whitespace-point--used): New buffer-local var. (whitespace-color-on): Initialize it and flush it. Use font-lock-flush. (whitespace-color-off): Use font-lock-flush. (whitespace-point--used, whitespace-point--flush-used): New functions. (whitespace-trailing-regexp, whitespace-empty-at-bob-regexp) (whitespace-empty-at-eob-regexp): Use them. (whitespace-post-command-hook): Rewrite.
2014-05-29 03:54:37 +00:00
(unless (and (eq whitespace-point (point))
(not whitespace-buffer-changed))
(setq whitespace-point (point)) ; current point position
(let ((refontify
(cond
;; It is at end of buffer (eob).
((= whitespace-point (1+ (buffer-size)))
(when (whitespace-looking-back whitespace-empty-at-eob-regexp
nil)
(match-beginning 0)))
;; It is at end of line ...
((and (eolp)
;; ... with trailing SPACE or TAB
(or (memq (preceding-char) '(?\s ?\t))))
(line-beginning-position))
;; It is at beginning of buffer (bob).
((and (= whitespace-point 1)
(looking-at whitespace-empty-at-bob-regexp))
(match-end 0))))
(ostart (overlay-start whitespace-point--used)))
(cond
((not refontify)
;; New point does not affect highlighting: just refresh the
;; highlighting of old point, if needed.
(when ostart
(font-lock-flush ostart
(overlay-end whitespace-point--used))
(delete-overlay whitespace-point--used)))
((not ostart)
;; Old point did not affect highlighting, but new one does: refresh the
;; highlighting of new point.
(font-lock-flush (min refontify (point)) (max refontify (point))))
((save-excursion
(goto-char ostart)
(setq ostart (line-beginning-position))
(and (<= ostart (max refontify (point)))
(progn
(goto-char (overlay-end whitespace-point--used))
(let ((oend (line-beginning-position 2)))
(<= (min refontify (point)) oend)))))
;; The old point highlighting and the new point highlighting
;; cover a contiguous region: do a single refresh.
(font-lock-flush (min refontify (point) ostart)
(max refontify (point)
(overlay-end whitespace-point--used)))
(delete-overlay whitespace-point--used))
(t
(font-lock-flush (min refontify (point))
(max refontify (point)))
(font-lock-flush ostart (overlay-end whitespace-point--used))
(delete-overlay whitespace-point--used))))))
New version 12. Bug#4177
2009-09-25 02:23:51 +00:00
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Hacked from visws.el (Miles Bader <miles@gnu.org>)
New version 11.0.
2008-04-26 11:38:50 +00:00
(defun whitespace-style-mark-p ()
"Return t if there is some visualization via display table."
lisp/*.el: Force non-nil result to t, to match docstring * lisp/ido.el (ido-ignore-item-p): * lisp/simple.el (use-region-p): * lisp/whitespace.el (whitespace-style-face-p) (whitespace-style-mark-p): * lisp/calendar/cal-islam.el (calendar-islamic-leap-year-p): * lisp/mail/rmail.el (rmail-is-text-p): * lisp/mh-e/mh-alias.el (mh-alias-for-from-p): * lisp/net/imap.el (imap-message-flag-permanent-p): * lisp/progmodes/tcl.el (tcl-real-comment-p): * lisp/textmodes/table.el (table--point-in-cell-p): Normalize boolean result.
2019-10-14 21:52:21 +00:00
(and (or (memq 'tab-mark whitespace-active-style)
(memq 'space-mark whitespace-active-style)
(memq 'newline-mark whitespace-active-style))
t))
New version 11.0.
2008-04-26 11:38:50 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defsubst whitespace-char-valid-p (char)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; This check should be improved!!!
(or (< char 256)
(whitespace-char-valid-p): Use characterp rather than char-valid-p.
2008-02-02 04:17:54 +00:00
(characterp char)))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defun whitespace-display-vector-p (vec)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
"Return true if every character in vector VEC can be displayed."
(let ((i (length vec)))
(when (> i 0)
(while (and (>= (setq i (1- i)) 0)
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(whitespace-char-valid-p (aref vec i))))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(< i 0))))
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defun whitespace-display-char-on ()
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
"Turn on character display mapping."
New version 11.0.
2008-04-26 11:38:50 +00:00
(when (and whitespace-display-mappings
(whitespace-style-mark-p))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(let (vecs vec)
;; Remember whether a buffer has a local display table.
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(unless whitespace-display-table-was-local
Fix turning off whitespace-mode * lisp/whitespace.el (whitespace-display-char-on): Correct the way the original buffer-display-table is saved and restored when global-whitespace-mode is active. (Bug#26892) * test/lisp/whitespace-tests.el (whitespace-tests-whitespace-mode-on): New function. (whitespace-tests-display-tables): New test. Copyright-paperwork-exempt: yes
2017-05-19 12:20:59 +00:00
(setq whitespace-display-table-was-local t)
(unless (or whitespace-mode global-whitespace-mode)
(setq whitespace-display-table
(copy-sequence buffer-display-table)))
Spelling fixes.
2011-11-14 23:59:56 +00:00
;; Assure `buffer-display-table' is unique
Fix slow cursor movement.
2010-08-21 04:43:04 +00:00
;; when two or more windows are visible.
(setq buffer-display-table
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(copy-sequence buffer-display-table)))
(unless buffer-display-table
(setq buffer-display-table (make-display-table)))
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(dolist (entry whitespace-display-mappings)
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
;; check if it is to display this mark
New version 11.0.
2008-04-26 11:38:50 +00:00
(when (memq (car entry) whitespace-style)
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
;; Get a displayable mapping.
(setq vecs (cddr entry))
(while (and vecs
(not (whitespace-display-vector-p (car vecs))))
(setq vecs (cdr vecs)))
;; Display a valid mapping.
(when vecs
(setq vec (copy-sequence (car vecs)))
;; NEWLINE char
(when (and (eq (cadr entry) ?\n)
New version 11.0.
2008-04-26 11:38:50 +00:00
(memq 'newline whitespace-active-style))
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
;; Only insert face bits on NEWLINE char mapping to avoid
;; obstruction of other faces like TABs and (HARD) SPACEs
;; faces, font-lock faces, etc.
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(dotimes (i (length vec))
(or (eq (aref vec i) ?\n)
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(aset vec i
(make-glyph-code (aref vec i)
whitespace-newline)))))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
;; Display mapping
Honor the indent-tabs-mode and tab-width setting from user.
2008-04-16 03:41:17 +00:00
(aset buffer-display-table (cadr entry) vec)))))))
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(defun whitespace-display-char-off ()
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
"Turn off character display mapping."
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(and whitespace-display-mappings
New version 11.0.
2008-04-26 11:38:50 +00:00
(whitespace-style-mark-p)
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
whitespace-display-table-was-local
(setq whitespace-display-table-was-local nil
buffer-display-table whitespace-display-table)))
Move whitespace.el to obsolete dir.
2008-01-28 13:58:19 +00:00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
New version 9.3.
2008-03-01 19:00:24 +00:00
;;;; Hook
(defun whitespace-action-when-on ()
"Action to be taken always when local whitespace is turned on."
(cond ((memq 'cleanup whitespace-action)
(whitespace-cleanup))
((memq 'report-on-bogus whitespace-action)
(whitespace-report nil t))))
(defun whitespace-write-file-hook ()
"Action to be taken when buffer is written.
It should be added buffer-locally to `write-file-functions'."
(cond ((memq 'auto-cleanup whitespace-action)
Eliminate whitespace-kill-buffer-hook functionality.
2008-10-02 00:49:49 +00:00
(whitespace-cleanup))
New version 9.3.
2008-03-01 19:00:24 +00:00
((memq 'abort-on-bogus whitespace-action)
Eliminate whitespace-kill-buffer-hook functionality.
2008-10-02 00:49:49 +00:00
(when (whitespace-report nil t)
(error "Abort write due to whitespace problems in %s"
(buffer-name)))))
nil) ; continue hook processing
New version 9.3.
2008-03-01 19:00:24 +00:00
Fix bug#360.
2008-09-06 00:19:31 +00:00
(defun whitespace-warn-read-only (msg)
"Warn if buffer is read-only."
Eliminate whitespace-kill-buffer-hook functionality.
2008-10-02 00:49:49 +00:00
(when (memq 'warn-if-read-only whitespace-action)
Fix bug#360.
2008-09-06 00:19:31 +00:00
(message "Can't %s: %s is read-only" msg (buffer-name))))
New version 9.3.
2008-03-01 19:00:24 +00:00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
(global-whitespace-mode): When turning off the global mode, turn off the local modes too if whitespace is being unloaded. (whitespace-unload-function): New function.
2008-02-01 11:25:16 +00:00
(defun whitespace-unload-function ()
New version 9.3.
2008-03-01 19:00:24 +00:00
"Unload the whitespace library."
(global-whitespace-mode -1)
;; be sure all local whitespace mode is turned off
(save-current-buffer
(dolist (buf (buffer-list))
(set-buffer buf)
(whitespace-mode -1)))
nil) ; continue standard unloading
(global-whitespace-mode): When turning off the global mode, turn off the local modes too if whitespace is being unloaded. (whitespace-unload-function): New function.
2008-02-01 11:25:16 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(provide 'whitespace)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Make more load-hooks obsolete (Bug#21563) * lisp/progmodes/dcl-mode.el (dcl-mode): * lisp/progmodes/idlw-complete-structtag.el: Recommend with-eval-after-load instead of load-hooks. * lisp/calc/calc-ext.el (calc-ext-load-hook): * lisp/emacs-lisp/bytecomp.el (bytecomp-load-hook): * lisp/emacs-lisp/cl-extra.el (cl-extra-load-hook): * lisp/emacs-lisp/cl-macs.el (cl-macs-load-hook): * lisp/emacs-lisp/cl-seq.el (cl-seq-load-hook): * lisp/gnus/message.el (message-load-hook): * lisp/gnus/nnheader.el (nnheader-load-hook): * lisp/gnus/nnmail.el (nnmail-load-hook): * lisp/progmodes/dcl-mode.el (dcl-mode-load-hook): * lisp/textmodes/tex-mode.el (tex-mode-load-hook): * lisp/whitespace.el (whitespace-load-hook): Obsolete for with-eval-after-load. Note that these variables are never declared, but the byte-compiler will still warn about them if used.
2020-10-20 17:10:51 +00:00
(make-obsolete-variable 'whitespace-load-hook
"use `with-eval-after-load' instead." "28.1")
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
(run-hooks 'whitespace-load-hook)
New file: blank-mode.el
2008-01-17 12:46:55 +00:00
Rename blank-mode.el to whitespace.el and obsolete/whitespace.el to obsolete/old-whitespace.el
2008-01-31 16:08:29 +00:00
;;; whitespace.el ends here
Reference in New Issue Copy Permalink