| @@ -1777,7 +1777,7 @@ when SEC is nil, stop auto save if enabled." | |||||
| sgml-mode | sgml-mode | ||||
| c-mode | c-mode | ||||
| c++-mode)) | c++-mode)) | ||||
| (setq my-auto-indent-buffer-mode-list nil) | |||||
| (setq my-auto-indent-buffer-mode-list nil) ;disable | |||||
| (defun my-indent-buffer () | (defun my-indent-buffer () | ||||
| "indent whole buffer." | "indent whole buffer." | ||||
| (interactive) | (interactive) | ||||
| @@ -1856,15 +1856,6 @@ this is test, does not rename files" | |||||
| ;; nil | ;; nil | ||||
| ;; func)))) | ;; func)))) | ||||
| ;; delete-trailing-whitespace | |||||
| ;; (defun my-delete-blanks-on-eol () | |||||
| ;; "" | |||||
| ;; (interactive) | |||||
| ;; (save-excursion | |||||
| ;; (goto-char (point-min)) | |||||
| ;; (while (re-search-forward "[ \t]+$" nil t) | |||||
| ;; (replace-match "" nil nil)))) | |||||
| (defvar my-revert-buffer-if-needed-last-buffer nil) | (defvar my-revert-buffer-if-needed-last-buffer nil) | ||||
| (defun my-revert-buffer-if-needed () | (defun my-revert-buffer-if-needed () | ||||