From cee9ee3bf9de2f4c971740ec72714c82d40ba0df Mon Sep 17 00:00:00 2001 From: tastytea Date: Tue, 7 Jan 2020 07:32:59 +0100 Subject: [PATCH] =?UTF-8?q?emacs:=20Rename=20no-ws-cleanup=20=E2=86=92=20m?= =?UTF-8?q?y/no-ws-cleanup.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- init.d/text/common.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/init.d/text/common.el b/init.d/text/common.el index 103b0b7..5e244ed 100644 --- a/init.d/text/common.el +++ b/init.d/text/common.el @@ -1,6 +1,6 @@ ;;; common.el --- Common settings for text files. -*- lexical-binding: t; -*- -;; Time-stamp: <2019-12-26T19:50:08+0100> +;; Time-stamp: <2020-01-07T07:32:45+0100> ;;; Commentary: @@ -262,14 +262,14 @@ (whitespace-mode) ) - (defvar no-ws-cleanup nil + (defvar my/no-ws-cleanup nil "Do not cleanup whitespace if t.") - (make-variable-buffer-local 'no-ws-cleanup) - (put 'no-ws-cleanup 'safe-local-variable #'booleanp) ; Mark as safe. + (make-variable-buffer-local 'my/no-ws-cleanup) + (put 'my/no-ws-cleanup 'safe-local-variable #'booleanp) ; Mark as safe. (defun my/ws-maybe-cleanup () - "Run `whitespace-cleanup' if `no-ws-cleanup' is not t." - (unless no-ws-cleanup + "Run `whitespace-cleanup' if `my/no-ws-cleanup' is not t." + (unless my/no-ws-cleanup (whitespace-cleanup)) )