Rename macro

emacs.el

@@ -23,8 +23,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Some macros for internals
 
-;; TODO: Rename to eval-after-init
-(defmacro call-after-init (&rest body)
+(defmacro eval-after-init (&rest body)
   "If `after-init-hook' has been run, run BODY immediately.
 Otherwize hook it."
   (declare (indent 0) (debug t))
@@ -233,7 +232,7 @@ found, otherwise returns nil."
 (and (fboundp 'set-scroll-bar-mode)
      (set-scroll-bar-mode nil))
 
-(call-after-init
+(eval-after-init
   (message "%s %s" invocation-name emacs-version)
   (message "Invocation directory: %s" default-directory)
   (message "%s was taken to initialize emacs." (emacs-init-time))
@@ -263,7 +262,7 @@ found, otherwise returns nil."
 ;; (comint-show-maximum-output)
 
 ;; kill scratch
-(call-after-init
+(eval-after-init
   (let ((buf (get-buffer "*scratch*")))
     (when buf
       (kill-buffer buf))))
@@ -521,7 +520,7 @@ found, otherwise returns nil."
 
 (when (safe-require-or-eval 'diminish)
   ;; FIXME: Eval after enabling mode
-  (call-after-init
+  (eval-after-init
     (diminish 'recently-mode)
     (diminish 'editorconfig-mode)
     (diminish 'auto-highlight-symbol-mode)
@@ -1355,7 +1354,7 @@ found, otherwise returns nil."
 ;; TODO: Any way to disable auto check?
 ;; Update flycheck-hooks-alist?
 (when (safe-require-or-eval 'flycheck)
-  (call-after-init (global-flycheck-mode)))
+  (eval-after-init (global-flycheck-mode)))
 ;; (set-variable 'flycheck-display-errors-delay 2.0)
 ;; (fset 'flycheck-display-error-at-point-soon 'ignore)
 
@@ -1492,7 +1491,7 @@ found, otherwise returns nil."
 ;;   (add-to-list 'load-path
 ;;                (expand-file-name (concat user-emacs-directory "/cedet")))
 ;;   (safe-require-or-eval 'cedet-devel-load)
-;;   (call-after-init (activate-malabar-mode)))
+;;   (eval-after-init (activate-malabar-mode)))
 
 (with-eval-after-load 'make-mode
   (defvar makefile-mode-map (make-sparse-keymap))