From 84bd6e9e02c051816d8ba8e31fec2c3f912ae8fa Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Sun, 30 Oct 2011 22:37:09 -0200 Subject: [PATCH] Disable whitespace-newline-mode properly. --- .../allout-widgets/light-bg/locked-encrypted.png | Bin .../light-bg/unlocked-encrypted.png | Bin lisp/ChangeLog | 6 ++++++ lisp/whitespace.el | 14 +++++++++----- 4 files changed, 15 insertions(+), 5 deletions(-) mode change 100644 => 100755 etc/images/icons/allout-widgets/light-bg/locked-encrypted.png mode change 100644 => 100755 etc/images/icons/allout-widgets/light-bg/unlocked-encrypted.png diff --git a/etc/images/icons/allout-widgets/light-bg/locked-encrypted.png b/etc/images/icons/allout-widgets/light-bg/locked-encrypted.png old mode 100644 new mode 100755 diff --git a/etc/images/icons/allout-widgets/light-bg/unlocked-encrypted.png b/etc/images/icons/allout-widgets/light-bg/unlocked-encrypted.png old mode 100644 new mode 100755 diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e65029b0c97..74d578abf56 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2011-10-30 Vinicius Jose Latorre + + * whitespace.el: New version 13.2.2. + (whitespace-newline-mode): Disable properly. Reported by Sarah + . + 2011-10-30 Ulf Jasper * net/newst-treeview.el: Remove "Time-stamp". diff --git a/lisp/whitespace.el b/lisp/whitespace.el index 8dc1996734d..3cbc41e84c0 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el @@ -5,7 +5,7 @@ ;; Author: Vinicius Jose Latorre ;; Maintainer: Vinicius Jose Latorre ;; Keywords: data, wp -;; Version: 13.2.1 +;; Version: 13.2.2 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre ;; This file is part of GNU Emacs. @@ -1102,10 +1102,14 @@ See also `whitespace-newline' and `whitespace-display-mappings'." :init-value nil :global nil :group 'whitespace - (let ((whitespace-style '(face newline-mark newline))) - (whitespace-mode (if whitespace-newline-mode 1 -1)) - ;; Sync states (running a batch job). - (setq whitespace-newline-mode whitespace-mode))) + (cond + (whitespace-newline-mode + (let ((whitespace-style '(face newline-mark newline))) + (whitespace-mode whitespace-newline-mode))) + (t + (whitespace-mode -1))) + ;; sync states (running a batch job) + (setq whitespace-newline-mode whitespace-mode)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- 2.39.5