Delete scratch buf only if found

emacs.el

@@ -310,7 +310,9 @@ IF OK-IF-ALREADY-EXISTS is true force download."
 
 ;; kill scratch
 (call-after-init (lambda ()
-                         (kill-buffer "*scratch*")))
+                   (let ((buf (get-buffer "*scratch*")))
+                     (when buf
+                       (kill-buffer buf)))))
 
 ;; modifier keys
 ;; (setq mac-option-modifier 'control)
@@ -455,8 +457,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
 ;; display date
 (call-after-init (lambda ()
                    (when display-time-mode
-                     (display-time-update))
-                   ))
+                     (display-time-update))))
 
 (when (safe-require-or-eval 'time)
   (setq display-time-interval 29)
@@ -1327,7 +1328,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
                                 'aggressive))
 
 (defvar-set woman-cache-filename (expand-file-name (concat user-emacs-directory
-                                                     "woman_cache.el")))
+                                                           "woman_cache.el")))
 (defalias 'man 'woman)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -2007,8 +2008,8 @@ Optional prefix ARG says how many lines to unflag; default is one line."
 C-x t to toggling emacs-text-mode
 
 "
-                                      (shell-command-to-string "uname -a")
-                                      ))
+                                            (shell-command-to-string "uname -a")
+                                            ))
 
   (defvar eshell-text-mode-map
     (let ((map (make-sparse-keymap)))