     (interactive "P")
     (defvar ar/helm-ag--default-locaction nil)
     (when (or arg (not ar/helm-ag--default-locaction))
-      (validate-setq ar/helm-ag--default-locaction
+      (vsetq ar/helm-ag--default-locaction
                      (read-directory-name "search in: " default-directory nil t)))
     (helm-do-ag ar/helm-ag--default-locaction))
 

  :config
  (use-package char-fold)

  (validate-setq search-default-mode #'char-fold-to-regexp)

  ;; Prepopulate isearch with selectionn.
  ;; From http://www.reddit.com/r/emacs/comments/2amn1v/isearch_selected_text

  ;; Enable if you'd like to start as fullscreen.
  ;; (set-frame-parameter nil 'fullscreen 'fullboth)
  ;; Don't want titles in frames.
  (vsetq frame-title-format '("Ⓔ ⓜ ⓐ ⓒ ⓢ")))

(use-package base16-theme
  :ensure t
