From 4f6ac41777b4807b2ff0ed9cfa5d2e0ac9161b20 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 11 Nov 2014 21:21:18 -0500 Subject: Delete duplicate cleanup-buffer code Accidentally made two copies of code in ad80f4b4896b13d23b488146af4e4df6354191a7. --- lisp/init-editing.el | 23 ----------------------- 1 file changed, 23 deletions(-) (limited to 'lisp') diff --git a/lisp/init-editing.el b/lisp/init-editing.el index bd85d50..9e03333 100644 --- a/lisp/init-editing.el +++ b/lisp/init-editing.el @@ -36,29 +36,6 @@ (let ((fill-column (point-max))) (fill-paragraph nil))) -;; Buffer-specific prevention modified from -;; http://stackoverflow.com/questions/14913398/ -;; in-emacs-how-do-i-save-without-running-save-hooks. -(defvar km/prevent-cleanup nil - "If set, `km/cleanup-buffer' does not perform clean up on save.") - -(defun km/toggle-prevent-cleanup () - "Toggle state of `km/prevent-cleanup'" - (interactive) - (if km/prevent-cleanup - (message "Allowing cleanup on save ") - (message "Preventing cleanup on save")) - (set (make-local-variable 'km/prevent-cleanup) (not km/prevent-cleanup))) - -(defun km/cleanup-buffer () - (interactive) - (unless km/prevent-cleanup - (unless (equal major-mode 'makefile-gmake-mode) - (untabify (point-min) (point-max))) - (delete-trailing-whitespace) - (set-buffer-file-coding-system 'utf-8))) -(add-hook 'before-save-hook 'km/cleanup-buffer) - (define-key search-map "s" 'query-replace) (define-key search-map "S" 'replace-string) (define-key search-map "r" 'query-replace-regexp) -- cgit v1.2.3