+;
+
+
+;; (defun hack-dir-local-variables ()
+;; "Read per-directory local variables for the current buffer.
+;; Store the directory-local variables in `dir-local-variables-alist'
+;; and `file-local-variables-alist', without applying them."
+;; (when (and enable-local-variables
+;; (buffer-file-name))
+;; ;; Find the variables file.
+;; (let ((variables-file (dir-locals-find-file (buffer-file-name)))
+;; (class nil)
+;; (dir-name nil))
+;; (cond
+;; ((stringp variables-file)
+;; (setq dir-name (file-name-directory (buffer-file-name)))
+;; (setq class (dir-locals-read-from-file variables-file)))
+;; ((consp variables-file)
+;; (setq dir-name (nth 0 variables-file))
+;; (setq class (nth 1 variables-file))))
+;; (when class
+;; (let ((variables
+;; (dir-locals-collect-variables
+;; (dir-locals-get-class-variables class) dir-name nil)))
+;; (when variables
+;; (dolist (elt variables)
+;; (unless (memq (car elt) '(eval mode))
+;; (setq dir-local-variables-alist
+;; (assq-delete-all (car elt) dir-local-variables-alist)))
+;; (push elt dir-local-variables-alist))
+;; (hack-local-variables-filter variables dir-name)))))))
+
+(delete ".git/" completion-ignored-extensions)
+