tastytea/.emacs.d
tastytea/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Activity

emacs: Rename no-ws-cleanup → my/no-ws-cleanup.

Browse Source
This commit is contained in:
tastytea 2020-01-07 07:32:59 +01:00
parent 6fdc5b523a
commit cee9ee3bf9
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
init.d/text/common.el
View File

@ -1,6 +1,6 @@
;;; common.el --- Common settings for text files. -*- lexical-binding: t; -*- ;;; 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: ;;; Commentary:
@ -262,14 +262,14 @@
(whitespace-mode) (whitespace-mode)
) )
(defvar no-ws-cleanup nil (defvar my/no-ws-cleanup nil
"Do not cleanup whitespace if t.") "Do not cleanup whitespace if t.")
(make-variable-buffer-local 'no-ws-cleanup) (make-variable-buffer-local 'my/no-ws-cleanup)
(put 'no-ws-cleanup 'safe-local-variable #'booleanp) ; Mark as safe. (put 'my/no-ws-cleanup 'safe-local-variable #'booleanp) ; Mark as safe.
(defun my/ws-maybe-cleanup () (defun my/ws-maybe-cleanup ()
"Run `whitespace-cleanup' if `no-ws-cleanup' is not t." "Run `whitespace-cleanup' if `my/no-ws-cleanup' is not t."
(unless no-ws-cleanup (unless my/no-ws-cleanup
(whitespace-cleanup)) (whitespace-cleanup))
) )