Mercurial > emacs
changeset 96968:df4f1b00491d
New newline minor mode visualization.
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Thu, 24 Jul 2008 04:12:27 +0000 |
| parents | 56a6f086590e |
| children | f733ebf7bc82 |
| files | lisp/ChangeLog lisp/whitespace.el |
| diffstat | 2 files changed, 53 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jul 24 03:56:00 2008 +0000 +++ b/lisp/ChangeLog Thu Jul 24 04:12:27 2008 +0000 @@ -1,3 +1,9 @@ +2008-07-24 Vinicius Jose Latorre <viniciusjl@ig.com.br> + + * whitespace.el: New version 11.2. + (whitespace-newline-mode, global-whitespace-newline-mode): New newline + minor mode visualization. + 2008-07-24 Dan Nicolaescu <dann@ics.uci.edu> * progmodes/cc-mode.el (auto-mode-alist): Add .i and .ii files.
--- a/lisp/whitespace.el Thu Jul 24 03:56:00 2008 +0000 +++ b/lisp/whitespace.el Thu Jul 24 04:12:27 2008 +0000 @@ -6,7 +6,7 @@ ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Keywords: data, wp -;; Version: 11.1 +;; Version: 11.2 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre ;; This file is part of GNU Emacs. @@ -160,6 +160,12 @@ ;; ;; There are also the following useful commands: ;; +;; `whitespace-newline-mode' +;; Toggle newline minor mode visualization ("nl" on modeline). +;; +;; `global-whitespace-newline-mode' +;; Toggle newline global minor mode visualization ("NL" on modeline). +;; ;; `whitespace-report' ;; Report some blank problems in buffer. ;; @@ -1016,6 +1022,26 @@ (t ; whitespace-mode off (whitespace-turn-off)))) + +;;;###autoload +(define-minor-mode whitespace-newline-mode + "Toggle newline minor mode visualization (\"nl\" on modeline). + +If ARG is null, toggle newline visualization. +If ARG is a number greater than zero, turn on visualization; +otherwise, turn off visualization. +Only useful with a windowing system. + +See also `whitespace-newline'." + :lighter " nl" + :init-value nil + :global nil + :group 'whitespace + (let ((whitespace-style '(newline-mark newline))) + (whitespace-mode whitespace-newline-mode) + ;; sync states (running a batch job) + (setq whitespace-newline-mode whitespace-mode))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; User commands - Global mode @@ -1074,6 +1100,26 @@ ;; Otherwise, turn on whitespace mode. (whitespace-turn-on))))) + +;;;###autoload +(define-minor-mode global-whitespace-newline-mode + "Toggle newline global minor mode visualization (\"NL\" on modeline). + +If ARG is null, toggle newline visualization. +If ARG is a number greater than zero, turn on visualization; +otherwise, turn off visualization. +Only useful with a windowing system. + +See also `whitespace-newline'." + :lighter " NL" + :init-value nil + :global t + :group 'whitespace + (let ((whitespace-style '(newline-mark newline))) + (global-whitespace-mode global-whitespace-newline-mode) + ;; sync states (running a batch job) + (setq global-whitespace-newline-mode global-whitespace-mode))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; User commands - Toggle