 or nothing if point is in BoL"
   (interactive)
   (unless (= (point) (point-at-bol))
-    (set 'old-point (point))
-    (back-to-indentation)
-    (if (= old-point (point))
-        (move-beginning-of-line nil))))
+    (let ((old-point (point)))
+      (back-to-indentation)
+      (if (= old-point (point))
+          (move-beginning-of-line nil)))))
 (global-set-key "\C-a" 'kui/move-beginning-of-line)
-
-;; require の代わりに使う
-(defun kui/autoload-if-exist (function file &optional docstring interactive type)
-  "do `(autoload FUNCTION FILE)` if FILE exist"
-  (if (locate-library file)
-      (let () (autoload function file docstring interactive type) t)))
 
 ;; 現在の行をコメントアウト
 (defun kui/comment-or-uncomment-current-line ()

(setq default-file-name-coding-system 'utf-8-unix)

;; meadow 向けの設定
(if (string-equal system-type "windows-nt") (let () ))

;; git checkout によるファイル変更などに追従する
;; (custom-set-variables '(auto-revert-check-vc-info t))


(with-pkg 'flycheck
  ;; ...
  (add-hook 'after-init-hook #'global-flycheck-mode)
  (with-pkg 'flycheck-pos-tip
    (setq flycheck-display-errors-function #'flycheck-pos-tip-error-messages))

  (global-set-key "\M-e" 'flycheck-next-error)
  (global-set-key "\M-E" 'flycheck-perv-error)
  )

;; company-mode
(with-pkg 'company
