From dddfd9785d0627d26a15889e65309c40f4458737 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sat, 7 Mar 2015 19:59:20 +0900
Subject: [PATCH] Delete scratch buf only if found

---
 emacs.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/emacs.el b/emacs.el
index 2a32b6d..6cd8762 100644
--- a/emacs.el
+++ b/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)))