Emacs: Remove unused prettify-inhibit-p guard.

.emacs.d/.dir-locals.el

@@ -1 +0,0 @@
-((nil . ((ambrevar/prettify-inhibit-p . nil))))

.emacs.d/init.el

@@ -192,7 +192,6 @@
 (with-eval-after-load 'racket-mode (require 'init-racket))
 (setq geiser-repl-history-filename (expand-file-name "geiser_history" user-emacs-directory))
 ;; Emacs Lisp
-(add-hook 'emacs-lisp-mode-hook 'ambrevar/turn-on-prettify-before-save)
 (add-hook 'emacs-lisp-mode-hook 'ambrevar/turn-on-complete-filename)
 (add-hook 'emacs-lisp-mode-hook 'ambrevar/turn-on-tab-width-to-8) ; Because some existing code uses tabs.
 (add-hook 'emacs-lisp-mode-hook 'ambrevar/turn-off-indent-tabs)   ; Should not use tabs.

.emacs.d/lisp/functions.el

@@ -69,26 +69,17 @@ TO-STRING."
 Tabify if `indent-tabs-mode' is true, otherwise use spaces.
 Work on buffer or region.
 
-If `ambrevar/prettify-inhibit-p' is non-nil, it does nothing.
-
 Require `ambrevar/tabify-leading'."
   (interactive)
-  (unless ambrevar/prettify-inhibit-p
-    (let ((start (set-marker (make-marker) (if (use-region-p) (region-beginning) (point-min))))
-          (end (set-marker (make-marker) (if (use-region-p) (region-end) (point-max)))))
-      (if indent-tabs-mode
-          (ambrevar/tabify-leading)
-        (untabify start end))
-      (indent-region start end)
-      (save-restriction
-        (narrow-to-region start end)
-        (delete-trailing-whitespace)))))
-
-(defcustom ambrevar/prettify-inhibit-p t
-  "Do not run `ambrevar/prettify' if non-nil.
-As this is not friendly to foreign projects, `ambrevar/prettify' should be run
-selectively."
-  :safe 'booleanp)
+  (let ((start (set-marker (make-marker) (if (use-region-p) (region-beginning) (point-min))))
+        (end (set-marker (make-marker) (if (use-region-p) (region-end) (point-max)))))
+    (if indent-tabs-mode
+        (ambrevar/tabify-leading)
+      (untabify start end))
+    (indent-region start end)
+    (save-restriction
+      (narrow-to-region start end)
+      (delete-trailing-whitespace))))
 
 (defun ambrevar/flyspell-and-whitespace-mode ()
   "Toggle `flyspell-mode' and `whitespace-mode'."